Plaster

common-lisp
CL-USER> (asdf:test-system :access) WARNING: System definition file #P"/home/phoe/Projects/Lisp/access/access.asd" contains definition for system "access-test". Please only define "access" and secondary systems with a name starting with "access/" (e.g. "access/test") in that file. WARNING: System definition file #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/lisp-unit2-20180131-git/lisp-unit2.asd" contains definition for system "lisp-unit2-test". Please only define "lisp-unit2" and secondary systems with a name starting with "lisp-unit2/" (e.g. "lisp-unit2/test") in that file. WARNING: System definition file #P"/home/phoe/.roswell/lisp/quicklisp/dists/quicklisp/software/symbol-munger-20150407-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file. ;;; Computing Hangul syllable names; in: LAMBDA () ; (ACCESS:WITH-DOT NIL ; (ITERATE:ITER ; (ITERATE:FOR (ACCESS-TEST::K ACCESS-TEST::V . REST) ACCESS-TEST::ON ; (LIST :PL1 ACCESS-TEST::+PL+ :PL2 ACCESS-TEST::+PL+) ACCESS-TEST::BY ; #'CDDR) ; (WHEN (ITERATE:FIRST-ITERATION-P) ; (LISP-UNIT2:ASSERT-EQUAL 12 ACCESS-TEST::REST.PL2.LENGTH) ; (LISP-UNIT2:ASSERT-EQUAL 4 ACCESS-TEST::REST.PL2.FOUR)) ; (LISP-UNIT2:ASSERT-EQUAL 4 ACCESS-TEST::V.FOUR))) ; --> PROGN ITERATE:ITER ; ==> ; (LET* ((#:LIST1 NIL) ; (ACCESS-TEST::K NIL) ; (ACCESS-TEST::V NIL) ; (REST NIL) ; (#:FIRST-ITERATION1 T)) ; (BLOCK NIL ; (TAGBODY ; (PROGN (SETQ #)) ; ACCESS-TEST::LOOP-TOP-NIL ; (PROGN ; (IF # ; #) ; (LET # ; # ; # ; # ; #:DSETQ0) ; (SETQ #) ; (IF #:FIRST-ITERATION1 ; #) ; (LISP-UNIT2::INTERNAL-ASSERT 'LISP-UNIT2::EQUAL-RESULT '# #'# #'# #'# ; #'EQUAL :FULL-FORM #)) ; (PROGN (SETF #)) ; (GO ACCESS-TEST::LOOP-TOP-NIL) ; ACCESS-TEST::LOOP-END-NIL ; (PROGN)) ; NIL)) ; ; caught STYLE-WARNING: ; The variable K is assigned but never read. WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("access-test")) while visiting (ASDF/LISP-ACTION:TEST-OP "access") - please use proper dependencies instead ------- STARTING Testing: ACCESS Starting: ACCESS-TEST::ACCESS-BASIC ACCESS-TEST::ACCESS-BASIC - PASSED (0.02s) : 19 assertions passed Starting: ACCESS-TEST::TEST-WITH-ACCESS ACCESS-TEST::TEST-WITH-ACCESS - PASSED (0.00s) : 5 assertions passed Starting: ACCESS-TEST::ACCESS-AND-SETTING-ALIST ACCESS-TEST::ACCESS-AND-SETTING-ALIST - PASSED (0.07s) : 4 assertions passed Starting: ACCESS-TEST::ACCESS-AND-SETTING-PLIST ACCESS-TEST::ACCESS-AND-SETTING-PLIST - PASSED (0.01s) : 4 assertions passed Starting: ACCESS-TEST::ACCESS-AND-SETTING-HASHTABLE ACCESS-TEST::ACCESS-AND-SETTING-HASHTABLE - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::ACCESS-AND-SETTING-OBJECT ACCESS-TEST::ACCESS-AND-SETTING-OBJECT - PASSED (0.01s) : 8 assertions passed Starting: ACCESS-TEST::SETTING-OBJECT-ATTRIBUTES ACCESS-TEST::SETTING-OBJECT-ATTRIBUTES - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::DOT-BASIC ACCESS-TEST::DOT-BASIC - PASSED (0.00s) : 5 assertions passed Starting: ACCESS-TEST::DOT-SET ACCESS-TEST::DOT-SET - PASSED (0.00s) : 5 assertions passed Starting: ACCESS-TEST::DOT-BASIC-READER ACCESS-TEST::DOT-BASIC-READER - PASSED (0.01s) : 11 assertions passed Starting: ACCESS-TEST::DOT-ITERATION ; in: LAMBDA () ; (ACCESS:WITH-DOT NIL ; (ITERATE:ITER ; (ITERATE:FOR (ACCESS-TEST::K ACCESS-TEST::V . REST) ACCESS-TEST::ON ; (LIST :PL1 ACCESS-TEST::+PL+ :PL2 ACCESS-TEST::+PL+) ACCESS-TEST::BY ; #'CDDR) ; (WHEN (ITERATE:FIRST-ITERATION-P) ; (LISP-UNIT2:ASSERT-EQUAL 12 ACCESS-TEST::REST.PL2.LENGTH) ; (LISP-UNIT2:ASSERT-EQUAL 4 ACCESS-TEST::REST.PL2.FOUR)) ; (LISP-UNIT2:ASSERT-EQUAL 4 ACCESS-TEST::V.FOUR))) ; --> PROGN ITERATE:ITER ; ==> ; (LET* ((#:LIST3 NIL) ; (ACCESS-TEST::K NIL) ; (ACCESS-TEST::V NIL) ; (REST NIL) ; (#:FIRST-ITERATION1 T)) ; (BLOCK NIL ; (TAGBODY ; (PROGN #) ; ACCESS-TEST::LOOP-TOP-NIL ; (PROGN # # # # #) ; (PROGN #) ; (GO ACCESS-TEST::LOOP-TOP-NIL) ; ACCESS-TEST::LOOP-END-NIL ; (PROGN)) ; NIL)) ; ; caught STYLE-WARNING: ; The variable K is assigned but never read. ACCESS-TEST::DOT-ITERATION - WARNINGS (0.00s) : 4 assertions passed | WARNINGS (1) | WARNING: The variable K is assigned but never read. | #<SB-INT:SIMPLE-STYLE-WARNING "The variable ~S is assigned but never read." {100284D1B3}> | | Starting: ACCESS-TEST::HAS-SLOT-TEST ACCESS-TEST::HAS-SLOT-TEST - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::HAS-SLOT?2 ACCESS-TEST::HAS-SLOT?2 - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::ENSURE-CALLED-WHEN-YOU-CAN ACCESS-TEST::ENSURE-CALLED-WHEN-YOU-CAN - PASSED (0.01s) : 5 assertions passed Starting: ACCESS-TEST::SLOT-DEFINITION-TESTS ACCESS-TEST::SLOT-DEFINITION-TESTS - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::TEST-HAS-READER? ACCESS-TEST::TEST-HAS-READER? - PASSED (0.00s) : 7 assertions passed Starting: ACCESS-TEST::TEST-HAS-WRITER? ACCESS-TEST::TEST-HAS-WRITER? - PASSED (0.01s) : 11 assertions passed Starting: ACCESS-TEST::DEEP-NULL-ALIST ACCESS-TEST::DEEP-NULL-ALIST - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::DEEP-NULL-DICTIONARY-INSTANTIATION ACCESS-TEST::DEEP-NULL-DICTIONARY-INSTANTIATION - PASSED (0.00s) : 6 assertions passed Starting: ACCESS-TEST::NULL-PLISTS-INSTANTIATION ACCESS-TEST::NULL-PLISTS-INSTANTIATION - PASSED (0.00s) : 1 assertions passed Starting: ACCESS-TEST::ARG-LIST-KEY-VALUE-TEST ACCESS-TEST::ARG-LIST-KEY-VALUE-TEST - PASSED (0.00s) : 7 assertions passed Starting: ACCESS-TEST::SET-ARG-LIST-KEY-VALUE-TEST ACCESS-TEST::SET-ARG-LIST-KEY-VALUE-TEST - PASSED (0.01s) : 13 assertions passed Starting: ACCESS-TEST::REM-ARG-LIST-KEY-VALUE-TEST ACCESS-TEST::REM-ARG-LIST-KEY-VALUE-TEST - PASSED (0.01s) : 10 assertions passed Starting: ACCESS-TEST::SET-ARG-LIST-KEY-VALUE-NULLS ACCESS-TEST::SET-ARG-LIST-KEY-VALUE-NULLS - PASSED (0.00s) : 4 assertions passed Test Summary for :ACCESS (24 tests 0.21 sec) | 165 assertions total | 165 passed | 0 failed | 0 execution errors | 1 warnings | 0 empty | 0 missing tests ------- ENDING Testing: ACCESS ; ; caught STYLE-WARNING: ; undefined type: :ALIST ; ; caught STYLE-WARNING: ; undefined type: :ALIST ; ; caught STYLE-WARNING: ; undefined type: :ALIST ; ; caught STYLE-WARNING: ; 6 more uses of undefined type :ALIST ; ; caught STYLE-WARNING: ; undefined type: :ARRAY ; ; caught STYLE-WARNING: ; undefined type: :PLIST ; ; caught STYLE-WARNING: ; undefined type: :PLIST ; ; caught STYLE-WARNING: ; undefined type: :PLIST ; ; caught STYLE-WARNING: ; 3 more uses of undefined type :PLIST ; ; compilation unit finished ; Undefined types: ; :ALIST :ARRAY :PLIST ; caught 11 STYLE-WARNING conditions T CL-USER>