Changeset 162 for trunk/thune/tests

Show
Ignore:
Timestamp:
05/27/06 21:22:22 (3 years ago)
Author:
krobillard
Message:

Thune -

Opcode selector is now preserved by infuse & ur_toStr().
Added ur_makeBinaryFrom() & ur_encodingCharSize[].
Command line arguments now passed to script in 'args.
Switched order of 'iter arguments.

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

Legend:

Unmodified
Added
Removed

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

    r28 r162  
    44 
    55[ 
    6   [first reduce prin] 
    76  [ 
    87    "^/" n " bottles of beer on the wall, " n " bottles of beer.^/" 
    … …  
    109    b " of beer on the wall.^/" 
    1110  ] 
    12   iter 
     11  [first reduce prin] iter 
    1312] :verse 
    1413 

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

    r127 r162  
    3636                        ] 
    3737                        case 
    38                 ] swap iter 
     38                ] iter 
    3939 
    4040                words . 

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

    r161 r162  
    33hello 
    44"hello" 
     5#{68656C6C6F} 
    565 
    67'e' 
    … …  
    1213hello 
    1314"hello" 
     15#{680065006C006C006F00} 
    14165 
    1517'e' 

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

    r159 r162  
    77    dup print 
    88    dup . 
     9    dup binary! as . 
    910    dup length? . 
    1011    dup 2 pick . 

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

    r141 r162  
    1081080.1 z:} read-thune 
    109109dup . 
    110 [first dup type? prin " " prin .] swap iter 
     110[first dup type? prin " " prin .] iter 
    111111 
    112112 

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

    r133 r162  
    2727            rules swap append '| word! as append prev mark.eol drop 
    2828            next 
    29         ] swap iter 
     29        ] iter 
    3030        rules [:tok skip (tok first prin)] join 
    3131    ] 

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

    r132 r162  
    2727            rules swap append '| word! as append prev mark.eol drop 
    2828            next 
    29         ] swap iter 
     29        ] iter 
    3030        rules [:tok skip (tok first prin)] join 
    3131    ]