Tests fails on macOS under SBCL-2.3.11

Open catap opened this issue 2 years ago • 1 comments

;; testing 'anypool/tests'
make-pool
  ✓ Expect POOL to be an instance of POOL.
  ✓ Expect (POOL-MAX-OPEN-COUNT POOL) to be an instance of FIXNUM.
  ✓ Expect (POOL-MAX-IDLE-COUNT POOL) to be an instance of FIXNUM.
  ✓ Expect (= (POOL-OPEN-COUNT POOL) 0) to be true.
  ✓ Expect (= (POOL-ACTIVE-COUNT POOL) 0) to be true.
  ✓ Expect (= (POOL-IDLE-COUNT POOL) 0) to be true.
fetch-and-putback
  'fetch' can allocate a new object
    ✓ Expect (STRING= (FIRST ACTIVE-OBJECTS) "dummy1") to be true.
    ✓ Expect (= (POOL-OPEN-COUNT POOL) 1) to be true.
    ✓ Expect (= (POOL-ACTIVE-COUNT POOL) 1) to be true.
    ✓ Expect (= (POOL-IDLE-COUNT POOL) 0) to be true.
    ✓ Expect (STRING= (FIRST ACTIVE-OBJECTS) "dummy2") to be true.
    ✓ Expect (= (POOL-OPEN-COUNT POOL) 2) to be true.
    ✓ Expect (= (POOL-ACTIVE-COUNT POOL) 2) to be true.
    ✓ Expect (= (POOL-IDLE-COUNT POOL) 0) to be true.
  'fetch' can't allocate exceeding the max-open-count
    ✓ Expect (FETCH POOL) to signal TOO-MANY-OPEN-CONNECTION.
    ✓ Expect (= (POOL-OPEN-COUNT POOL) 2) to be true.
    ✓ Expect (= (POOL-ACTIVE-COUNT POOL) 2) to be true.
    ✓ Expect (= (POOL-IDLE-COUNT POOL) 0) to be true.
  'putback' can return a fetched object back
    × 0) Raise an error while testing.
  'putback' disallocates an idle object exceeding max-idle-count
    ✓ Expect (= (POOL-OPEN-COUNT POOL) 1) to be true.
    ✓ Expect (= (POOL-ACTIVE-COUNT POOL) 0) to be true.
    ✓ Expect (= (POOL-IDLE-COUNT POOL) 1) to be true.
ping
  × 1) Raise an error while testing.
idle-timeout
  - :idle-timeout works only on SBCL
timeout
  ✓ Expect (= (POOL-OPEN-COUNT POOL) 2) to be true.
  ✓ Expect (FETCH POOL) to be true. (100ms)

Condition of type: SIMPLE-ERROR
Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-LOCK" 0x10e7c8de0> that is not owned by process #<process "Unknown thread 0" 0x10d9299a0>
Available restarts:

1. (ABORT) ABORT

Top level in: #<process Unknown thread 0 0x10d9299a0>.
> 
  × 2) Expect (FETCH POOL) to signal TOO-MANY-OPEN-CONNECTION.
disable-pooling
  ✓ Expect (= (POOL-OPEN-COUNT POOL) 1) to be true.
  ✓ Expect (= (POOL-IDLE-COUNT POOL) 0) to be true.
  × 3) Raise an error while testing.

× 1 of 1 test failed

0) anypool/tests
     › FETCH-AND-PUTBACK
       › NIL

   Raise an error while testing.
   SIMPLE-ERROR: Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-LOCK" 0x10e6dd7e0> that is not owned by process #<process SI:TOP-LEVEL 0x10c91eee0>

     0: (SI:BYTECODES)
     1: (SI:BYTECODES NIL NIL NIL NIL NIL NIL T)
     2: (SI:BYTECODES)

