<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>