diff options
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index b8edf00..c1aeac3 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -30,6 +30,11 @@ proc fibonacci {x} { fibonacci 6 puts "TEST 4 PASSED" +# REGTEST 5 +# 06Mar2005 - This looped forever... +for {set i 0} {$i < 10} {incr i} {continue} +puts "TEST 5 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |