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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!./yabasic
for i=1 to 5
read fun$
name$ = "test_" + fun$
body$ = "sub " + name$ + "(arg,expected)\n found = " + fun$ + "(arg)\n if found <> expected : print \"" + fun$ + "(\", arg, \") returned \", found, \" but expected \", expected: return 1\n return 0\nend sub"
compile body$
label test_loop
read arg
if arg = 755 goto done
read expected
if execute(name$,arg,expected) > 0 exit 1
goto test_loop
label done
next i
data "int"
data -2.5 , -2
data -2 , -2
data -1.5 , -1
data -0.5 , 0
data 0 , 0
data 0.5 , 0
data 1 , 1
data 1.5 , 1
data 2 , 2
data 755
data "frac"
data -2.5 , -0.5
data -2 , 0
data -1.5 , -0.5
data -0.5 , -0.5
data 0 , 0
data 0.5 , 0.5
data 1 , 0
data 1.5 , 0.5
data 2 , 0
data 755
data "floor"
data -2.5 , -3
data -2 , -2
data -1.5 , -2
data -0.5 , -1
data 0 , 0
data 0.5 , 0
data 1 , 1
data 1.5 , 1
data 2 , 2
data 755
data "ceil"
data -2.5 , -2
data -2 , -2
data -1.5 , -1
data -0.5 , 0
data 0 , 0
data 0.5 , 1
data 1 , 1
data 1.5 , 2
data 2 , 2
data 755
data "round"
data -2.5 , -3
data -2.4 , -2
data -2.6 , -3
data 0 , 0
data 2.5 , 3
data 2.4 , 2
data 2.6 , 3
data 755
|
