;;; $Id: expt-maker-mod.tst,v 1.1 2006/02/08 17:53:15 leavens Exp $

(require (lib "expt-maker-mod.scm" "lib342"))

(run-regression-tests-equal?
 `(
   ( ((expt-maker 0) 7) = 1 )
   ( ((expt-maker 0) 95) = 1 )
   ( ((expt-maker 5) 10) = 100000 )
   ( ((expt-maker 4) 3) = 81 )
   ( ((expt-maker 3) 3) = 27 )
   ( ((expt-maker 2) 3) = 9 )
   ( ((expt-maker 1) 3) = 3 )
   ( ((expt-maker 0) 3) = 1 )

   )
 )