1) anypool/tests
     › FETCH-AND-PUTBACK
       › NIL

   Expect (EQUAL
           (ROVE/CORE/ASSERTION::OUTPUT-OF (PUTBACK (POP ACTIVE-OBJECTS) POOL)
                                           *STANDARD-OUTPUT*)
           "disallocated dummy1") to be true.
   SIMPLE-ERROR: Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-LOCK" 0x10e6dd7e0> that is not owned by process #<process SI:TOP-LEVEL 0x10c91eee0>
     (ROVE/CORE/ASSERTION:OUTPUTS
      #1=(ANYPOOL:PUTBACK (POP ANYPOOL/TESTS::ACTIVE-OBJECTS) ANYPOOL:POOL)
      "disallocated dummy1")
     (EQUAL (ROVE/CORE/ASSERTION::OUTPUT-OF #1# *STANDARD-OUTPUT*)
            "disallocated dummy1")

     0: (SI:BYTECODES)
     1: (SI:BYTECODES NIL NIL NIL NIL NIL NIL T)
     2: (SI:BYTECODES)

2) anypool/tests
     › PING

   Raise an error while testing.
   SIMPLE-ERROR: Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-LOCK" 0x10e6dd000> that is not owned by process #<process SI:TOP-LEVEL 0x10c91eee0>

     0: (SI:BYTECODES)
     1: (SI:BYTECODES NIL NIL NIL NIL NIL NIL T)
     2: (SI:BYTECODES)

3) anypool/tests
     › TIMEOUT

   Expect (FETCH POOL) to signal TOO-MANY-OPEN-CONNECTION.
   SIMPLE-ERROR: Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-OPENWAIT-LOCK" 0x10e7c8d80> that is not owned by process #<process SI:TOP-LEVEL 0x10c91eee0>
     (ROVE/CORE/ASSERTION:SIGNALS (ANYPOOL:FETCH ANYPOOL:POOL)
                                  'ANYPOOL:TOO-MANY-OPEN-CONNECTION)

     0: (SI:BYTECODES)
     1: (SI:BYTECODES NIL NIL NIL NIL NIL NIL T)
     2: (SI:BYTECODES)

4) anypool/tests
     › DISABLE-POOLING

   Raise an error while testing.
   SIMPLE-ERROR: Attempted to give up lock #<lock (nonrecursive) "ANYPOOL-LOCK" 0x10e7c8b40> that is not owned by process #<process SI:TOP-LEVEL 0x10c91eee0>

     0: (SI:BYTECODES)
     1: (SI:BYTECODES NIL NIL NIL NIL NIL NIL T)
     2: (SI:BYTECODES)

Summary:
  1 test failed.
    - anypool/tests

Dec 08 '23 00:12 catap

Tests also fail for me, but only on rosetta simulating x86-64 (base system is an M2). When running as ARM, it works fine.

× 1 of 1 test failed

0) anypool/tests
     › TIMEOUT

   Expect (FETCH POOL) to be true.
       at ./tests/main.lisp:141:6
   TOO-MANY-OPEN-CONNECTION: Too many open connection and couldn't open a new one (limit: 2)
     (ANYPOOL:FETCH ANYPOOL:POOL)

     0: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN ANYPOOL:FETCH))
     1: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
