root/trunk/orca/tests/working/op_compare.r

REBOL []


a: [1 2 3]
b: next a
print ["block1"
    a = b
    a == b
    same? a b
]
c: back b
print ["block2"
    a = c
    a == c
    same? a c
]


a: 1.2.3
b: 1.2.3
print ["tuple1"
    a = b
    a == b
    same? a b
]

b: 1.2.3.4
print ["tuple2"
    a = b
    a == b
    same? a b
]

b: 1.2.3.0
print ["tuple3"
    a = b
    a == b
    same? a b
]

a: 11
b: 11.0
print ["number"
    equal? a b
    strict-equal? a b
    same? a b
]

print xor 2 3
print xor true true
print xor true false

val: 2
ctx: context [val: 2]
blk: bind [val] in ctx 'val
print ["word"
    equal? blk/1 blk/2
    strict-equal? blk/1 blk/2
    same? blk/1 blk/2
]

a: "hello"
b: "hello"
print ["string"
    equal? a b
    strict-equal? a b
    same? a b
]

c: %hello
print ["file"
    equal? a c
    strict-equal? a c
    same? a c
]