[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] 'make check' of chicken 4.9.0.1 on alpine linux 3.0.4 i6
|
From: |
Zachary Storer |
|
Subject: |
[Chicken-users] 'make check' of chicken 4.9.0.1 on alpine linux 3.0.4 i686 with musl c-library (after a successful build). |
|
Date: |
Mon, 22 Sep 2014 21:08:29 +0000 |
Hello,
Below is a log of 'bash-$ make check PLATFORM=linux' on the platform
listed in the subject of this email. I'm hoping to get CHICKEN to
build and check successfully with the musl C library.
Thanks,
Zachary Storer
(aka zacts)
--
"make" -f ./Makefile.linux CONFIG= check
make[1]: Entering directory '/home/zacts/chicken-4.9.0.1'
cd tests; sh runtests.sh
======================================== version tests ...
Checking major and minor version numbers against chicken-version... ok
Checking the registered feature chicken-<major>.<minor>... ok
======================================== compiler tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'compiler-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
Warning: in toplevel procedure `foo':
(compiler-tests.scm:9) in procedure call to `bar11', expected 0
arguments, but was given 1 argument
Note: global variable `foo#bar' is only locally visible and never used
Note: global variable `bla#blabla' is only locally visible and never used
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
12
12
12
12
12
bar
1 2 3
1 2 3 :1:2:3
1 2 3
Good, unrepresentable C strings cause errors
======================================== compiler inlining tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'inlining-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -optimize-level 3
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== scrutiny tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'typematch-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -specialize
-no-warnings
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer -w
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
check fixnum 123
check string abc
check symbol (quote abc)
check char x
check true #t
check false #f
check number (+ 1 2)
check (list fixnum) (quote (1))
check (list symbol) (quote (a))
check (list fixnum) (list 1)
check pair (quote (1 . 2))
check procedure +
check vector (quote #(1))
check null (quote ())
check input-port (current-input-port)
check blob (make-blob 10)
check pointer (address->pointer 0)
check pointer-vector (make-pointer-vector 1)
check locative (make-locative a)
check (struct promise) (##sys#make-structure (quote promise))
check (pair fixnum float) (quote (1 . 2.3))
check (vector symbol) (quote #(a))
check (list string) (quote (ok))
specialize fixnum
specialize not fixnum
specialize string
specialize not string
specialize symbol
specialize not symbol
specialize char
specialize not char
specialize true
specialize not true
specialize false
specialize not false
specialize (list fixnum)
specialize not (list fixnum)
specialize pair
specialize not pair
specialize procedure
specialize not procedure
specialize (vector fixnum)
specialize not (vector fixnum)
specialize null
specialize not null
specialize undefined
specialize not undefined
specialize input-port
specialize not input-port
specialize blob
specialize not blob
specialize pointer
specialize not pointer
specialize pointer-vector
specialize not pointer-vector
specialize locative
specialize not locative
specialize (struct promise)
specialize not (struct promise)
specialize (pair fixnum float)
specialize not (pair fixnum float)
specialize (vector symbol)
specialize not (vector symbol)
specialize (or (list fixnum) symbol)
specialize not (or (list fixnum) symbol)
specialize (list fixnum)
specialize not (list fixnum)
specialize (or null pair)
specialize not (or null pair)
check predicate true boolean?
check predicate false boolean?
check predicate pair pair?
check predicate null null?
check predicate symbol symbol?
check predicate number number?
check predicate number number?
check predicate fixnum exact?
check predicate number real?
check predicate number complex?
check predicate float inexact?
check predicate char char?
check predicate string string?
check predicate vector vector?
check predicate procedure procedure?
check predicate blob blob?
check predicate (struct condition) condition?
check predicate fixnum fixnum?
check predicate float flonum?
check predicate input-port input-port?
check predicate pointer-vector pointer-vector?
check predicate pointer pointer?
list != null
null != list
pair != null
null != pair
pair != list
list != pair
(procedure (*) *) != (procedure () *)
(procedure () *) != (procedure (*) *)
(procedure (#!rest) . *) = (procedure (*) . *)
(procedure (*) . *) = (procedure (#!rest) . *)
(procedure () *) != (procedure () * *)
(procedure () * *) != (procedure () *)
specialize pair
specialize not pair
specialize (not pair)
specialize not (not pair)
specialize (not pair)
specialize not (not pair)
specialize (pair * pair)
specialize not (pair * pair)
specialize (pair * list)
specialize not (pair * list)
specialize (pair * (pair * null))
specialize not (pair * (pair * null))
specialize (pair * (pair * (not pair)))
specialize not (pair * (pair * (not pair)))
specialize (pair * (pair * (not null)))
specialize not (pair * (pair * (not null)))
specialize (pair * (pair * fixnum))
specialize not (pair * (pair * fixnum))
(pair * null) = (list *)
(list *) = (pair * null)
(pair * (list *)) = (list * *)
(list * *) = (pair * (list *))
(pair * (list fixnum)) = (list * fixnum)
(list * fixnum) = (pair * (list fixnum))
(pair fixnum (list *)) = (list fixnum *)
(list fixnum *) = (pair fixnum (list *))
(pair fixnum (pair * null)) = (list fixnum *)
(list fixnum *) = (pair fixnum (pair * null))
(pair fixnum (pair fixnum null)) = (list fixnum fixnum)
(list fixnum fixnum) = (pair fixnum (pair fixnum null))
(pair char (list fixnum)) = (list char fixnum)
(list char fixnum) = (pair char (list fixnum))
(pair fixnum (list char)) = (list fixnum char)
(list fixnum char) = (pair fixnum (list char))
(pair fixnum (list fixnum)) = (list fixnum fixnum)
(list fixnum fixnum) = (pair fixnum (list fixnum))
(pair * *) != list
list != (pair * *)
(pair * list) != list
list != (pair * list)
(pair fixnum *) != (list-of *)
(list-of *) != (pair fixnum *)
(pair fixnum *) != (list-of fixnum)
(list-of fixnum) != (pair fixnum *)
(pair fixnum (list-of *)) != (list-of fixnum)
(list-of fixnum) != (pair fixnum (list-of *))
(pair fixnum (list-of fixnum)) != (list-of fixnum)
(list-of fixnum) != (pair fixnum (list-of fixnum))
(pair char (list-of fixnum)) != (list-of fixnum)
(list-of fixnum) != (pair char (list-of fixnum))
(pair fixnum (list-of char)) != (list-of fixnum)
(list-of fixnum) != (pair fixnum (list-of char))
(pair fixnum (list-of fixnum)) != (list-of fixnum)
(list-of fixnum) != (pair fixnum (list-of fixnum))
/home/zacts/chicken-4.9.0.1/tests/../chicken 'scrutiny-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -analyze-only
-scrutinize -verbose
/home/zacts/chicken-4.9.0.1/tests/../chicken 'scrutiny-tests-2.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -analyze-only
-scrutinize -analyze-only -verbose
/home/zacts/chicken-4.9.0.1/tests/../chicken 'scrutiny-tests-3.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -specialize -block
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
/home/zacts/chicken-4.9.0.1/tests/../chicken
'scrutiny-tests-strict.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -strict-types -specialize
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== specialization tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken
'specialization-test-1.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-type-file foo.types
-specialize -debug ox -emit-import-library foo
hiding nonexported module bindings: foo#spec
hiding nonexported module bindings: foo#spec20
generating import library `foo.import.scm' for module `foo' ...
eliminated procedure checks: 6
eliminated procedure checks: 1
Note: at toplevel:
expression returns a result of type `null', but is declared to
return `undefined', which is not a subtype
specializations:
1 (set-cdr! pair *)
1 (foo#spec fixnum)
1 (= fixnum fixnum)
1 (foo#bar fixnum)
2 (zero? fixnum)
safe globals: (foo#bar foo#foo)
Note: global variable `foo#spec' is only locally visible and never used
removed side-effect free assignment to unused variable: foo#spec
contracted procedure: foo#spec20
substituted constant variable: a321
substituted constant variable: a327
substituted constant variable: a325
replaced variables: 27
removed binding forms: 17
substituted constant variable: x23
folded constant expression: (+ (quote 1) (quote 1))
removed binding forms: 26
replaced variables: 1
removed binding forms: 1
removed binding forms: 1
contracted procedure: k318
removed binding forms: 1
substituted constant variable: r319
folded constant expression: (= (quote 2) (quote 2))
contracted procedure: k268
removed binding forms: 2
substituted constant variable: r269
substituted constant variable: r269
removed conditional forms: 1
contracted procedure: k271
removed binding forms: 2
removed binding forms: 1
simplifications: ((##core#call . 9))
call simplifications:
eq? 3
##sys#setslot
list?
not
list 2
null?
contracted procedure: k241
contracted procedure: k247
contracted procedure: k253
contracted procedure: k274
contracted procedure: k277
contracted procedure: k309
contracted procedure: k280
contracted procedure: k302
contracted procedure: k286
removed binding forms: 9
substituted constant variable: r303
replaced variables: 3
removed binding forms: 2
calls to known targets: 5
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
foo: 1
bar: 1.0
/home/zacts/chicken-4.9.0.1/tests/../chicken
'specialization-test-2.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -types foo.types -specialize
-debug ox
eliminated procedure checks: 3
specializations:
1 (##sys#call-with-values (procedure () *) *)
1 (zero? fixnum)
1 (= fixnum fixnum)
1 (foo#bar fixnum)
merged explicitly consed rest parameter: args1927
consed rest parameter at call site: tmp2208 1
contracted procedure: tmp1207
substituted constant variable: a303
substituted constant variable: a301
replaced variables: 16
removed binding forms: 9
removed binding forms: 16
simplifications: ((##core#call . 5))
call simplifications:
##sys#apply
car
string-length
eq? 2
contracted procedure: k220
contracted procedure: k229
contracted procedure: k236
removed binding forms: 3
customizable procedures: (tmp2208)
calls to known targets: 3
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== specialization benchmark ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'fft.scm' -output-file
'fft1.c' -types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -optimize-level 2 -local
-debug-level 0 -disable-interrupts -block
'gcc' 'fft1.c' -o 'fft1.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm fft1.c
'gcc' 'fft1.o' -o 'fft1' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm fft1.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'fft.scm' -output-file
'fft2.c' -types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -optimize-level 2 -local
-specialize -debug x -debug-level 0 -disable-interrupts -block
-specialize
'gcc' 'fft2.c' -o 'fft2.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm fft2.c
'gcc' 'fft2.o' -o 'fft2' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm fft2.o
normal:
real 0m 4.92s
user 0m 4.58s
sys 0m 0.00s
specialized:
real 0m 2.04s
user 0m 1.93s
sys 0m 0.00s
======================================== callback tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'callback-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
callbacks ...
hi!
callbacks ...
hi!
hi!
[panic] callback returned twice - execution terminated
callback-tests.scm:16: print
callback-tests.scm:17: ##sys#gc
callback-tests.scm:17: g11
callback-tests.scm:7: call/cc
callback-tests.scm:9: print
callback-tests.scm:19: command-line-arguments
callback-tests.scm:20: k1
callback-tests.scm:9: print <--
double-return from callback failed as it should.
======================================== runtime tests ...
many arguments supported.
testing 'apply' with 0..2048 (maximum apply argument count)...
If this segfaults on x86-64, try updating GCC (4.5 has a code-generation bug):
invoking directly with 0..50...
invoking directly with 1998..2048 (maximum interpreted direct argument count)...
testing 'apply' can detect calls of too many arguments...
testing direct invocation can detect calls of too many arguments...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'apply-test.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
many arguments supported.
testing 'apply' with 0..2048 (maximum apply argument count)...
If this segfaults on x86-64, try updating GCC (4.5 has a code-generation bug):
invoking directly with 0..50...
invoking directly with 1998..2048 (maximum compiled direct argument count)...
testing 'apply' can detect calls of too many arguments...
testing direct invocation can detect calls of too many arguments...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'test-gc-hooks.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
major gc ...
>>>>> GC pre hook - mode=0, count=0
[GC] level 1 gcs(minor) 4 gcs(major) 1
[GC] stack 0x58b22310 0x58b32cb4 0x58b62310
[GC] from 0x4a2f9010 0x4a316db4 0x4a319010 0x0001dda4
[GC] to 0x4a31a010 0x4a31a010 0x4a33a010
[GC] 0 locatives (from 32)
<<<<< GC post hook - mode=1, count=0, ms=4
minor gc ...
>>>>> GC pre hook - mode=0, count=0
<<<<< GC post hook - mode=0, count=0, ms=0
alloc ...
>>>>> GC pre hook - mode=0, count=0
[GC] level 1 gcs(minor) 1 gcs(major) 2
[GC] stack 0x58b22310 0x58b61464 0x58b62310
[GC] from 0x4a31a010 0x4a337db4 0x4a33a010 0x0001dda4
[GC] to 0x4a2f9010 0x4a2f9010 0x4a319010
[GC] 0 locatives (from 32)
<<<<< GC post hook - mode=1, count=0, ms=3
>>>>> GC pre hook - mode=2, count=0
[GC] (old) fromspace: start=0x4a31a010, limit=0x4a33a010
[GC] (old) tospace: start=0x4a2f9010, limit=0x4a319010
[GC] resized heap to 10524292 bytes
[GC] (new) fromspace: start=0x49df4010, limit=0x4a2f8b52
[GC] (new) tospace: start=0x498ef010, limit=0x49df3b52
<<<<< GC post hook - mode=2, count=0, ms=0
>>>>> GC pre hook - mode=2, count=0
[GC] (old) fromspace: start=0x49df4010, limit=0x4a2f8b52
[GC] (old) tospace: start=0x498ef010, limit=0x49df3b52
[GC] resized heap to 31048588 bytes
[GC] (new) fromspace: start=0x48a20010, limit=0x498ee1d6
[GC] (new) tospace: start=0x47b51010, limit=0x48a1f1d6
<<<<< GC post hook - mode=2, count=0, ms=0
resize ...
>>>>> GC pre hook - mode=2, count=0
[GC] (old) fromspace: start=0x48a20010, limit=0x498ee1d6
[GC] (old) tospace: start=0x47b51010, limit=0x48a1f1d6
[GC] resized heap to 62097176 bytes
[GC] (new) fromspace: start=0x45db4010, limit=0x47b5039c
[GC] (new) tospace: start=0x4859e010, limit=0x4a33a39c
<<<<< GC post hook - mode=2, count=0, ms=0
major gc ...
>>>>> GC pre hook - mode=0, count=0
>>>>> GC pre hook - mode=2, count=1
[GC] (old) fromspace: start=0x45db4010, limit=0x47b5039c
[GC] (old) tospace: start=0x4859e010, limit=0x4a33a39c
[GC] resized heap to 31048588 bytes
[GC] (new) fromspace: start=0x44ee5010, limit=0x45db31d6
[GC] (new) tospace: start=0x4946c010, limit=0x4a33a1d6
<<<<< GC post hook - mode=2, count=1, ms=0
[GC] level 1 gcs(minor) 0 gcs(major) 3
[GC] stack 0x58b22310 0x58b60794 0x58b62310
[GC] from 0x44ee5010 0x44f02db4 0x45db31d6 0x0001dda4
[GC] to 0x4946c010 0x4946c010 0x4a33a1d6
[GC] 0 locatives (from 32)
<<<<< GC post hook - mode=1, count=0, ms=6
minor gc ...
>>>>> GC pre hook - mode=0, count=0
<<<<< GC post hook - mode=0, count=0, ms=0
>>>>> GC pre hook - mode=0, count=0
>>>>> GC pre hook - mode=2, count=1
[GC] (old) fromspace: start=0x44ee5010, limit=0x45db31d6
[GC] (old) tospace: start=0x4946c010, limit=0x4a33a1d6
[GC] resized heap to 15524294 bytes
[GC] (new) fromspace: start=0x48d04010, limit=0x4946b0f3
[GC] (new) tospace: start=0x49bd3010, limit=0x4a33a0f3
<<<<< GC post hook - mode=2, count=1, ms=0
[GC] level 1 gcs(minor) 1 gcs(major) 4
[GC] stack 0x58b22310 0x58b61cd4 0x58b62310
[GC] from 0x48d04010 0x48d21dd8 0x4946b0f3 0x0001ddc8
[GC] to 0x49bd3010 0x49bd3010 0x4a33a0f3
[GC] 0 locatives (from 32)
<<<<< GC post hook - mode=1, count=0, ms=4
======================================== library tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'library-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -specialize
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:27) in procedure call to `finite?', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:51) in procedure call to `exact?', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:55) in procedure call to `inexact?', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:126) in procedure call to `even?', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:127) in procedure call to `odd?', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:198) in procedure call to `min', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:199) in procedure call to `max', expected
argument #1 of type `number', but was given an argument of type
`symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:552) in procedure call to `assq', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `(list symbol)'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:553) in procedure call to `assq', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:558) in procedure call to `assv', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `(list symbol)'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:559) in procedure call to `assv', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:563) in procedure call to `assoc', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `(list string)'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:564) in procedure call to `assoc', expected
argument #2 of type `(list-of pair)', but was given an argument of
type `string'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:571) in procedure call to `memq', expected
argument #2 of type `list', but was given an argument of type `symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:576) in procedure call to `memv', expected
argument #2 of type `list', but was given an argument of type `symbol'
Warning: in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(library-tests.scm:581) in procedure call to `member', expected
argument #2 of type `list', but was given an argument of type `string'
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
/home/zacts/chicken-4.9.0.1/tests/../chicken
'records-and-setters-test.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== reader tests ...
======================================== dynamic-wind tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'dwindtst.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
*** Skipping "feeley-dynwind" for now ***
======================================== lolevel tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'lolevel-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== arithmetic tests ...
======================================== pretty-printer tests ...
======================================== evaluation environment tests ...
(PASS) (eval 123)
(PASS) (eval 123 (interaction-environment))
(PASS) (eval (quote car) (interaction-environment))
(PASS) (eval (quote foo) (interaction-environment))
(PASS) (eval (quote (begin (set! foo 99) foo)) (interaction-environment))
(PASS) (eval 123)
(PASS) (eval 123 (scheme-report-environment 5))
(PASS) (eval (quote car) (scheme-report-environment 5))
(PASS) (eval (quote foo) (scheme-report-environment 5))
(PASS) (eval (quote values) (scheme-report-environment 4))
(PASS) (eval (quote values) (scheme-report-environment 5))
(PASS) (eval (quote (set! foo 99)) (scheme-report-environment 5))
(PASS) (eval (quote (define-syntax foo (syntax-rules () ((_) 1))))
(scheme-report-environment 5))
(PASS) (eval (quote car) (null-environment 5))
(PASS) (eval (quote (cond-expand (chicken 1) (else 2))) (null-environment 4))
(PASS) (eval (quote (cond-expand (chicken 1) (else 2))) (null-environment 5))
(PASS) (eval (quote (cond-expand (chicken 1) (else 2)))
(scheme-report-environment 4))
(PASS) (eval (quote (cond-expand (chicken 1) (else 2)))
(scheme-report-environment 5))
(PASS) 1
(PASS) 1
(PASS) 1
(PASS) (eval (quote ((lambda (x) x) 123)) (null-environment 5))
(PASS) (eval (quote (bar)) foo-env)
(PASS) (eval (quote baz) foo-env)
(PASS) (eval (quote (xcons 1 2)) srfi-1-env)
(PASS) (eval (quote baz) srf-1-env)
26 tests completed in 0.066 seconds
26 (100.00%) tests passed
0 (0.00%) tests failed
======================================== syntax tests ...
3
100
(M1: (m1 n))
3628800
34
45
now
outer
7
(1 2 3 a)
(1 2 3 a)
(1 2 3 a)
#(b)
"baz"
"no baz"
"no baz"
ok
1
3
(3 4)
"x"
"x"
"bar"
"bar"
"foo#bar"
"#%void"
"foo#bar"
"#%void"
(... 1 2 3)
3
(() 1 2)
(((1) 2) 3 4)
(((1 2) (4) 3 5) 6 7)
(() 1 2)
((#() 1) 2 3)
((#(1 2) 3) 4 5)
((#(1 2) 3) 4 5 6 7)
(() 1 2 3 4)
((#(1) 2) 3 4 5 6)
((#(1 2) #(4) 3 5) 6 7 8 9)
(1)
(99)
7
(1 2 3)
10 9 8 7 6 5 4 3 2 1
10 9 8 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 9 10
3
ok
caught
(99)
10 9 8 7 6 5 4 3 2 1
10 9 8 7 6 5 4 3 2 1
Warning: reference to possibly unbound identifier `one#always-one' in:
Warning: always-two
#((99))
#((one))
(1 #(1 #(1)))
yep
1
a-procedure
#<unspecified>
1
1
void
(1 2 3 4 (5 6))
1
1
2
3
4
#f
#f
foo
#f
()
()
(1)
(1)
(1)
(1 2)
(1 2)
(1 2)
(1 2 3 4)
(1 2 3 4)
(1 2 3 4 5 6)
(ok)
2
()
()
(1)
(1)
(1)
(1 2)
(1 2)
(1 2)
(1 2 3 4)
(1 2 3 4)
(1 2 3 4 5 6)
1
unquote
a
(foo . 1)
`,a
(quasiquote x y)
,@a
(1 2)
`,(1 2)
`,@(1 2)
`(unquote 1 2)
x
`,@`,x
`,`,@x
`,`,(1 2)
(quasiquote . #(1 ,x 3))
`#(1 ,x 3)
(quasiquote a #(1 ,x 3) b)
`(unquote . #(1 (1 2) 3))
`,#(1 (1 2) 3)
`(unquote a #(1 (1 2) 3) b)
`(unquote-splicing . #(1 (1 2) 3))
`,@#(1 (1 2) 3)
`(unquote-splicing a #(1 (1 2) 3) b)
quasiquote
unquote
unquote-splicing
(x quasiquote)
(x unquote-splicing)
(a 1)
(1)
(1)
1
4
1
#<unspecified>
1
1
1
1
======================================== syntax tests (compiled) ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'syntax-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
(M1: (m1 n))
Note: assignment to imported value binding: setter
Note: at toplevel:
(syntax-tests.scm:38) in procedure call to `number?', the predicate
is called with an argument of type
`fixnum' and will always return true
Warning: in local procedure `f1732',
in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(syntax-tests.scm:398) in procedure call to `exit', expected
argument #1 of type `fixnum', but was given an argument of type
`false'
Warning: at toplevel:
assignment of value of type `fixnum' to toplevel variable `setter'
does not match declared type `(procedure setter (procedure)
procedure)'
Warning: in local procedure `f2410',
in local unknown procedure,
in local unknown procedure,
in local unknown procedure,
in toplevel unknown procedure:
(syntax-tests.scm:598) in procedure call to `exit', expected
argument #1 of type `fixnum', but was given an argument of type
`false'
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if tmp26452646 (let ((g26472648 ...)) (g26472648 tmp26452646)) 'yep)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if 1 (let ((t2670 =>2650)) 'a-procedure) 'yep)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if tmp27102711 (let ((g27122713 ...)) (g27122713 tmp27102711)) 'yep)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if tmp27362737 (let ((g27382739 ...)) (g27382739 tmp27362737)) 'yep)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if a3263 a3263 #f)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if a3292 (let ((b3293 ...)) (if b3293 b3293 #f)) #f)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`number' which is always true:
(if b3293 b3293 #f)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if c3334 (if (equal? 4 c3334) c3334 #f) #f)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`fixnum' which is always true:
(if c3344 (if (equal? 5 c3344) (error "not reached") #f) #f)
Note: at toplevel:
expected value of type boolean in conditional but were given a value of type
`symbol' which is always true:
(if a3363 a3363 #f)
Warning: redefinition of extended binding: setter
Note: global variable `prefixed-self-reference2#b' is only locally
visible and never used
Note: global variable `prefixed-self-reference2#a' is only locally
visible and never used
Note: global variable `prefixed-self-reference2#c' is only locally
visible and never used
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
3
100
3628800
34
45
now
outer
7
(1 2 3 a)
(1 2 3 a)
(1 2 3 a)
#(b)
"baz"
"no baz"
"no baz"
ok
1
3
(3 4)
"x"
"x"
"bar"
"bar"
"foo#bar"
"#%void"
"foo#bar"
"#%void"
(... 1 2 3)
3
(() 1 2)
(((1) 2) 3 4)
(((1 2) (4) 3 5) 6 7)
(() 1 2)
((#() 1) 2 3)
((#(1 2) 3) 4 5)
((#(1 2) 3) 4 5 6 7)
(() 1 2 3 4)
((#(1) 2) 3 4 5 6)
((#(1 2) #(4) 3 5) 6 7 8 9)
(1)
(99)
7
(1 2 3)
10 9 8 7 6 5 4 3 2 1
10 9 8 7 6 5 4 3 2 1
1 2 3 4 5 6 7 8 9 10
3
ok
caught
(99)
10 9 8 7 6 5 4 3 2 1
10 9 8 7 6 5 4 3 2 1
Warning: reference to possibly unbound identifier `one#always-one' in:
Warning: always-two
#((99))
#((one))
(1 #(1 #(1)))
yep
1
a-procedure
#<unspecified>
1
1
void
(1 2 3 4 (5 6))
1
1
2
3
4
#f
#f
foo
#f
()
()
(1)
(1)
(1)
(1 2)
(1 2)
(1 2)
(1 2 3 4)
(1 2 3 4)
(1 2 3 4 5 6)
(ok)
2
()
()
(1)
(1)
(1)
(1 2)
(1 2)
(1 2)
(1 2 3 4)
(1 2 3 4)
(1 2 3 4 5 6)
1
unquote
a
(foo . 1)
`,a
(quasiquote x y)
,@a
(1 2)
`,(1 2)
`,@(1 2)
`(unquote 1 2)
x
`,@`,x
`,`,@x
`,`,(1 2)
(quasiquote . #(1 ,x 3))
`#(1 ,x 3)
(quasiquote a #(1 ,x 3) b)
`(unquote . #(1 (1 2) 3))
`,#(1 (1 2) 3)
`(unquote a #(1 (1 2) 3) b)
`(unquote-splicing . #(1 (1 2) 3))
`,@#(1 (1 2) 3)
`(unquote-splicing a #(1 (1 2) 3) b)
quasiquote
unquote
unquote-splicing
(x quasiquote)
(x unquote-splicing)
(a 1)
(1)
(1)
1
4
1
#<unspecified>
1
1
1
1
======================================== syntax tests (v2, compiled) ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'syntax-tests-2.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== meta-syntax tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'meta-syntax-test.scm'
-output-file 'meta-syntax-test.c' -dynamic -feature
chicken-compile-shared -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
-emit-import-library foo
generating import library `foo.import.scm' for module `foo' ...
'gcc' 'meta-syntax-test.c' -o 'meta-syntax-test.o' -c
-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H
-DC_ENABLE_PTABLES -Os -fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm meta-syntax-test.c
'gcc' 'meta-syntax-test.o' -o 'meta-syntax-test.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm meta-syntax-test.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'foo.import.scm'
-output-file 'foo.import.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'foo.import.c' -o 'foo.import.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm foo.import.c
'gcc' 'foo.import.o' -o 'foo.import.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm foo.import.o
======================================== reexport tests ...
7
Warning: reference to possibly unbound identifier `values'
"abc-def-ghi"
1
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
7
"abc-def-ghi"
1
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m1.scm'
-output-file 'reexport-m1.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `reexport-m1.import.scm' for module `reexport-m1' ...
'gcc' 'reexport-m1.c' -o 'reexport-m1.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m1.c
'gcc' 'reexport-m1.o' -o 'reexport-m1.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m1.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m1.import.scm'
-output-file 'reexport-m1.import.c' -dynamic -feature
chicken-compile-shared -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/.. -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'reexport-m1.import.c' -o 'reexport-m1.import.o' -c
-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H
-DC_ENABLE_PTABLES -Os -fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m1.import.c
'gcc' 'reexport-m1.import.o' -o 'reexport-m1.import.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m1.import.o
(1 2 . 3)
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m2.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
(1 2 . 3)
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m3.scm'
-output-file 'reexport-m3.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `reexport-m3.import.scm' for module `reexport-m3' ...
'gcc' 'reexport-m3.c' -o 'reexport-m3.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m3.c
'gcc' 'reexport-m3.o' -o 'reexport-m3.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m3.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m4.scm'
-output-file 'reexport-m4.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `reexport-m4.import.scm' for module `reexport-m4' ...
'gcc' 'reexport-m4.c' -o 'reexport-m4.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m4.c
'gcc' 'reexport-m4.o' -o 'reexport-m4.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m4.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m5.scm'
-output-file 'reexport-m5.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `reexport-m5.import.scm' for module `reexport-m5' ...
'gcc' 'reexport-m5.c' -o 'reexport-m5.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m5.c
'gcc' 'reexport-m5.o' -o 'reexport-m5.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m5.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-m6.scm'
-output-file 'reexport-m6.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `reexport-m6.import.scm' for module `reexport-m6' ...
'gcc' 'reexport-m6.c' -o 'reexport-m6.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm reexport-m6.c
'gcc' 'reexport-m6.o' -o 'reexport-m6.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm reexport-m6.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'reexport-tests-2.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
1
11======================================== functor tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken
'simple-functors-test.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
Queue representation #1:
0.167s CPU time, 0.148s GC time (major), 15 mutations, 23/40 GCs (major/minor)
Queue representation #2:
3.396s CPU time, 1.153s GC time (major), 15 mutations, 199/4819 GCs
(major/minor)
Queue representation #3:
0.024s CPU time, 15 mutations, 0/52 GCs (major/minor)
("")
(PASS) argument mismatch
(PASS) undefined module
(PASS) undefined interface
(PASS) undefined interface in functor
(PASS) undefined interface in functor result
(PASS) alternative functor instantiation syntax
6 tests completed in 4.790 seconds
6 (100.00%) tests passed
0 (0.00%) tests failed
/home/zacts/chicken-4.9.0.1/tests/../chicken 'functor-tests.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
Note: global variable `queue2#entry-x-set!' is only locally visible
and never used
Note: global variable `queue3#queue-tails-set!' is only locally
visible and never used
Note: global variable `queue3#queue-heads-set!' is only locally
visible and never used
Note: global variable `queue2#entry?' is only locally visible and never used
Note: global variable `queue3#queue?' is only locally visible and never used
Note: global variable `queue2#entry-q-set!' is only locally visible
and never used
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
Queue representation #1:
0.144s CPU time, 0.014s GC time (major), 9/208 GCs (major/minor)
Queue representation #2:
1.08s CPU time, 0.166s GC time (major), 55/1537 GCs (major/minor)
Queue representation #3:
0.007s CPU time, 0/11 GCs (major/minor)
("")
(PASS) alternative functor instantiation syntax
1 tests completed in 1.290 seconds
1 (100.00%) tests passed
0 (0.00%) tests failed
/home/zacts/chicken-4.9.0.1/tests/../chicken 'square-functor.scm'
-output-file 'a.c' -dynamic -feature chicken-compile-shared -types
../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-all-import-libraries
generating import library `square-functor.import.scm' for module
`square-functor' ...
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-fPIC -DPIC -DC_SHARED -I/home/zacts/chicken-4.9.0.1/tests/..
-I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -shared -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
/home/zacts/chicken-4.9.0.1/tests/../chicken
'square-functor.import.scm' -output-file 'a.c' -dynamic -feature
chicken-compile-shared -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-fPIC -DPIC -DC_SHARED -I/home/zacts/chicken-4.9.0.1/tests/..
-I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -shared -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'use-square-functor.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
Note: re-importing already imported identifier: *
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== compiler syntax tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken
'compiler-syntax-tests.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
9
7
(cs-goo 2)
zzz
======================================== import tests ...
expect warning ...
Warning: reference to possibly unbound identifier `s8vector?'
======================================== import library tests ...
/home/zacts/chicken-4.9.0.1/tests/../chicken
'import-library-test1.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-import-library foo
generating import library `foo.import.scm' for module `foo' ...
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'foo.import.scm'
-output-file 'foo.import.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'foo.import.c' -o 'foo.import.o' -c -fno-strict-aliasing
-fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os
-fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm foo.import.c
'gcc' 'foo.import.o' -o 'foo.import.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm foo.import.o
/home/zacts/chicken-4.9.0.1/tests/../chicken
'import-library-test2.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== optionals test ...
/home/zacts/chicken-4.9.0.1/tests/../chicken 'test-optional.scm'
-output-file 'a.c' -types ../types.db -ignore-repository -verbose
-include-path /home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
======================================== syntax tests (matchable) ...
(PASS) any
(PASS) symbol
(PASS) number
(PASS) string
(PASS) literal symbol
(PASS) null
(PASS) pair
(PASS) vector
(PASS) any doubled
(PASS) and empty
(PASS) and single
(PASS) and double
(PASS) or empty
(PASS) or single
(PASS) or double
(PASS) not
(PASS) pred
(PASS) named pred
(PASS) duplicate symbols pass
(PASS) duplicate symbols fail
(PASS) duplicate symbols samth
(PASS) ellipses
(PASS) real ellipses
(PASS) vector ellipses
(PASS) pred ellipses
(PASS) failure continuation
(PASS) let
(PASS) let*
(PASS) getter car
(PASS) getter cdr
(PASS) getter vector
(PASS) setter car
(PASS) setter cdr
(PASS) setter vector
(PASS) single tail
(PASS) single tail 2
(PASS) multiple tail
(PASS) Riastradh quasiquote
38 tests completed in 0.866 seconds
38 (100.00%) tests passed
0 (0.00%) tests failed
======================================== syntax tests (loopy-loop) ...
(PASS) stepping
(PASS) basic in-list
(PASS) in-list with result
(PASS) in-list with collecting
(PASS) uneven length in-list's
(PASS) in-lists
(PASS) flatten (recursion test)
(PASS) in-string
(PASS) in-string with start
(PASS) in-string with start and end
(PASS) in-string with start, end and step
(PASS) in-string-reverse
(PASS) in-vector
(PASS) in-permutations
(PASS) in-permutations with length
(PASS) in-combinations
(PASS) in-hash-table
17 tests completed in 2.043 seconds
17 (100.00%) tests passed
0 (0.00%) tests failed
======================================== r4rstest ...
(expect mult-float-print-test to fail)
======================================== syntax tests (r5rs_pitfalls) ...
(expect two failures)
Passed: 1.1
Passed: 1.2
Passed: 1.3
Passed: 2.1
Passed: 3.1
Passed: 3.2
Passed: 3.3
Passed: 3.4
Passed: 4.1
Passed: 4.2
Passed: 4.3
Passed: 5.1
Passed: 5.2
Passed: 5.3
Passed: 6.1
Passed: 7.1
Passed: 7.2
Passed: 7.3
Passed: 7.4
Passed: 8.1
Passed: 8.2
Passed: 8.3
Map is not call/cc safe, but probably tail recursive and efficient.
======================================== r7rs tests ...
(section 4 2 1)
(#<procedure (?)>) ==> 1
(#<procedure (?)>) ==> foo
(#<procedure (?)>) ==> "a"
(#<procedure (?)>) ==> "a"
(#<procedure (?)>)
(#<procedure (?)>)
(section 4 2 5)
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (##sys#force obj261)> #<promise>) ==> 1
(#<procedure (procedure? x1751)> #<procedure (? . _)>) ==> #t
(#<procedure (##sys#force obj261)> #<promise>) ==> 1
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (##sys#force obj261)> 1) ==> 1
(#<procedure (##sys#force obj261)> #<procedure (##sys#force obj261)>)
==> #<procedure (##sys#force obj261)>
(#<procedure (##sys#force obj261)> #<promise>) ==> 3
(#<procedure (list . lst381)> 3 3) ==> (3 3)
(#<procedure (head stream)> #<promise>) ==> 0
(#<procedure (head stream)> #<promise>) ==> 0
(#<procedure (head stream)> #<promise>) ==> 1
(#<procedure (head stream)> #<promise>) ==> 2
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (##sys#force obj261)> #<promise>) ==> 6
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (##sys#force obj261)> #<promise>) ==> 6
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#<procedure (##sys#force obj261)> #<promise>) ==> 1
(#<procedure (##sys#force obj261)> #<promise>) ==> 6
(#<procedure (promise? x5065)> #<promise>) ==> #t
(#f (1 2 3)) ==> (1 2 3)
(#f (4 5 6)) ==> (4 5 6)
(#f ()) ==> ()
(section 6 6)
(#<procedure (integer->named-char x)> 7) ==> "#\\alarm"
(#<procedure (integer->named-char x)> 8) ==> "#\\backspace"
(#<procedure (integer->named-char x)> 127) ==> "#\\delete"
(#<procedure (integer->named-char x)> 27) ==> "#\\escape"
(#<procedure (integer->named-char x)> 10) ==> "#\\newline"
(#<procedure (integer->named-char x)> 0) ==> "#\\null"
(#<procedure (integer->named-char x)> 13) ==> "#\\return"
(#<procedure (integer->named-char x)> 32) ==> "#\\space"
(#<procedure (integer->named-char x)> 9) ==> "#\\tab"
(section 6 7)
(#<procedure (escaped-char x)> "a") ==> #\alarm
(#<procedure (escaped-char x)> "b") ==> #\backspace
(#<procedure (escaped-char x)> "t") ==> #\tab
(#<procedure (escaped-char x)> "n") ==> #\newline
(#<procedure (escaped-char x)> "r") ==> #\return
(#<procedure (escaped-char x)> "\"") ==> #\"
(#<procedure (escaped-char x)> "\\") ==> #\\
(#<procedure (escaped-char x)> "|") ==> #\|
(#<procedure (escaped-char x)> "\n END") ==> #\E
(#<procedure (escaped-char x)> "\r END") ==> #\E
(#<procedure (escaped-char x)> "\r\n END") ==> #\E
(#<procedure (escaped-char x)> " \nEND") ==> #\E
(#<procedure (escaped-char x)> " \nEND") ==> #\E
(#<procedure (escaped-char x)> " \n END") ==> #\E
(#<procedure (escaped-char x)> " \n \n END") ==> #\newline
(#<procedure (escaped-char x)> " \r \n END") ==> #\newline
(#<procedure (escaped-char x)> "\t\n\t END") ==> #\E
(#<procedure (read-escaped-string x)> " \n ") ==> ""
(section 6 8)
(#f #(0 (2 2 2 2) "Anna")) ==> #(0 (2 2 2 2) "Anna")
(#<procedure (vector? x1526)> #(0 (a b) c)) ==> #t
(#<procedure (vector? x1526)> #(0 (a b) c)) ==> #t
(#f #(0 (a b) c d #(1 2 (e) f) g)) ==> #(0 (a b) c d #(1 2 (e) f) g)
Passed all tests
======================================== module tests ...
(PASS) internal/variable
(PASS) external/unimported variable (fail)
(PASS) external/unimported syntax (fail)
(PASS) external/imported variable
(PASS) external/imported syntax
(PASS) modified import
(PASS) hidden import
(PASS) prefixed import and reexport
ok.
(PASS) indirect imports
f1
(PASS) chained indirect imports
(PASS) literal compare and export
(PASS) redefinition of indirect import
(PASS) redefinition of indirect import (II)
(PASS) value reexport
(PASS) syntax reexport
(PASS) primitive indirect value-binding reexport
(PASS) extended lambda list uses expansion environment
#<procedure (filter pred657 lis658)>
(PASS) function defined in module that is the result of an expansion
(PASS) syntax defined in module that is the result of an expansion
(PASS) global module alias scope (1)
(PASS) local module alias scope
(PASS) global module alias scope (2)
(PASS) `*' export-list + explicit export
1
1
2
(PASS) handle star-exporting module with reexport
(PASS) star-export with explicit re-export of syntax
25 tests completed in 0.520 seconds
25 (100.00%) tests passed
0 (0.00%) tests failed
()
f1
oinkoink
======================================== module tests (compiled) ...
/home/zacts/chicken-4.9.0.1/tests/../chicken
'module-tests-compiled.scm' -output-file 'a.c' -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'a.c' -o 'a.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm a.c
'gcc' 'a.o' -o 'a.out' -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm a.o
(PASS) inline in syntax
(PASS) unmarked primitive exports
2 tests completed in 0.000 seconds
2 (100.00%) tests passed
0 (0.00%) tests failed
======================================== module tests (chained) ...
f1
/home/zacts/chicken-4.9.0.1/tests/../chicken
'test-chained-modules.scm' -output-file 'test-chained-modules.c'
-dynamic -feature chicken-compile-shared -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-import-library m3
generating import library `m3.import.scm' for module `m3' ...
'gcc' 'test-chained-modules.c' -o 'test-chained-modules.o' -c
-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H
-DC_ENABLE_PTABLES -Os -fomit-frame-pointer -fPIC -DPIC -DC_SHARED
-I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm test-chained-modules.c
'gcc' 'test-chained-modules.o' -o 'test-chained-modules.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm test-chained-modules.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'm3.import.scm'
-output-file 'm3.import.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'm3.import.c' -o 'm3.import.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-fPIC -DPIC -DC_SHARED -I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm m3.import.c
'gcc' 'm3.import.o' -o 'm3.import.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm m3.import.o
CHICKEN
(c) 2008-2014, The Chicken Team
(c) 2000-2007, Felix L. Winkelmann
Version 4.9.0.1 (stability/4.9.0) (rev 8b3189b)
linux-unix-gnu-x86 [ manyargs dload ptables ]
bootstrapped 2014-06-07
; loading test-chained-modules.so ...
; loading /home/zacts/chicken-4.9.0.1/tests/../chicken.import.so ...
f1
f1
f1
======================================== module tests (ec) ...
(let ((x 0)) (do-ec (set! x (+ x 1))) x)
=> 1 ; correct
(let ((x 0)) (do-ec (:range i 10) (set! x (+ x 1))) x)
=> 10 ; correct
(let ((x 0)) (do-ec (:range n 10) (:range k n) (set! x (+ x 1))) x)
=> 45 ; correct
(list-ec 1)
=> (1) ; correct
(list-ec (:range i 4) i)
=> (0 1 2 3) ; correct
(list-ec (:range n 3) (:range k (+ n 1)) (list n k))
=> ((0 0) (1 0) (1 1) (2 0) (2 1) (2 2)) ; correct
(list-ec (:range n 5) (if (even? n)) (:range k (+ n 1)) (list n k))
=> ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(list-ec (:range n 5) (not (even? n)) (:range k (+ n 1)) (list n k))
=> ((1 0) (1 1) (3 0) (3 1) (3 2) (3 3)) ; correct
(list-ec (:range n 5) (and (even? n) (> n 2)) (:range k (+ n 1)) (list n k))
=> ((4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(list-ec (:range n 5) (or (even? n) (> n 3)) (:range k (+ n 1)) (list n k))
=> ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(let ((x 0)) (list-ec (:range n 10) (begin (set! x (+ x 1))) n) x)
=> 10 ; correct
(list-ec (nested (:range n 3) (:range k n)) k)
=> (0 0 1) ; correct
(append-ec (quote (a b)))
=> (a b) ; correct
(append-ec (:range i 0) (quote (a b)))
=> () ; correct
(append-ec (:range i 1) (quote (a b)))
=> (a b) ; correct
(append-ec (:range i 2) (quote (a b)))
=> (a b a b) ; correct
(string-ec #\a)
=> "a" ; correct
(string-ec (:range i 0) #\a)
=> "" ; correct
(string-ec (:range i 1) #\a)
=> "a" ; correct
(string-ec (:range i 2) #\a)
=> "aa" ; correct
(string-append-ec "ab")
=> "ab" ; correct
(string-append-ec (:range i 0) "ab")
=> "" ; correct
(string-append-ec (:range i 1) "ab")
=> "ab" ; correct
(string-append-ec (:range i 2) "ab")
=> "abab" ; correct
(vector-ec 1)
=> #(1) ; correct
(vector-ec (:range i 0) i)
=> #() ; correct
(vector-ec (:range i 1) i)
=> #(0) ; correct
(vector-ec (:range i 2) i)
=> #(0 1) ; correct
(vector-of-length-ec 1 1)
=> #(1) ; correct
(vector-of-length-ec 0 (:range i 0) i)
=> #() ; correct
(vector-of-length-ec 1 (:range i 1) i)
=> #(0) ; correct
(vector-of-length-ec 2 (:range i 2) i)
=> #(0 1) ; correct
(sum-ec 1)
=> 1 ; correct
(sum-ec (:range i 0) i)
=> 0 ; correct
(sum-ec (:range i 1) i)
=> 0 ; correct
(sum-ec (:range i 2) i)
=> 1 ; correct
(sum-ec (:range i 3) i)
=> 3 ; correct
(product-ec 1)
=> 1 ; correct
(product-ec (:range i 1 0) i)
=> 1 ; correct
(product-ec (:range i 1 1) i)
=> 1 ; correct
(product-ec (:range i 1 2) i)
=> 1 ; correct
(product-ec (:range i 1 3) i)
=> 2 ; correct
(product-ec (:range i 1 4) i)
=> 6 ; correct
(min-ec 1)
=> 1 ; correct
(min-ec (:range i 1) i)
=> 0 ; correct
(min-ec (:range i 2) i)
=> 0 ; correct
(max-ec 1)
=> 1 ; correct
(max-ec (:range i 1) i)
=> 0 ; correct
(max-ec (:range i 2) i)
=> 1 ; correct
(first-ec #f 1)
=> 1 ; correct
(first-ec #f (:range i 0) i)
=> #f ; correct
(first-ec #f (:range i 1) i)
=> 0 ; correct
(first-ec #f (:range i 2) i)
=> 0 ; correct
(let ((last-i -1)) (first-ec #f (:range i 10) (begin (set! last-i i)) i) last-i)
=> 0 ; correct
(last-ec #f 1)
=> 1 ; correct
(last-ec #f (:range i 0) i)
=> #f ; correct
(last-ec #f (:range i 1) i)
=> 0 ; correct
(last-ec #f (:range i 2) i)
=> 1 ; correct
(any?-ec #f)
=> #f ; correct
(any?-ec #t)
=> #t ; correct
(any?-ec (:range i 2 2) (even? i))
=> #f ; correct
(any?-ec (:range i 2 3) (even? i))
=> #t ; correct
(every?-ec #f)
=> #f ; correct
(every?-ec #t)
=> #t ; correct
(every?-ec (:range i 2 2) (even? i))
=> #t ; correct
(every?-ec (:range i 2 3) (even? i))
=> #t ; correct
(every?-ec (:range i 2 4) (even? i))
=> #f ; correct
(let ((sum-sqr (lambda (x result) (+ result (* x x))))) (fold-ec 0
(:range i 10) i sum-sqr))
=> 285 ; correct
(let ((minus-1 (lambda (x) (- x 1))) (sum-sqr (lambda (x result) (+
result (* x x))))) (fold3-ec (error "wrong") (:range i 10) i minus-1
sum-sqr))
=> 284 ; correct
(fold3-ec (quote infinity) (:range i 0) i min min)
=> infinity ; correct
(list-ec (:list x (quote ())) x)
=> () ; correct
(list-ec (:list x (quote (1))) x)
=> (1) ; correct
(list-ec (:list x (quote (1 2 3))) x)
=> (1 2 3) ; correct
(list-ec (:list x (quote (1)) (quote (2))) x)
=> (1 2) ; correct
(list-ec (:list x (quote (1)) (quote (2)) (quote (3))) x)
=> (1 2 3) ; correct
(list-ec (:string c "") c)
=> () ; correct
(list-ec (:string c "1") c)
=> (#\1) ; correct
(list-ec (:string c "123") c)
=> (#\1 #\2 #\3) ; correct
(list-ec (:string c "1" "2") c)
=> (#\1 #\2) ; correct
(list-ec (:string c "1" "2" "3") c)
=> (#\1 #\2 #\3) ; correct
(list-ec (:vector x (vector)) x)
=> () ; correct
(list-ec (:vector x (vector 1)) x)
=> (1) ; correct
(list-ec (:vector x (vector 1 2 3)) x)
=> (1 2 3) ; correct
(list-ec (:vector x (vector 1) (vector 2)) x)
=> (1 2) ; correct
(list-ec (:vector x (vector 1) (vector 2) (vector 3)) x)
=> (1 2 3) ; correct
(list-ec (:range x -2) x)
=> () ; correct
(list-ec (:range x -1) x)
=> () ; correct
(list-ec (:range x 0) x)
=> () ; correct
(list-ec (:range x 1) x)
=> (0) ; correct
(list-ec (:range x 2) x)
=> (0 1) ; correct
(list-ec (:range x 0 3) x)
=> (0 1 2) ; correct
(list-ec (:range x 1 3) x)
=> (1 2) ; correct
(list-ec (:range x -2 -1) x)
=> (-2) ; correct
(list-ec (:range x -2 -2) x)
=> () ; correct
(list-ec (:range x 1 5 2) x)
=> (1 3) ; correct
(list-ec (:range x 1 6 2) x)
=> (1 3 5) ; correct
(list-ec (:range x 5 1 -2) x)
=> (5 3) ; correct
(list-ec (:range x 6 1 -2) x)
=> (6 4 2) ; correct
(list-ec (:real-range x 0.0 3.0) x)
=> (0.0 1.0 2.0) ; correct
(list-ec (:real-range x 0 3.0) x)
=> (0.0 1.0 2.0) ; correct
(list-ec (:real-range x 0 3 1.0) x)
=> (0.0 1.0 2.0) ; correct
(string-ec (:char-range c #\a #\z) c)
=> "abcdefghijklmnopqrstuvwxyz" ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port
read) x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port)
x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (:do ((i 0)) (< i 4) ((+ i 1))) i)
=> (0 1 2 3) ; correct
(list-ec (:do (let ((x (quote x)))) ((i 0)) (< i 4) (let ((j (- 10
i)))) #t ((+ i 1))) j)
=> (10 9 8 7) ; correct
(list-ec (:let x 1) x)
=> (1) ; correct
(list-ec (:let x 1) (:let y (+ x 1)) y)
=> (2) ; correct
(list-ec (:let x 1) (:let x (+ x 1)) x)
=> (2) ; correct
(list-ec (:parallel (:range i 1 10) (:list x (quote (a b c)))) (list i x))
=> ((1 a) (2 b) (3 c)) ; correct
(list-ec (:while (:range i 1 10) (< i 5)) i)
=> (1 2 3 4) ; correct
(list-ec (:until (:range i 1 10) (>= i 5)) i)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:list i (quote (1 2 3 4 5 6 7 8 9))) (< i 5)) i)
=> (1 2 3 4) ; correct
(list-ec (:until (:list i (quote (1 2 3 4 5 6 7 8 9))) (>= i 5)) i)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:vector x (index i) (quote #(1 2 3 4 5))) (< x 10)) x)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5
6 7 8 9)))) (< i 5)) (list i j))
=> ((1 1) (2 2) (3 3) (4 4)) ; correct
(list-ec (:until (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5
6 7 8 9)))) (>= i 5)) (list i j))
=> ((1 1) (2 2) (3 3) (4 4) (5 5)) ; correct
(let ((n 0)) (do-ec (:while (:range i 1 10) (begin (set! n (+ n 1)) (<
i 5))) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:until (:range i 1 10) (begin (set! n (+ n 1))
(>= i 5))) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:while (:parallel (:range i 1 10) (:do () (begin
(set! n (+ n 1)) #t) ())) (< i 5)) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:until (:parallel (:range i 1 10) (:do () (begin
(set! n (+ n 1)) #t) ())) (>= i 5)) (if #f #f)) n)
=> 5 ; correct
(list-ec (: c (quote (a b))) c)
=> (a b) ; correct
(list-ec (: c (quote (a b)) (quote (c d))) c)
=> (a b c d) ; correct
(list-ec (: c "ab") c)
=> (#\a #\b) ; correct
(list-ec (: c "ab" "cd") c)
=> (#\a #\b #\c #\d) ; correct
(list-ec (: c (vector (quote a) (quote b))) c)
=> (a b) ; correct
(list-ec (: c (vector (quote a) (quote b)) (vector (quote c))) c)
=> (a b c) ; correct
(list-ec (: i 0) i)
=> () ; correct
(list-ec (: i 1) i)
=> (0) ; correct
(list-ec (: i 10) i)
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (: i 1 2) i)
=> (1) ; correct
(list-ec (: i 1 2 3) i)
=> (1) ; correct
(list-ec (: i 1 9 3) i)
=> (1 4 7) ; correct
(list-ec (: i 0.0 1.0 0.2) i)
=> (0.0 0.2 0.4 0.6 0.8) ; correct
(list-ec (: c #\a #\c) c)
=> (#\a #\b #\c) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port
read) x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port)
x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (:list c (index i) (quote (a b))) (list c i))
=> ((a 0) (b 1)) ; correct
(list-ec (:string c (index i) "a") (list c i))
=> ((#\a 0)) ; correct
(list-ec (:vector c (index i) (vector (quote a))) (list c i))
=> ((a 0)) ; correct
(list-ec (:range i (index j) 0 -3 -1) (list i j))
=> ((0 0) (-1 1) (-2 2)) ; correct
(list-ec (:real-range i (index j) 0 1 0.2) (list i j))
=> ((0.0 0) (0.2 1) (0.4 2) (0.6 3) (0.8 4)) ; correct
(list-ec (:char-range c (index i) #\a #\c) (list c i))
=> ((#\a 0) (#\b 1) (#\c 2)) ; correct
(list-ec (: x (index i) (quote (a b c d))) (list x i))
=> ((a 0) (b 1) (c 2) (d 3)) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x (index i)
port) (list x i)))))
=> ((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9)) ; correct
(list-ec (: i 5) (* i i))
=> (0 1 4 9 16) ; correct
(list-ec (: n 1 4) (: i n) (list n i))
=> ((1 0) (2 0) (2 1) (3 0) (3 1) (3 2)) ; correct
(list-ec (: x (index i) "abc") (list x i))
=> ((#\a 0) (#\b 1) (#\c 2)) ; correct
(list-ec (:string c (index i) "a" "b") (cons c i))
=> ((#\a . 0) (#\b . 1)) ; correct
(list-ec (:range x 5) (:range x x) x)
=> (0 0 1 0 1 2 0 1 2 3) ; correct
(list-ec (:list x (quote (2 "23" (4)))) (: y x) y)
=> (0 1 #\2 #\3 4) ; correct
(list-ec (:parallel (:integers x) (:do ((i 10)) (< x i) ((- i 1)))) (list x i))
=> ((0 10) (1 9) (2 8) (3 7) (4 6)) ; correct
(factorial 0)
=> 1 ; correct
(factorial 1)
=> 1 ; correct
(factorial 3)
=> 6 ; correct
(factorial 5)
=> 120 ; correct
(eratosthenes 50)
=> (2 3 5 7 11 13 17 19 23 29 31 37 41 43 47) ; correct
(length (eratosthenes 100000))
=> 9592 ; correct
(pythagoras 15)
=> ((3 4 5) (5 12 13) (6 8 10) (9 12 15)) ; correct
(length (pythagoras 200))
=> 127 ; correct
(qsort (quote (1 5 4 2 4 5 3 2 1 3)))
=> (1 1 2 2 3 3 4 4 5 5) ; correct
(pi-BBP 5)
=> 3.14159265322809 ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f)) (read-lines
"tmp1"))
=> ("0\n" "1\n" "2\n" "3\n" "4\n" "5\n" "6\n" "7\n" "8\n" "9\n") ; correct
correct examples : 163
wrong examples : 0
/home/zacts/chicken-4.9.0.1/tests/../chicken 'ec.scm' -output-file
'ec.c' -dynamic -feature chicken-compile-shared -types ../types.db
-ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -emit-import-library ec
generating import library `ec.import.scm' for module `ec' ...
Note: in local unknown procedure,
in toplevel procedure `ec#make-initial-:-dispatch':
(ec.scm:758) in procedure call to `real?', the predicate is called
with an argument of type
`number' and will always return true
Note: in local unknown procedure,
in toplevel procedure `ec#make-initial-:-dispatch':
(ec.scm:758) in procedure call to `real?', the predicate is called
with an argument of type
`fixnum' and will always return true
Note: in local unknown procedure,
in toplevel procedure `ec#make-initial-:-dispatch':
(ec.scm:767) in procedure call to `string?', the predicate is called
with an argument of type
`string' and will always return true
Note: in local unknown procedure,
in toplevel procedure `ec#make-initial-:-dispatch':
(ec.scm:774) in procedure call to `real?', the predicate is called
with an argument of type
`fixnum' and will always return true
Note: in local unknown procedure,
in toplevel procedure `ec#make-initial-:-dispatch':
(ec.scm:785) in procedure call to `string?', the predicate is called
with an argument of type
`string' and will always return true
'gcc' 'ec.c' -o 'ec.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-fPIC -DPIC -DC_SHARED -I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm ec.c
'gcc' 'ec.o' -o 'ec.so' -shared -L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm ec.o
/home/zacts/chicken-4.9.0.1/tests/../chicken 'ec.import.scm'
-output-file 'ec.import.c' -dynamic -feature chicken-compile-shared
-types ../types.db -ignore-repository -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/.. -verbose -include-path
/home/zacts/chicken-4.9.0.1/tests/..
'gcc' 'ec.import.c' -o 'ec.import.o' -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer
-fPIC -DPIC -DC_SHARED -I/home/zacts/chicken-4.9.0.1/tests/..
-I/home/zacts/chicken-4.9.0.1/tests/.. -I"/usr/local/include/chicken"
rm ec.import.c
'gcc' 'ec.import.o' -o 'ec.import.so' -shared
-L/home/zacts/chicken-4.9.0.1/tests/..
-Wl,-R/home/zacts/chicken-4.9.0.1/tests/..
-L/home/zacts/chicken-4.9.0.1/tests/.. -L"/usr/local/lib"
-Wl,-R"/usr/local/lib" -lchicken -lm -ldl
rm ec.import.o
(let ((x 0)) (do-ec (set! x (+ x 1))) x)
=> 1 ; correct
(let ((x 0)) (do-ec (:range i 10) (set! x (+ x 1))) x)
=> 10 ; correct
(let ((x 0)) (do-ec (:range n 10) (:range k n) (set! x (+ x 1))) x)
=> 45 ; correct
(list-ec 1)
=> (1) ; correct
(list-ec (:range i 4) i)
=> (0 1 2 3) ; correct
(list-ec (:range n 3) (:range k (+ n 1)) (list n k))
=> ((0 0) (1 0) (1 1) (2 0) (2 1) (2 2)) ; correct
(list-ec (:range n 5) (if (even? n)) (:range k (+ n 1)) (list n k))
=> ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(list-ec (:range n 5) (not (even? n)) (:range k (+ n 1)) (list n k))
=> ((1 0) (1 1) (3 0) (3 1) (3 2) (3 3)) ; correct
(list-ec (:range n 5) (and (even? n) (> n 2)) (:range k (+ n 1)) (list n k))
=> ((4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(list-ec (:range n 5) (or (even? n) (> n 3)) (:range k (+ n 1)) (list n k))
=> ((0 0) (2 0) (2 1) (2 2) (4 0) (4 1) (4 2) (4 3) (4 4)) ; correct
(let ((x 0)) (list-ec (:range n 10) (begin (set! x (+ x 1))) n) x)
=> 10 ; correct
(list-ec (nested (:range n 3) (:range k n)) k)
=> (0 0 1) ; correct
(append-ec (quote (a b)))
=> (a b) ; correct
(append-ec (:range i 0) (quote (a b)))
=> () ; correct
(append-ec (:range i 1) (quote (a b)))
=> (a b) ; correct
(append-ec (:range i 2) (quote (a b)))
=> (a b a b) ; correct
(string-ec #\a)
=> "a" ; correct
(string-ec (:range i 0) #\a)
=> "" ; correct
(string-ec (:range i 1) #\a)
=> "a" ; correct
(string-ec (:range i 2) #\a)
=> "aa" ; correct
(string-append-ec "ab")
=> "ab" ; correct
(string-append-ec (:range i 0) "ab")
=> "" ; correct
(string-append-ec (:range i 1) "ab")
=> "ab" ; correct
(string-append-ec (:range i 2) "ab")
=> "abab" ; correct
(vector-ec 1)
=> #(1) ; correct
(vector-ec (:range i 0) i)
=> #() ; correct
(vector-ec (:range i 1) i)
=> #(0) ; correct
(vector-ec (:range i 2) i)
=> #(0 1) ; correct
(vector-of-length-ec 1 1)
=> #(1) ; correct
(vector-of-length-ec 0 (:range i 0) i)
=> #() ; correct
(vector-of-length-ec 1 (:range i 1) i)
=> #(0) ; correct
(vector-of-length-ec 2 (:range i 2) i)
=> #(0 1) ; correct
(sum-ec 1)
=> 1 ; correct
(sum-ec (:range i 0) i)
=> 0 ; correct
(sum-ec (:range i 1) i)
=> 0 ; correct
(sum-ec (:range i 2) i)
=> 1 ; correct
(sum-ec (:range i 3) i)
=> 3 ; correct
(product-ec 1)
=> 1 ; correct
(product-ec (:range i 1 0) i)
=> 1 ; correct
(product-ec (:range i 1 1) i)
=> 1 ; correct
(product-ec (:range i 1 2) i)
=> 1 ; correct
(product-ec (:range i 1 3) i)
=> 2 ; correct
(product-ec (:range i 1 4) i)
=> 6 ; correct
(min-ec 1)
=> 1 ; correct
(min-ec (:range i 1) i)
=> 0 ; correct
(min-ec (:range i 2) i)
=> 0 ; correct
(max-ec 1)
=> 1 ; correct
(max-ec (:range i 1) i)
=> 0 ; correct
(max-ec (:range i 2) i)
=> 1 ; correct
(first-ec #f 1)
=> 1 ; correct
(first-ec #f (:range i 0) i)
=> #f ; correct
(first-ec #f (:range i 1) i)
=> 0 ; correct
(first-ec #f (:range i 2) i)
=> 0 ; correct
(let ((last-i -1)) (first-ec #f (:range i 10) (begin (set! last-i i)) i) last-i)
=> 0 ; correct
(last-ec #f 1)
=> 1 ; correct
(last-ec #f (:range i 0) i)
=> #f ; correct
(last-ec #f (:range i 1) i)
=> 0 ; correct
(last-ec #f (:range i 2) i)
=> 1 ; correct
(any?-ec #f)
=> #f ; correct
(any?-ec #t)
=> #t ; correct
(any?-ec (:range i 2 2) (even? i))
=> #f ; correct
(any?-ec (:range i 2 3) (even? i))
=> #t ; correct
(every?-ec #f)
=> #f ; correct
(every?-ec #t)
=> #t ; correct
(every?-ec (:range i 2 2) (even? i))
=> #t ; correct
(every?-ec (:range i 2 3) (even? i))
=> #t ; correct
(every?-ec (:range i 2 4) (even? i))
=> #f ; correct
(let ((sum-sqr (lambda (x result) (+ result (* x x))))) (fold-ec 0
(:range i 10) i sum-sqr))
=> 285 ; correct
(let ((minus-1 (lambda (x) (- x 1))) (sum-sqr (lambda (x result) (+
result (* x x))))) (fold3-ec (error "wrong") (:range i 10) i minus-1
sum-sqr))
=> 284 ; correct
(fold3-ec (quote infinity) (:range i 0) i min min)
=> infinity ; correct
(list-ec (:list x (quote ())) x)
=> () ; correct
(list-ec (:list x (quote (1))) x)
=> (1) ; correct
(list-ec (:list x (quote (1 2 3))) x)
=> (1 2 3) ; correct
(list-ec (:list x (quote (1)) (quote (2))) x)
=> (1 2) ; correct
(list-ec (:list x (quote (1)) (quote (2)) (quote (3))) x)
=> (1 2 3) ; correct
(list-ec (:string c "") c)
=> () ; correct
(list-ec (:string c "1") c)
=> (#\1) ; correct
(list-ec (:string c "123") c)
=> (#\1 #\2 #\3) ; correct
(list-ec (:string c "1" "2") c)
=> (#\1 #\2) ; correct
(list-ec (:string c "1" "2" "3") c)
=> (#\1 #\2 #\3) ; correct
(list-ec (:vector x (vector)) x)
=> () ; correct
(list-ec (:vector x (vector 1)) x)
=> (1) ; correct
(list-ec (:vector x (vector 1 2 3)) x)
=> (1 2 3) ; correct
(list-ec (:vector x (vector 1) (vector 2)) x)
=> (1 2) ; correct
(list-ec (:vector x (vector 1) (vector 2) (vector 3)) x)
=> (1 2 3) ; correct
(list-ec (:range x -2) x)
=> () ; correct
(list-ec (:range x -1) x)
=> () ; correct
(list-ec (:range x 0) x)
=> () ; correct
(list-ec (:range x 1) x)
=> (0) ; correct
(list-ec (:range x 2) x)
=> (0 1) ; correct
(list-ec (:range x 0 3) x)
=> (0 1 2) ; correct
(list-ec (:range x 1 3) x)
=> (1 2) ; correct
(list-ec (:range x -2 -1) x)
=> (-2) ; correct
(list-ec (:range x -2 -2) x)
=> () ; correct
(list-ec (:range x 1 5 2) x)
=> (1 3) ; correct
(list-ec (:range x 1 6 2) x)
=> (1 3 5) ; correct
(list-ec (:range x 5 1 -2) x)
=> (5 3) ; correct
(list-ec (:range x 6 1 -2) x)
=> (6 4 2) ; correct
(list-ec (:real-range x 0.0 3.0) x)
=> (0.0 1.0 2.0) ; correct
(list-ec (:real-range x 0 3.0) x)
=> (0.0 1.0 2.0) ; correct
(list-ec (:real-range x 0 3 1.0) x)
=> (0.0 1.0 2.0) ; correct
(string-ec (:char-range c #\a #\z) c)
=> "abcdefghijklmnopqrstuvwxyz" ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port
read) x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port)
x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (:do ((i 0)) (< i 4) ((+ i 1))) i)
=> (0 1 2 3) ; correct
(list-ec (:do (let ((x (quote x)))) ((i 0)) (< i 4) (let ((j (- 10
i)))) #t ((+ i 1))) j)
=> (10 9 8 7) ; correct
(list-ec (:let x 1) x)
=> (1) ; correct
(list-ec (:let x 1) (:let y (+ x 1)) y)
=> (2) ; correct
(list-ec (:let x 1) (:let x (+ x 1)) x)
=> (2) ; correct
(list-ec (:parallel (:range i 1 10) (:list x (quote (a b c)))) (list i x))
=> ((1 a) (2 b) (3 c)) ; correct
(list-ec (:while (:range i 1 10) (< i 5)) i)
=> (1 2 3 4) ; correct
(list-ec (:until (:range i 1 10) (>= i 5)) i)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:list i (quote (1 2 3 4 5 6 7 8 9))) (< i 5)) i)
=> (1 2 3 4) ; correct
(list-ec (:until (:list i (quote (1 2 3 4 5 6 7 8 9))) (>= i 5)) i)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:vector x (index i) (quote #(1 2 3 4 5))) (< x 10)) x)
=> (1 2 3 4 5) ; correct
(list-ec (:while (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5
6 7 8 9)))) (< i 5)) (list i j))
=> ((1 1) (2 2) (3 3) (4 4)) ; correct
(list-ec (:until (:parallel (:range i 1 10) (:list j (quote (1 2 3 4 5
6 7 8 9)))) (>= i 5)) (list i j))
=> ((1 1) (2 2) (3 3) (4 4) (5 5)) ; correct
(let ((n 0)) (do-ec (:while (:range i 1 10) (begin (set! n (+ n 1)) (<
i 5))) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:until (:range i 1 10) (begin (set! n (+ n 1))
(>= i 5))) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:while (:parallel (:range i 1 10) (:do () (begin
(set! n (+ n 1)) #t) ())) (< i 5)) (if #f #f)) n)
=> 5 ; correct
(let ((n 0)) (do-ec (:until (:parallel (:range i 1 10) (:do () (begin
(set! n (+ n 1)) #t) ())) (>= i 5)) (if #f #f)) n)
=> 5 ; correct
(list-ec (: c (quote (a b))) c)
=> (a b) ; correct
(list-ec (: c (quote (a b)) (quote (c d))) c)
=> (a b c d) ; correct
(list-ec (: c "ab") c)
=> (#\a #\b) ; correct
(list-ec (: c "ab" "cd") c)
=> (#\a #\b #\c #\d) ; correct
(list-ec (: c (vector (quote a) (quote b))) c)
=> (a b) ; correct
(list-ec (: c (vector (quote a) (quote b)) (vector (quote c))) c)
=> (a b c) ; correct
(list-ec (: i 0) i)
=> () ; correct
(list-ec (: i 1) i)
=> (0) ; correct
(list-ec (: i 10) i)
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (: i 1 2) i)
=> (1) ; correct
(list-ec (: i 1 2 3) i)
=> (1) ; correct
(list-ec (: i 1 9 3) i)
=> (1 4 7) ; correct
(list-ec (: i 0.0 1.0 0.2) i)
=> (0.0 0.2 0.4 0.6 0.8) ; correct
(list-ec (: c #\a #\c) c)
=> (#\a #\b #\c) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port
read) x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x port)
x))))
=> (0 1 2 3 4 5 6 7 8 9) ; correct
(list-ec (:list c (index i) (quote (a b))) (list c i))
=> ((a 0) (b 1)) ; correct
(list-ec (:string c (index i) "a") (list c i))
=> ((#\a 0)) ; correct
(list-ec (:vector c (index i) (vector (quote a))) (list c i))
=> ((a 0)) ; correct
(list-ec (:range i (index j) 0 -3 -1) (list i j))
=> ((0 0) (-1 1) (-2 2)) ; correct
(list-ec (:real-range i (index j) 0 1 0.2) (list i j))
=> ((0.0 0) (0.2 1) (0.4 2) (0.6 3) (0.8 4)) ; correct
(list-ec (:char-range c (index i) #\a #\c) (list c i))
=> ((#\a 0) (#\b 1) (#\c 2)) ; correct
(list-ec (: x (index i) (quote (a b c d))) (list x i))
=> ((a 0) (b 1) (c 2) (d 3)) ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f))
(my-call-with-input-file "tmp1" (lambda (port) (list-ec (: x (index i)
port) (list x i)))))
=> ((0 0) (1 1) (2 2) (3 3) (4 4) (5 5) (6 6) (7 7) (8 8) (9 9)) ; correct
(list-ec (: i 5) (* i i))
=> (0 1 4 9 16) ; correct
(list-ec (: n 1 4) (: i n) (list n i))
=> ((1 0) (2 0) (2 1) (3 0) (3 1) (3 2)) ; correct
(list-ec (: x (index i) "abc") (list x i))
=> ((#\a 0) (#\b 1) (#\c 2)) ; correct
(list-ec (:string c (index i) "a" "b") (cons c i))
=> ((#\a . 0) (#\b . 1)) ; correct
(list-ec (:range x 5) (:range x x) x)
=> (0 0 1 0 1 2 0 1 2 3) ; correct
(list-ec (:list x (quote (2 "23" (4)))) (: y x) y)
=> (0 1 #\2 #\3 4) ; correct
(list-ec (:parallel (:integers x) (:do ((i 10)) (< x i) ((- i 1)))) (list x i))
=> ((0 10) (1 9) (2 8) (3 7) (4 6)) ; correct
(factorial 0)
=> 1 ; correct
(factorial 1)
=> 1 ; correct
(factorial 3)
=> 6 ; correct
(factorial 5)
=> 120 ; correct
(eratosthenes 50)
=> (2 3 5 7 11 13 17 19 23 29 31 37 41 43 47) ; correct
(length (eratosthenes 100000))
=> 9592 ; correct
(pythagoras 15)
=> ((3 4 5) (5 12 13) (6 8 10) (9 12 15)) ; correct
(length (pythagoras 200))
=> 127 ; correct
(qsort (quote (1 5 4 2 4 5 3 2 1 3)))
=> (1 1 2 2 3 3 4 4 5 5) ; correct
(pi-BBP 5)
=> 3.14159265322809 ; correct
(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10)
(begin (write n f) (newline f))) (close-output-port f)) (read-lines
"tmp1"))
=> ("0\n" "1\n" "2\n" "3\n" "4\n" "5\n" "6\n" "7\n" "8\n" "9\n") ; correct
correct examples : 163
wrong examples : 0
======================================== hash-table tests ...
SRFI 69 procedures
HT - No Parameters
HT - Test Parameter
HT - Number Test Parameter
HT - All Optional Parameters
HT - All Parameters
HT - Insert with setter
HT - Insert with update!
HT - A-List
HT - set! overwrites
HT - Delete
HT - Remove
HT - Make from A-List
HT - Merge!
HT - Merge
HT - Map
HT - Fold
HT - Built-in string hash function
HT - After overwriting 'string-hash' should still work
HT - custom hash function
HT - out of bounds value is caught
Hash collision weaknesses
HT - Stress Insert 100000 Fixnum Key Items
1.963s CPU time, 0.161s GC time (major), 258687 mutations, 6/3414 GCs
(major/minor)
HT - Stress Retrieve 100000 Fixnum Key Items
1.127s CPU time, 16 mutations, 0/2408 GCs (major/minor)
HT - copy
((1 a) (2 b) (3 c)) -- ((1 a) (2 b) (3 c))
HT - recursive depth/length
489816322 <?> 500236546
378488403 <?> 52524471
======================================== port tests ...
(PASS) Initially, output string is empty
(PASS) output can be extracted from output string
(PASS) closing a string output port has no effect on the returned data
(PASS) writing to a closed string output port is an error
slow...
2.616s CPU time, 0.037s GC time (major), 13422 mutations, 6/5583 GCs
(major/minor)
fast...
0.013s CPU time, 38 mutations, 0/3 GCs (major/minor)
Procedures check on TCP ports being closed
tcp-addresses...OK
tcp-port-numbers...OK
tcp-abandon-port...OK
Error: (line 426) unterminated list, starting in line 208
Call history:
<eval> (printf519 "OK\n")
<eval> (set-signal-handler! signal/chld void)
<eval> (##sys#call-with-values (##core#lambda () (create-pipe))
(##core#lambda (in out) (receive (pid ok? s......
<eval> (create-pipe)
<eval> (##sys#call-with-values (##core#lambda () (process-wait
(process-fork (lambda () (file-close in) (wi......
<eval> (process-wait (process-fork (lambda () (file-close in)
(with-output-to-port (open-output-file* out) ...
<eval> (process-fork (lambda () (file-close in) (with-output-to-port
(open-output-file* out) (lambda () (di......
<eval> (file-close out)
<eval> (equal? (quote (#t 0 ("hello, world"))) (list ok? status
(read-lines (open-input-file* in))))
<eval> (list ok? status (read-lines (open-input-file* in)))
<eval> (read-lines (open-input-file* in))
<eval> (open-input-file* in)
<syntax> (print "\n\nProcedures check on output ports being closed\n")
<eval> (print "\n\nProcedures check on output ports being closed\n")
<syntax> (with-output-to-file "empty-file" void)
<eval> (with-output-to-file "empty-file" void) <--
OK
Procedures check on output ports being closed
rules.make:658: recipe for target 'check' failed
make[1]: *** [check] Error 70
make[1]: Leaving directory '/home/zacts/chicken-4.9.0.1'
GNUmakefile:54: recipe for target 'check' failed
make: *** [check] Error 2
- [Chicken-users] 'make check' of chicken 4.9.0.1 on alpine linux 3.0.4 i686 with musl c-library (after a successful build).,
Zachary Storer <=