;;; $Id: ex06-recursion.tst,v 1.1 2004/02/10 05:44:38 leavens Exp leavens $

; (load "ex06-recursion.scm")

(run-regression-tests-equal?
 `(

  ( (insert-before 'x 'q '()) ==> () )
  ( (insert-before 'x 'q '(x y z x)) ==> (q x y z x) )
  ( (insert-before 'x 'q '(a x y z)) ==> (a q x y z) )
  ( (insert-before 'bef 'this '(rif bam bif bef bop bef bef))
                          ==> (rif bam bif this bef bop bef bef) )

  ( (insert-before-all 'x 'q '()) ==> () )
  ( (insert-before-all 'x 'q '(x y z x)) ==> (q x y z q x) )
  ( (insert-before-all 'x 'q '(a x y z)) ==> (a q x y z) )
  ( (insert-before-all 'bef 'this '(rif bam bif bef bop bef bef))
                             ==> (rif bam bif this bef bop this bef this bef) )
   )
 )