vseloved / rutils

Radical Utilities for Common Lisp
Other
246 stars 36 forks source link

5 tests currently failed in the latest commit `79cb029` #74

Open jcguu95 opened 2 months ago

jcguu95 commented 2 months ago

On the master branch (commit 79cb029), 5 tests currently failed. The failures may have been ignored due to another mis(?)behavior of the in-house test suite rutils use.

Here are the test procedures.

CL-USER> (ql:quickload :rutils-test)
CL-USER> (should-test:test :package (find-package :rutils.test))
Test WITH-OUT-FILE/READ-FILE:   OK
T
CL-USER> (should-test:test :package (find-package :rtl))
Test HASH-TABLE-FROM-ALIST:   OK
Test MAPINDEX:   OK
Test SUBSTR:   OK
Test MAPTIMES:   OK
Test BUTLAST2:   OK
Test ->:   OK
Test DOWHILE-LET:   OK
Test XOR#:   OK
Test HASH-TABLE-FROM-PLIST:   OK
Test NOT-LESS:   OK
Test ABBR:   OK
Test LENGTH=:   OK
Test MAPTREE:   OK
Test COPY-HASH-TABLE:   OK
Test DOLEAVES:   OK
Test FMT:   OK
Test PLIST-TO-ALIST:   OK
Test SMART-SLOT-VALUE: 
(SMART-SLOT-VALUE (MAKE-FOO BAR T) 'BAR) FAIL
error: #<SB-PCL::MISSING-SLOT BAR {7018A6CD33}>
  FAILED
Test MAPPEND:   OK
Test NAMED-LAMBDA:   OK
Test ENDS-WITH:   OK
Test DYADIC:   OK
Test RANGE:   OK
Test LISTCASE:   OK
Test MERGE-HASH-TABLES:   OK
Test DECASE:   OK
Test ONCE-ONLY:   OK
Test DOPLIST:   OK
Test PCASE:   OK
Test NOT-MORE:   OK
Test IF-IT:   OK
Test PCCASE:   OK
Test SINGLE:   OK
Test DCCASE:   OK
Test HASH-TABLE-VALS:   OK
Test TAKE:   OK
Test STRCAT:   OK
Test CSWITCH:   OK
Test MAPKV:   OK
Test TREE-SIZE: 
(TREE-SIZE '(FOO)) FAIL
expect: 1
actual: 2
(TREE-SIZE '(FOO BAR)) FAIL
expect: 2
actual: 3
(TREE-SIZE '(FOO (BAR BAZ FOO))) FAIL
expect: 4
actual: 6
(TREE-SIZE '(FOO (BAR BAZ FOO) BAR)) FAIL
expect: 5
actual: 7
  FAILED
Test INTERLEAVE:   OK
Test MAPLEAVES: 
(MAPLEAVES #'1+ '(1 (2 3) (4 5))) FAIL
expect: (1 (2 4) (4 6))
actual: (2 (3 4) (5 6))
  FAILED
Test HASH-TABLE-TO-PLIST:   OK
Test ->>:   OK
Test UNION#:   OK
Test SHUFFLE:   OK
Test TREE-DEPTH:   OK
Test ROTATE:   OK
Test MAPCANINDEX:   OK
Test HASH-SET:   OK
Test TRYADIC:   OK
Test LAST1:   OK
Test MORE:   OK
Test WITH-OUTPUT-TO-LIST:   OK
Test VEC:   OK
Test ESWITCH:   OK
Test XOR:   OK
Test NSHUFFLE:   OK
Test INTER#:   OK
Test ADD#:   OK
Test HASH-TABLE-KEYS:   OK
Test DOWHILE-IT:   OK
Test COND-LET:   OK
Test BIND: 
(BIND ((A 1) (B C (VALUES 2 3)) ((D E &REST F) '(4 5 13 14 15 16))
       (((G G) (H H)) ?
        (LET ((G395 (MAKE-HASH-TABLE TEST 'EQL)))
          (SETF (GETHASH G G395) 6)
          (SETF (GETHASH H G395) 7)
          G395))
       ((I J) @ (MAKE-DUMMY-STRUCT-FOR-BIND I 8 J 9))
       (((K K) (L L)) @ (MAKE 'DUMMY-OBJ-FOR-BIND K 10 L 11))
       (#(_ M) (FUNCALL (LAMBDA () #(0 12)))))
  (LIST* A B C D E G H I J K L M F)) FAIL
error: #<SB-PCL::MISSING-SLOT J {7018AF9713}>
  FAILED
Test SUM:   OK
Test DOTABLE:   OK
Test HASH-TABLE-TO-ALIST:   OK
Test WHEN-IT:   OK
Test PECASE:   OK
Test EQUAL-LENGTHS:   OK
Test WITH-KEYS:   OK
Test BLANKP:   OK
Test AND-IT:   OK
Test DCONS:   OK
Test GROUP:   OK
Test INTERPOSE:   OK
Test SET-EQUAL:   OK
Test SWITCH:   OK
Test MULTIPLE-VALUE-PROG2:   OK
Test ENSURE-LIST:   OK
Test DLISTP:   OK
Test FLATTEN:   OK
Test LESS:   OK
Test SPLIT-STRING:   OK
Test DELETE-FROM-PLIST:   OK
Test SLICE:   OK
Test LAST-CHAR:   OK
Test AND-LET:   OK
Test IF-LET:   OK
Test DCASE:   OK
Test PARTITION-WITH:   OK
Test PERMUTATIONS:   OK
Test REMOVE-FROM-PLIST:   OK
Test STARTS-WITH:   OK
Test ALIST-TO-PLIST:   OK
Test PAIRS->HT:   OK
Test ?:   OK
Test COPY:   OK
Test PLISTP:   OK
Test DOINDEX:   OK
Test ZIP-WITH:   OK
Test STRJOIN:   OK
Test DOTREE: 
(LET (REZ)
  (DOTREE (EL '(1 (2 3) (4 5)) REZ)
    (PUSH (FIRST (MKLIST EL)) REZ))) FAIL
expect: (5 4 3 2 1)
actual: (5 4 4 3 2 2 1 1)
  FAILED
Test SPLIT-SEQUENCE:   OK
Test ALISTP:   OK
Test KEEP:   OK
Test COND-IT:   OK
Test ZIP*-WITH:   OK
Test DOLINES:   OK
Test DIFF#:   OK
Test ZIP:   OK
Test SPLIT-SEQUENCE-IF:   OK
Test ASSOC1:   OK
Test RE-SETF:   OK
Test PRINT-HASH-TABLE:   OK
Test 2ND:   OK
Test HT->PAIRS:   OK
Test ZIP*:   OK
Test LAST-ELT:   OK
Test WHEN-LET:   OK
Test PRODUCT:   OK
Test SPLIT-SEQUENCE-IF-NOT:   OK
NIL
#<HASH-TABLE :TEST EQL :COUNT 3 {7018A69BF3}>
#<HASH-TABLE :TEST EQL :COUNT 2 {7018A69C93}>
jcguu95 commented 2 months ago

The bug for smart-slot-value is delegated to issue https://github.com/vseloved/rutils/issues/77. The bug for bind is delegated to issue https://github.com/vseloved/rutils/issues/78.

The bugs for dotree, tree-size and mapleaves are fixed in pull request https://github.com/vseloved/rutils/pull/79.

Please consider merging this PR for the 3 fixed bugs.