CORRUPTION WARNING in SBCL pid 65412 pthread 0x104dbb240:
Memory fault at 0xd (pc=0x5351d9d0 [code 0x5351d870+0x160 ID 0x60d0], fp=0x4e25a08, sp=0x4e259f8) pthread 0x104dbb240
The integrity of this image is possibly compromised.
Exiting.
   0: fp=0x4e25a08 pc=0x5351d9d0 (LAMBDA (SB-PCL::.ARG0. SB-PCL::.ARG1.) :IN "SYS:SRC;PCL;DLISP3.LISP")
   1: fp=0x4e25a60 pc=0x52a24f92 (LABELS SB-IMPL::HANDLE-IT :IN SB-KERNEL::OUTPUT-OBJECT)
   2: fp=0x4e25bd8 pc=0x52a70c70 SB-INT::STRINGIFY-OBJECT
   3: fp=0x4e25bf0 pc=0x52aa7006 PRINC-TO-STRING
   4: fp=0x4e25cf0 pc=0x53637d22 (SB-PCL::FAST-METHOD DISSECT::PRESENT-OBJECT (DISSECT::CALL T))
   5: fp=0x4e25ee8 pc=0x5364b825 ROVE/UTILS/REPORTER::FORMAT-FAILURE-TESTS
   6: fp=0x4e25f28 pc=0x5364f58a (SB-PCL::FAST-METHOD ROVE/STATS::SUMMARIZE (ROVE/REPORTER/SPEC::SPEC-REPORTER))
   7: fp=0x4e25f50 pc=0x536459d8 ROVE/CORE/SUITE::CALL-WITH-SUITE
   8: fp=0x4e25f78 pc=0x53647429 (SB-PCL::FAST-METHOD ROVE/REPORTER::INVOKE-REPORTER (T T))
   9: fp=0x4e26038 pc=0x536a4497 (SB-PCL::FAST-METHOD ROVE::RUN (T))
  10: fp=0x4e26080 pc=0x535f1731 (SB-PCL::EMF ASDF/ACTION::PERFORM)
  11: fp=0x4e26100 pc=0x535b1531 (LAMBDA () :IN ASDF/ACTION::CALL-WHILE-VISITING-ACTION)
  12: fp=0x4e262e8 pc=0x535b7efe (SB-PCL::FAST-METHOD ASDF/ACTION::PERFORM-WITH-RESTARTS :AROUND (T T))
  13: fp=0x4e26320 pc=0x535c9825 (SB-PCL::FAST-METHOD ASDF/PLAN::PERFORM-PLAN (T))
  14: fp=0x4e26400 pc=0x52c0f10d (FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)
  15: fp=0x4e26478 pc=0x535c92c9 (SB-PCL::FAST-METHOD ASDF/PLAN::PERFORM-PLAN :AROUND (T))
  16: fp=0x4e264c0 pc=0x535cb704 (SB-PCL::FAST-METHOD ASDF/OPERATE::OPERATE (ASDF/OPERATION::OPERATION ASDF/COMPONENT::COMPONENT))
  17: fp=0x4e26518 pc=0x535ee40e (SB-PCL::EMF ASDF/OPERATE::OPERATE)
  18: fp=0x4e265e0 pc=0x535cab76 (LAMBDA () :IN ASDF/OPERATE::OPERATE)
  19: fp=0x4e266a8 pc=0x535ca6e2 (SB-PCL::FAST-METHOD ASDF/OPERATE::OPERATE :AROUND (T T))
  20: fp=0x4e26700 pc=0x535ee40e (SB-PCL::EMF ASDF/OPERATE::OPERATE)
  21: fp=0x4e267c8 pc=0x535cab76 (LAMBDA () :IN ASDF/OPERATE::OPERATE)
  22: fp=0x4e26890 pc=0x535ca6e2 (SB-PCL::FAST-METHOD ASDF/OPERATE::OPERATE :AROUND (T T))
  23: fp=0x4e26ab8 pc=0x535a6714 ASDF/SESSION::CALL-WITH-ASDF-SESSION
  24: fp=0x4e26b80 pc=0x535cafa9 (LAMBDA () :IN ASDF/OPERATE::OPERATE)
  25: fp=0x4e26da8 pc=0x535a6714 ASDF/SESSION::CALL-WITH-ASDF-SESSION
  26: fp=0x4e26e70 pc=0x535ca6e2 (SB-PCL::FAST-METHOD ASDF/OPERATE::OPERATE :AROUND (T T))
  27: fp=0x4e26ea0 pc=0x535cd292 ASDF/OPERATE::TEST-SYSTEM
  28: fp=0x4e26f78 pc=0x52ba61eb SB-INT::SIMPLE-EVAL-IN-LEXENV
  29: fp=0x4e26fa0 pc=0x52c55deb SB-EXT::EVAL-TLF
  30: fp=0x4e271f8 pc=0x52c76b57 (LABELS SB-FASL::EVAL-FORM :IN SB-INT::LOAD-AS-SOURCE)
  31: fp=0x4e27310 pc=0x52c764ab (LAMBDA (SB-KERNEL::FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT::LOAD-AS-SOURCE)
  32: fp=0x4e273c0 pc=0x52c106ab SB-C::%DO-FORMS-FROM-INFO
  33: fp=0x4e275d0 pc=0x52c75def SB-INT::LOAD-AS-SOURCE
  34: fp=0x4e276e8 pc=0x52b194ff (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD)
  35: fp=0x4e27780 pc=0x52c77034 SB-FASL::CALL-WITH-LOAD-BINDINGS
  36: fp=0x4e278b0 pc=0x52b19204 LOAD
  37: fp=0x4e27990 pc=0x52e06da3 (FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT)
  38: fp=0x4e27a30 pc=0x52e06727 (FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT)
  39: fp=0x4e27af0 pc=0x52e064be (FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-IMPL::PROCESS-SCRIPT)
  40: fp=0x4e27b90 pc=0x52e062f7 SB-IMPL::PROCESS-SCRIPT
  41: fp=0x4e27dd8 pc=0x52c56b60 SB-IMPL::TOPLEVEL-INIT
  42: fp=0x4e27e70 pc=0x52f565e4 (FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)
  43: fp=0x4e27f30 pc=0x52f563eb (FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)
  44: fp=0x4e27fc8 pc=0x52f56218 SB-IMPL::%START-LISP

Dec 21 '23 00:12 hraban