Changeset 182 for trunk/thune/tests

Show
Ignore:
Timestamp:
06/11/06 04:56:12 (3 years ago)
Author:
krobillard
Message:

Thune - Added 'forever & 'break.

Location:
trunk/thune/tests/working
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/tests/working/control.good

    r180 r182  
    4949'T' 
    5050'T' 
     51--- break --- 
     520 
     531 
     542 
     553 
     564 
     57iter break here -> 
     58each break here -> 
     59while 0 
     60while 1 
     61while 2 
     62while 3 
     63while 4 
     64loop 0 
     65loop 1 
     66loop 2 
     67loop 3 
     68loop 4 
    5169Tests done 

  • trunk/thune/tests/working/control.t

    r180 r182  
    4444 
    4545 
     46"--- break ---" print 
     470 
     48[dup . inc dup 5 eq? ift break] forever 
     49drop 
     50 
     51"iter break here -><-" [first dup prin '>' eq? ift break] iter 
     52eol prin 
     53 
     54"each break here -><-" [dup prin '>' eq? ift break] each 
     55eol prin 
     56 
     570 :x 
     58[["while" x] print x inc :x] [x 5 lt?] while 
     59 
     600 :x 
     61[["loop" x] print x inc dup :x 4 gt? ift break] 10 loop 
     62 
     63 
    4664"Tests done" print