summaryrefslogtreecommitdiff
path: root/test/racc/src.intp
blob: 4d2460e8edfb9ae3e470839d8994e84bebe5aca9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
def assert( no, cond )
  if cond then
  else
    raise( 'assert ' + to_s(no) + ' failed' )
  end
end

assert( 1, concat(concat(concat('str=', 'a'), "b"), 'c') == 'str=abc' )
assert( 2, 'operator' + ' ok' == 'operator ok' )
assert( 3, 1 + 1 == 2 )
assert( 4, 4 * 1 + 10 * 1 == 14 )

if true then
  assert( 5, true )
else
  assert( 6, false )
end

i = 1
while i == 1 do
  i = false
end
assert( 7, i == false )
assert( 8, nil == nil )

def func
  assert( 9, true )
end
func

def argfunc( str )
  assert( 10, str == 'ok' )
end
argfunc 'ok'