;;; $Id: appendstar.tst,v 1.1 2005/02/03 03:30:46 leavens Exp $

(newline)
(newline)
(displayln "Test case of $Date: 2005/02/03 03:30:46 $")
(newline)

(run-regression-tests-equal?
 `(
   ( (append* '())
      ==> () )
   ( (append* '() '() '())
      ==> () )
   ( (append* '(3 7 10) '(20 25 30) '(5 4 3))
      ==> (3 7 10 20 25 30 5 4 3) )
   ( (append* '(20 25 30) '(5 4 3))
      ==> (20 25 30 5 4 3) )
   ( (append* '(l i k) '(e) '(t h i s) '() '() '(o k) '())
      ==> (l i k e t h i s o k) )
   ))

(newline)
(newline)