scheme-srfis icon indicating copy to clipboard operation
scheme-srfis copied to clipboard

Unable to run tests

Open clartaq opened this issue 1 year ago • 0 comments

After doing the setup as described in the section "Using Chibi to test the implementations" in the repository README.md file, I am unable to get the tests to run successfully. There seem to be a few problems. One has to do with undefined variables. Another seems to be related to the test file itself.

The command I used and the output produced are as follows:

~/projects/chibi-scheme/chibi-scheme -I ~/projects/scheme-srfis -I ~/projects/chibi-sc
heme/lib/needed-for-init test-all.scm
WARNING: reference to undefined variable: %test-runner-auto-installed?
WARNING: reference to undefined variable: %test-runner-auto-installed!
Writing log file: tests.log
Test suite begin: SRFI
Test suite begin: SRFI-2
[PASS] SRFI-2: (and-let* () 1)
[PASS] SRFI-2: (and-let* () 1 2)
[PASS] SRFI-2: (and-let* ())
[PASS] SRFI-2: (let ((x #f)) (and-let* (x)))
[PASS] SRFI-2: (let ((x 1)) (and-let* (x)))
[PASS] SRFI-2: (and-let* ((x #f)))
[PASS] SRFI-2: (and-let* ((x 1)))
[PASS] SRFI-2: (and-let* ((#f) (x 1)))
[PASS] SRFI-2: (and-let* ((2) (x 1)))
[PASS] SRFI-2: (test-eval (quote (and-... 1)))))
[PASS] SRFI-2: (test-eval (quote (and-... 1)))))
[PASS] SRFI-2: (and-let* ((x 1) (2)))
[PASS] SRFI-2: (let ((x #f)) (and-let* (x) x))
[PASS] SRFI-2: (let ((x "")) (and-let* (x) x))
[PASS] SRFI-2: (let ((x "")) (and-let* (x)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x #f)) (and-let*... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x)))))
[PASS] SRFI-2: (let ((x 0)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x 0)) (and-let* ... x 1)))
[PASS] SRFI-2: (let ((x #f)) (and-let*... x 1)))
[PASS] SRFI-2: (let ((x #f)) (and-let*... x 1)))
[PASS] SRFI-2: (let ((x 1)) (and-let* ... x y)))
[PASS] SRFI-2: (let ((x 0)) (and-let* ... x y)))
[PASS] SRFI-2: (let ((x #f)) (and-let*... x y)))
[PASS] SRFI-2: (let ((x 3)) (and-let* ... x y)))
Test suite end: SRFI-2
Passes:            31
Expected failures: 0
Failures:          0
Unexpected passes: 0
Skipped tests:     0
[FAIL] SRFI: SRFI-2
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))

Test suite begin: SRFI-26
[PASS] SRFI-26: ((cut list))
[PASS] SRFI-26: ((cut list <...>))
[PASS] SRFI-26: ((cut list 1))
[PASS] SRFI-26: ((cut list <>) 1)
[PASS] SRFI-26: ((cut list <...>) 1)
[PASS] SRFI-26: ((cut list 1 2))
[PASS] SRFI-26: ((cut list 1 <>) 2)
[PASS] SRFI-26: ((cut list 1 <...>) 2)
[PASS] SRFI-26: ((cut list 1 <...>) 2 3 4)
[PASS] SRFI-26: ((cut list 1 <> 3 <>) 2 4)
[PASS] SRFI-26: ((cut list 1 <> 3 <...>) 2 4 5 6)
[PASS] SRFI-26: (let* ((x (quote wrong)...)) (y))
[PASS] SRFI-26: (let ((a 0)) (map (cut ...2))) a)
[PASS] SRFI-26: ((cute list))
[PASS] SRFI-26: ((cute list <...>))
[PASS] SRFI-26: ((cute list 1))
[PASS] SRFI-26: ((cute list <>) 1)
[PASS] SRFI-26: ((cute list <...>) 1)
[PASS] SRFI-26: ((cute list 1 2))
[PASS] SRFI-26: ((cute list 1 <>) 2)
[PASS] SRFI-26: ((cute list 1 <...>) 2)
[PASS] SRFI-26: ((cute list 1 <...>) 2 3 4)
[PASS] SRFI-26: ((cute list 1 <> 3 <>) 2 4)
[PASS] SRFI-26: ((cute list 1 <> 3 <...... 4 5 6)
[PASS] SRFI-26: (let ((a 0)) (map (cute...2))) a)
Test suite end: SRFI-26
Passes:            25
Expected failures: 0
Failures:          0
Unexpected passes: 0
Skipped tests:     0
[FAIL] SRFI: SRFI-26
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))

Test suite begin: SRFI-31
[PASS] SRFI-31: factorial
[PASS] SRFI-31: lazy stream
Test suite end: SRFI-31
Passes:            2
Expected failures: 0
Failures:          0
Unexpected passes: 0
Skipped tests:     0
[FAIL] SRFI: SRFI-31
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))

Test suite begin: SRFI-54
[PASS] SRFI-54: (cat 129.995 -10 2.0)
[PASS] SRFI-54: (cat 129.995 10 2.0)
[PASS] SRFI-54: (cat 129.985 10 2.0)
[PASS] SRFI-54: (cat 129.985001 10 2.0)
[PASS] SRFI-54: (cat 129.995 2.0 (quote exact))
[PASS] SRFI-54: (cat 129 -2.0)
[PASS] SRFI-54: (cat 129 2.0)
[PASS] SRFI-54: (cat 129 10 2.0 #\0 (quote sign))
[PASS] SRFI-54: (cat 129 10 2.0 #\* (quote sign))
[PASS] SRFI-54: (cat 1/3)
[PASS] SRFI-54: (cat 1/3 10 2.0)
[PASS] SRFI-54: (cat 1/3 10 -2.0)
[PASS] SRFI-54: (cat 129.995 10 (quote (#\, 2)))
[PASS] SRFI-54: (cat 129995 10 (quote (... sign))
[PASS] SRFI-54: (cat (cat 129.995 0.0) ...0 -1)))
[PASS] SRFI-54: (cat 291 (quote octal) ... sign))
[PASS] SRFI-54: (cat 291 -10 2.0 (quote...n) #\*)
[PASS] SRFI-54: (cat "string" -10)
[PASS] SRFI-54: (cat "string" 10 (list ...pcase))
[PASS] SRFI-54: (cat "string" 10 (list ... (-2)))
[PASS] SRFI-54: (cat "string" 10 (quasi...(2 3)))
[PASS] SRFI-54: (cat "string" (quasiquo...ase))))
[PASS] SRFI-54: (cat #\a 10)
[PASS] SRFI-54: (cat (quote symbol) 10)
[PASS] SRFI-54: (cat (quote #(#\a "str" s)))
[PASS] SRFI-54: (cat (quote (#\a "str" s)))
[PASS] SRFI-54: (value-and-output (cat ...)) #t))
[PASS] SRFI-54: (value-and-output (cat ...port)))
[PASS] SRFI-54: (cat 3 (cat (quote s)) ...write))
[PASS] SRFI-54: (value-and-output (cat ...rite)))
[PASS] SRFI-54: (value-and-output (cat ...rite)))
Test suite end: SRFI-54
Passes:            31
Expected failures: 0
Failures:          0
Unexpected passes: 0
Skipped tests:     0
[FAIL] SRFI: SRFI-54
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))

Test suite end: SRFI
Passes:            0
Expected failures: 0
Failures:          4
Unexpected passes: 0
Skipped tests:     0
Wrote log file: tests.log
ERROR in maybe-uninstall-default-runner on line 15 of file /usr/local/Cellar/chibi-scheme/0.10/share/chibi/scheme/misc-macros.scm: undefined variable: %test-runner-auto-installed?
  called from <anonymous> on line 1292 of file /usr/local/Cellar/chibi-scheme/0.10/share/chibi/init-7.scm
  called from <anonymous> on line 821 of file /usr/local/Cellar/chibi-scheme/0.10/share/chibi/init-7.scm
WARNING: importing already defined binding: find
WARNING: importing already defined binding: find-tail
WARNING: importing already defined binding: any
WARNING: importing already defined binding: every
WARNING: importing already defined binding: reverse!
WARNING: importing already defined binding: find
WARNING: importing already defined binding: find-tail
WARNING: importing already defined binding: any
WARNING: importing already defined binding: every
WARNING: importing already defined binding: reverse!
WARNING: importing already defined binding: find
WARNING: importing already defined binding: find-tail
WARNING: importing already defined binding: any
WARNING: importing already defined binding: every
WARNING: importing already defined binding: reverse!
WARNING: importing already defined binding: find
WARNING: importing already defined binding: find-tail
WARNING: importing already defined binding: any
WARNING: importing already defined binding: every
WARNING: importing already defined binding: reverse!
WARNING: importing already defined binding: find
WARNING: importing already defined binding: find-tail
WARNING: importing already defined binding: any
WARNING: importing already defined binding: every
WARNING: importing already defined binding: reverse!
Searching for modules exporting %test-runner-auto-installed? ...
... none found.

The contents of the log file are:

Writing log file: tests.log
Test suite begin: SRFI
[FAIL] SRFI: SRFI-2
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))
[FAIL] SRFI: SRFI-26
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))
[FAIL] SRFI: SRFI-31
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))
[FAIL] SRFI: SRFI-54
(unknown file):(unknown line): (guard (err (else #f)) (eval (quote (run-tests)) (environment (quasiquote (srfi-tests (unquote srfi-n))))))
Test suite end: SRFI
Passes:            0
Expected failures: 0
Failures:          4
Unexpected passes: 0
Skipped tests:     0
Wrote log file: tests.log

I don't quite understand how the undefined variables are used and the failures in the test script are clearly identified, but I don't know what they should be.

Any help would be appreciated.

clartaq avatar Mar 25 '23 21:03 clartaq