print "tst_suite/tst-while.gre ...";

$i = 1;
while ($i < 20) {
        $i += 1;
}
die " failed test 1\n" if ($i != 20);
$i = 1;
while $i < 20 {
        $i += 1;
}
die " failed test 2\n" if $i != 20;

$i = 0;
$i++ while ($i < 10);
die " failed test 3\n" if ($i != 10);

$i = 0;
$i++ while $i < 10;
die " failed test 4\n" if ($i != 10);

$i = 0;
$i++ until ($i == 10);
die " failed test 5\n" if ($i != 10);

$i = 0;
$i++ until $i == 10;
die " failed test 6\n" if $i != 10;
print " passed\n";