root/trunk/orca/tests/orca/op_math_tuples.r

REBOL []

; numbers with tuples
a: 1.2.3
b: 253
print ["OR11: add tuple pos-integer" a + b b + a]
print ["OR12: sub tuple pos-integer" a - b b - a]
print ["OR13: mul tuple pos-integer" a * b b * a]
print ["OR14: div tuple pos-integer" a / b b / a]
print ["OR15: and tuple pos-integer" a and b b and a]
print ["OR16: or  tuple pos-integer" a or  b b or  a]
print ["OR17: xor tuple pos-integer" a xor b b xor a]

b: -253
print ["OR21: add tuple neg-integer" a + b b + a]
print ["OR22: sub tuple neg-integer" a - b b - a]
print ["OR23: mul tuple neg-integer" a * b b * a]
print ["OR24: div tuple neg-integer" a / b b / a]
print ["OR25: and tuple neg-integer" a and b b and a]
print ["OR26: or  tuple neg-integer" a or  b b or  a]
print ["OR27: xor tuple neg-integer" a xor b b xor a]

b: 501.12345
print ["OR31: add tuple pos_decimal" a + b b + a]
print ["OR32: sub tuple pos_decimal" a - b b - a]
print ["OR33: mul tuple pos_decimal" a * b b * a]
print ["OR34: div tuple pos_decimal" a / b b / a]
print ["OR35: and tuple pos_decimal" a and b b and a]
print ["OR36: or  tuple pos_decimal" a or  b b or  a]
print ["OR37: xor tuple pos_decimal" a xor b b xor a]

b: -501.12345
print ["OR41: add tuple neg_decimal" a + b b + a]
print ["OR42: sub tuple neg_decimal" a - b b - a]
print ["OR43: mul tuple neg_decimal" a * b b * a]
print ["OR44: div tuple neg_decimal" a / b b / a]
print ["OR45: and tuple neg_decimal" a and b b and a]
print ["OR46: or  tuple neg_decimal" a or  b b or  a]
print ["OR47: xor tuple neg_decimal" a xor b b xor a]

; tuples with tuples
b: 0.0.0
print ["low bound"]
print ["OR51: add tuple tuple" a + b b + a]
print ["OR52: sub tuple tuple" a - b b - a]
print ["OR53: mul tuple tuple" a * b b * a]
print ["OR54: div tuple tuple" b / a]          ;; div by zero
print ["OR55: and tuple tuple" a and b b and a]
print ["OR56: or  tuple tuple" a or  b b or  a]
print ["OR57: xor tuple tuple" a xor b b xor a]

b: 255.255.255
print ["high bound"]
print ["OR61: add tuple tuple" a + b b + a]
print ["OR62: sub tuple tuple" a - b b - a]
print ["OR63: mul tuple tuple" a * b b * a]
print ["OR64: div tuple tuple" a / b b / a]
print ["OR65: and tuple tuple" a and b b and a]
print ["OR66: or  tuple tuple" a or  b b or  a]
print ["OR67: xor tuple tuple" a xor b b xor a]

b: 127.127.127
print ["between"]
print ["OR71: add tuple tuple" a + b b + a]
print ["OR72: sub tuple tuple" a - b b - a]
print ["OR73: mul tuple tuple" a * b b * a]
print ["OR74: div tuple tuple" a / b b / a]
print ["OR75: and tuple tuple" a and b b and a]
print ["OR76: or  tuple tuple" a or  b b or  a]
print ["OR77: xor tuple tuple" a xor b b xor a]

b: 127.127.127.127
print ["different len"]
print ["OR81: add tuple tuple" a + b b + a]
print ["OR82: sub tuple tuple" a - b b - a]
print ["OR83: mul tuple tuple" a * b b * a]
print ["OR84: div tuple tuple" a / b]         ;; div by zero
print ["OR85: and tuple tuple" a and b b and a]
print ["OR86: or  tuple tuple" a or  b b or  a]
print ["OR87: xor tuple tuple" a xor b b xor a]