;; $Id: do-while.tst,v 1.1 2005/04/11 06:08:17 leavens Exp leavens $

(newline)
(displayln "Test case of $Date: 2005/04/11 06:08:17 $")
(newline)

(displayln "The following should print 4 3 2 1 0 0 on separate lines")
(run "var x;
      { x = 5;
        do { x = sub1(x); print(x) } while x;
        print(x) }")
(newline)

(displayln "The following should print 9 9 on separate lines")
(run "var x;
      { x = 10;
        do { x = sub1(x); print(x) } while 0;
        print(x) }")