Skip to content

Unable to run tests #4

@clartaq

Description

@clartaq

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.

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions