Changeset 58 for trunk/orca/tests

Show
Ignore:
Timestamp:
02/21/06 23:18:49 (3 years ago)
Author:
jvargas
Message:

- Regression op_math_tuples PASS when in using Rebol compatible mode

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/orca/tests/working/op_math_tuples.r

    r52 r58  
    44a: 1.2.3 
    55b: 253 
    6 print ["add tuple pos-integer" a + b b + a] 
    7 print ["sub tuple pos-integer" a - b] 
    8 print ["mul tuple pos-integer" a * b b * a] 
    9 print ["div tuple pos-integer" a / b] 
    10 print ["and tuple pos-integer" a and b] 
    11 print ["or  tuple pos-integer" a or  b] 
    12 print ["xor tuple pos-integer" a xor b] 
     6print ["RT11: add tuple pos-integer" a + b b + a] 
     7print ["RT12: sub tuple pos-integer" a - b] 
     8print ["RT13: mul tuple pos-integer" a * b b * a] 
     9print ["RT14: div tuple pos-integer" a / b] 
     10print ["RT15: and tuple pos-integer" a and b] 
     11print ["RT16: or  tuple pos-integer" a or  b] 
     12print ["RT17: xor tuple pos-integer" a xor b] 
    1313 
    1414b: -253 
    15 print ["add tuple neg-integer" a + b b + a] 
    16 print ["sub tuple neg-integer" a - b] 
    17 print ["mul tuple neg-integer" a * b b * a] 
    18 print ["div tuple neg-integer" a / b] 
    19 print ["and tuple neg-integer" a and b] 
    20 print ["or  tuple neg-integer" a or  b] 
    21 print ["xor tuple neg-integer" a xor b] 
     15print ["RT21: add tuple neg-integer" a + b b + a] 
     16print ["RT22: sub tuple neg-integer" a - b] 
     17print ["RT23: mul tuple neg-integer" a * b b * a] 
     18print ["RT24: div tuple neg-integer" a / b] 
     19print ["RT25: and tuple neg-integer" a and b] 
     20print ["RT26: or  tuple neg-integer" a or  b] 
     21print ["RT27: xor tuple neg-integer" a xor b] 
    2222 
    2323b: 501.12345 
    24 print ["add tuple pos_decimal" a + b] 
    25 print ["sub tuple pos_decimal" a - b] 
    26 print ["mul tuple pos_decimal" a * b] 
    27 print ["div tuple pos_decimal" a / b] 
    28 print ["and tuple pos_decimal" a and b] 
    29 print ["or  tuple pos_decimal" a or  b] 
    30 print ["xor tuple pos_decimal" a xor b] 
     24print ["RT31: add tuple pos_decimal" a + b] 
     25print ["RT32: sub tuple pos_decimal" a - b] 
     26print ["RT33: mul tuple pos_decimal" a * b] 
     27print ["RT34: div tuple pos_decimal" a / b] 
     28print ["RT35: and tuple pos_decimal" a and b] 
     29print ["RT36: or  tuple pos_decimal" a or  b] 
     30print ["RT37: xor tuple pos_decimal" a xor b] 
    3131 
    3232b: -501.12345 
    33 print ["add tuple neg_decimal" a + b] 
    34 print ["sub tuple neg_decimal" a - b] 
    35 print ["mul tuple neg_decimal" a * b] 
    36 print ["div tuple neg_decimal" a / b] 
    37 print ["and tuple neg_decimal" a and b] 
    38 print ["or  tuple neg_decimal" a or  b] 
    39 print ["xor tuple neg_decimal" a xor b] 
     33print ["RT41: add tuple neg_decimal" a + b] 
     34print ["RT42: sub tuple neg_decimal" a - b] 
     35print ["RT43: mul tuple neg_decimal" a * b] 
     36print ["RT44: div tuple neg_decimal" a / b] 
     37print ["RT45: and tuple neg_decimal" a and b] 
     38print ["RT46: or  tuple neg_decimal" a or  b] 
     39print ["RT47: xor tuple neg_decimal" a xor b] 
    4040 
    4141; tuples with tuples 
    4242b: 0.0.0 
    4343print ["low bound"] 
    44 print ["add tuple tuple" a + b b + a] 
    45 print ["sub tuple tuple" a - b b - a] 
    46 print ["mul tuple tuple" a * b b * a] 
    47 print ["div tuple tuple" b / a]                 ;; div by zero 
    48 print ["and tuple tuple" a and b b and a] 
    49 print ["or  tuple tuple" a or  b b or  a] 
    50 print ["xor tuple tuple" a xor b b xor a] 
     44print ["RT51: add tuple tuple" a + b b + a] 
     45print ["RT52: sub tuple tuple" a - b b - a] 
     46print ["RT53: mul tuple tuple" a * b b * a] 
     47print ["RT54: div tuple tuple" b / a]                 ;; div by zero 
     48print ["RT55: and tuple tuple" a and b b and a] 
     49print ["RT56: or  tuple tuple" a or  b b or  a] 
     50print ["RT57: xor tuple tuple" a xor b b xor a] 
    5151 
    5252b: 255.255.255 
    5353print ["high bound"] 
    54 print ["add tuple tuple" a + b b + a] 
    55 print ["sub tuple tuple" a - b b - a] 
    56 print ["mul tuple tuple" a * b b * a] 
    57 print ["div tuple tuple" a / b b / a] 
    58 print ["and tuple tuple" a and b b and a] 
    59 print ["or  tuple tuple" a or  b b or  a] 
    60 print ["xor tuple tuple" a xor b b xor a] 
     54print ["RT61: add tuple tuple" a + b b + a] 
     55print ["RT62: sub tuple tuple" a - b b - a] 
     56print ["RT63: mul tuple tuple" a * b b * a] 
     57print ["RT64: div tuple tuple" a / b b / a] 
     58print ["RT65: and tuple tuple" a and b b and a] 
     59print ["RT66: or  tuple tuple" a or  b b or  a] 
     60print ["RT67: xor tuple tuple" a xor b b xor a] 
    6161 
    6262b: 127.127.127 
    6363print ["between"] 
    64 print ["add tuple tuple" a + b b + a] 
    65 print ["sub tuple tuple" a - b b - a] 
    66 print ["mul tuple tuple" a * b b * a] 
    67 print ["div tuple tuple" a / b b / a] 
    68 print ["and tuple tuple" a and b b and a] 
    69 print ["or  tuple tuple" a or  b b or  a] 
    70 print ["xor tuple tuple" a xor b b xor a] 
     64print ["RT71: add tuple tuple" a + b b + a] 
     65print ["RT72: sub tuple tuple" a - b b - a] 
     66print ["RT73: mul tuple tuple" a * b b * a] 
     67print ["RT74: div tuple tuple" a / b b / a] 
     68print ["RT75: and tuple tuple" a and b b and a] 
     69print ["RT76: or  tuple tuple" a or  b b or  a] 
     70print ["RT77: xor tuple tuple" a xor b b xor a] 
    7171 
    7272b: 127.127.127.127 
    7373print ["different len"] 
    74 print ["add tuple tuple" a + b b + a] 
    75 print ["sub tuple tuple" a - b b - a] 
    76 print ["mul tuple tuple" a * b b * a] 
    77 print ["div tuple tuple" a / b]                 ;; div by zero 
    78 print ["and tuple tuple" a and b b and a] 
    79 print ["or  tuple tuple" a or  b b or  a] 
    80 print ["xor tuple tuple" a xor b b xor a] 
     74print ["RT81: add tuple tuple" a + b b + a] 
     75print ["RT82: sub tuple tuple" a - b b - a] 
     76print ["RT83: mul tuple tuple" a * b b * a] 
     77print ["RT84: div tuple tuple" a / b]                 ;; div by zero 
     78print ["RT85: and tuple tuple" a and b b and a] 
     79print ["RT86: or  tuple tuple" a or  b b or  a] 
     80print ["RT87: xor tuple tuple" a xor b b xor a] 
    8181