[gambit-list] Gambit-C 4.0 beta 18
Bill Richter
richter at math.northwestern.edu
Sun Sep 24 02:31:48 EDT 2006
Thanks Marc, but it didn't work. BTW I finally realized that Bugzilla
responded to my beta 17 bug report; must've been you.
I forgot to remove the buggy
code (which runs fine on my machine):
(define (test-directory-files)
(try 'directory-files directory-files "newdir2")
)
(test-directory-files)
Just remove those lines from tests/error.scm and also remove the line
(directory-files "newdir2") => ("aaa" "bbb")
from tests/test2.out .
Did you mean tests/test2.ok?
test2.out doesn't exist until after I run `make check'. So here's
what I did:
gambc-4.0b18> ./configure --enable-single-host --prefix=/rhome/richter/gambit/bin --enable-shared
gambc-4.0b18> make
gambc-4.0b18> make check
Got this errors as before:
------------ TEST 2 (error handling)
LD_LIBRARY_PATH=../lib:/rhome/richter/my-gambit/lib ../gsi/gsi -:h4000 -f error.scm < error.scm > test2.out
diff test2.ok test2.out && rm -f test2.out
1194c1194
< (directory-files "newdir2") => ("aaa" "bbb")
---
> (directory-files "newdir2") => ("bbb" "aaa")
make[1]: *** [test2] Error 1
Now I removed these lines from tests/error.scm:
(define (test-directory-files)
(try 'directory-files directory-files "newdir2")
)
(test-directory-files)
But I cannot remove
(directory-files "newdir2") => ("aaa" "bbb")
from tests/test2.out, because the line is reversed! test2.out reads:
(directory-files "newdir2") => ("bbb" "aaa")
So I removed that line.
Then
gambc-4.0b18> make check
------------ TEST 2 (error handling)
LD_LIBRARY_PATH=../lib:/rhome/richter/my-gambit/lib ../gsi/gsi -:h4000 -f error.scm < error.scm > test2.out
diff test2.ok test2.out && rm -f test2.out
1194d1193
< (directory-files "newdir2") => ("aaa" "bbb")
1206,1207c1205,1206
< (file-size "error.scm") => 65542
< (file-size "newdir2/bbb") => 65542
---
> (file-size "error.scm") => 65437
> (file-size "newdir2/bbb") => 65437
make[1]: *** [test2] Error 1
More information about the Gambit-list
mailing list