mirror of
https://github.com/bobbimanners/EightBall.git
synced 2024-06-04 12:29:34 +00:00
29 lines
320 B
Plaintext
29 lines
320 B
Plaintext
|
word counter=0
|
||
|
|
word fails=0
|
||
|
|
|
||
|
|
call expect(sqr(10)==100)
|
||
|
|
end
|
||
|
|
|
||
|
|
sub sqr(word x)
|
||
|
|
return x*x
|
||
|
|
endsub
|
||
|
|
|
||
|
|
sub expect(byte b)
|
||
|
|
pr.dec counter
|
||
|
|
pr.msg ": "
|
||
|
|
counter=counter+1
|
||
|
|
if b
|
||
|
|
pr.msg " Pass "
|
||
|
|
else
|
||
|
|
pr.msg " FAIL "
|
||
|
|
fails=fails+1
|
||
|
|
endif
|
||
|
|
pr.nl
|
||
|
|
return 0
|
||
|
|
endsub
|
||
|
|
|
||
|
|
sub xxxxxx(word qqq)
|
||
|
|
return qqq
|
||
|
|
endsub
|
||
|
|
|