<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">On 12/10/2013 10:27 PM, Marc Feeley
wrote:<br>
</div>
<blockquote
cite="mid:0F14DDA6-9976-497D-BEA2-DFE726F8FED2@iro.umontreal.ca"
type="cite">
<pre wrap="">
OK, I have now added (and pushed to the repo) a unit testing framework in the tests subdirectory. It is mostly compatible with the unit testing framework of Racket. You can execute it with:
cd tests
./run-unit-tests.scm
The unit tests are in the unit-tests directory.
</pre>
</blockquote>
<br>
Here's what the results look like now:<br>
<br>
<blockquote><tt>firefly:~/programs/gambit/marc/gambit/tests> gsi
run-unit-tests.scm </tt><br>
<tt>[ 3| 0| 0] 9%
###....................................... .0s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/cosh.scm"@5.14 -- Unbound
variable: cosh</tt><br>
<tt>[ 3| 1| 0] 12%
#####..................................... .0s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/acosh.scm"@5.14 -- Unbound
variable: acosh</tt><br>
<tt>[ 3| 2| 0] 15%
######.................................... .0s</tt><br>
<tt>"unit-tests/03-number/acos.scm"@5.1: FAILED (check-eqv? (acos
1) 0) GOT 0.</tt><br>
<tt>[ 4| 3| 0] 21%
#########................................. .0s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/atanh.scm"@5.14 -- Unbound
variable: atanh</tt><br>
<tt>[ 4| 4| 0] 25%
##########................................ .0s</tt><br>
<tt>"unit-tests/03-number/asin.scm"@18.1: FAILED (check-eqv? (asin
1e-30+1e-40i) 1e-30+1e-40i) GOT 1e-30+5.0000000000000005e-61i</tt><br>
<tt>[ 4| 5| 0] 28%
###########............................... .1s</tt><br>
<tt>"unit-tests/03-number/atan.scm"@18.1: FAILED (check-eqv? (atan
1e-30+1e-40i) 1e-30+1e-40i) GOT 1e-30-0.i</tt><br>
<tt>[ 4| 6| 0] 31%
#############............................. .1s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/sinh.scm"@5.14 -- Unbound
variable: sinh</tt><br>
<tt>[ 6| 7| 0] 40%
#################......................... .1s</tt><br>
<tt>"unit-tests/03-number/tan.scm"@9.1: FAILED (check-eqv? (tan
1e-30+1e-40i) 1e-30+1e-40i) GOT 1e-30-0.i</tt><br>
<tt>[ 6| 8| 0] 43%
##################........................ .1s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/tanh.scm"@5.14 -- Unbound
variable: tanh</tt><br>
<tt>[ 7| 9| 0] 50%
#####################..................... .1s</tt><br>
<tt>"unit-tests/03-number/sin.scm"@9.1: FAILED (check-eqv? (sin
1e-30+1e-40i) 1e-30+1e-40i) GOT 1e-30-0.i</tt><br>
<tt>[ 7| 10| 0] 53%
######################.................... .1s</tt><br>
<tt>*** ERROR IN "unit-tests/03-number/asinh.scm"@5.14 -- Unbound
variable: asinh</tt><br>
<tt>[ 21| 11| 0] 100%
########################################## .2s</tt><br>
<tt>FAILED 11 OUT OF 32 (34.4%)</tt><br>
</blockquote>
<br>
Install my patch and these tests will pass, and I'll send you more
to package as you like.<br>
<br>
Brad<br>
<br>
PS: After installing from git, run-unit-tests.scm is not
executable.<br>
</body>
</html>