gistfile1.txt

Test SB-POSIX-TESTS::FCNTL.FLOCK.1 failed
Form: (LOCALLY
       (DECLARE (MUFFLE-CONDITIONS COMPILER-NOTE))
       (LET ((SB-POSIX-TESTS::FLOCK
              (MAKE-INSTANCE 'SB-POSIX:FLOCK :TYPE SB-POSIX:F-WRLCK :WHENCE
                             SB-POSIX:SEEK-SET :START 0 :LEN 10))
             (PATHNAME "fcntl.flock.1")
             SB-POSIX-TESTS::KID-STATUS)
         (CATCH 'SB-POSIX-TESTS::TEST
           (WITH-OPEN-FILE (SB-POSIX-TESTS::F PATHNAME :DIRECTION :OUTPUT)
             (WRITE-LINE "1234567890" SB-POSIX-TESTS::F)
             (ASSERT
              (ZEROP
               (SB-POSIX:FCNTL SB-POSIX-TESTS::F SB-POSIX:F-SETLK
                               SB-POSIX-TESTS::FLOCK)))
             (LET ((SB-POSIX-TESTS::PID (SB-POSIX:FORK)))
               (IF (ZEROP SB-POSIX-TESTS::PID)
                   (PROGN
                    (MULTIPLE-VALUE-BIND (SB-POSIX-TESTS::NOPE ERROR)
                        (IGNORE-ERRORS
                         (SB-POSIX:FCNTL SB-POSIX-TESTS::F SB-POSIX:F-SETLK
                                         SB-POSIX-TESTS::FLOCK))
                      (QUIT :UNIX-STATUS
                            (COND ((NOT (NULL SB-POSIX-TESTS::NOPE)) 1)
                                  ((= (SB-POSIX:SYSCALL-ERRNO ERROR)
                                      SB-POSIX:EAGAIN)
                                   42)
                                  (T 86))
                            :RECKLESSLY-P T)))
                   (PROGN
                    (SETF SB-POSIX-TESTS::KID-STATUS
                            (SB-POSIX:WEXITSTATUS
                             (NTH-VALUE 1
                                        (SB-POSIX:WAITPID SB-POSIX-TESTS::PID
                                                          0))))
                    (THROW 'SB-POSIX-TESTS::TEST NIL))))))
         SB-POSIX-TESTS::KID-STATUS))
Expected value: 42
Actual value: 0.
Test SB-POSIX-TESTS::FCNTL.FLOCK.2 failed
Form: (LOCALLY
       (DECLARE (MUFFLE-CONDITIONS COMPILER-NOTE))
       (LET ((SB-POSIX-TESTS::FLOCK
              (MAKE-INSTANCE 'SB-POSIX:FLOCK :TYPE SB-POSIX:F-WRLCK :WHENCE
                             SB-POSIX:SEEK-SET :START 0 :LEN 10))
             (PATHNAME "fcntl.flock.2")
             SB-POSIX-TESTS::KID-STATUS)
         (CATCH 'SB-POSIX-TESTS::TEST
           (WITH-OPEN-FILE (SB-POSIX-TESTS::F PATHNAME :DIRECTION :OUTPUT)
             (WRITE-LINE "1234567890" SB-POSIX-TESTS::F)
             (ASSERT
              (ZEROP
               (SB-POSIX:FCNTL SB-POSIX-TESTS::F SB-POSIX:F-SETLK
                               SB-POSIX-TESTS::FLOCK)))
             (LET ((SB-POSIX-TESTS::PPID (SB-POSIX:GETPID))
                   (SB-POSIX-TESTS::PID (SB-POSIX:FORK)))
               (IF (ZEROP SB-POSIX-TESTS::PID)
                   (LET ((SB-POSIX-TESTS::R
                          (SB-POSIX:FCNTL SB-POSIX-TESTS::F SB-POSIX:F-GETLK
                                          SB-POSIX-TESTS::FLOCK)))
                     (QUIT :UNIX-STATUS
                           (COND ((NOT (ZEROP SB-POSIX-TESTS::R)) 1)
                                 ((= (SB-POSIX:FLOCK-PID SB-POSIX-TESTS::FLOCK)
                                     SB-POSIX-TESTS::PPID)
                                  42)
                                 (T 86))
                           :RECKLESSLY-P T))
                   (PROGN
                    (SETF SB-POSIX-TESTS::KID-STATUS
                            (SB-POSIX:WEXITSTATUS
                             (NTH-VALUE 1
                                        (SB-POSIX:WAITPID SB-POSIX-TESTS::PID
                                                          0))))
                    (THROW 'SB-POSIX-TESTS::TEST NIL))))))
         SB-POSIX-TESTS::KID-STATUS))
Expected value: 42
Actual value: 0.