diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/fizzbuzz.bth | 2 | ||||
-rw-r--r-- | tests/four.bth | 2 | ||||
-rw-r--r-- | tests/func1.bth | 2 | ||||
-rw-r--r-- | tests/func2.bth | 6 | ||||
-rw-r--r-- | tests/func3.bth | 4 | ||||
-rw-r--r-- | tests/func4.bth | 2 | ||||
-rw-r--r-- | tests/mandel.bth | 4 | ||||
-rw-r--r-- | tests/mandel_local.bth | 4 | ||||
-rw-r--r-- | tests/multi.bth | 4 | ||||
-rw-r--r-- | tests/vars.bth | 8 | ||||
-rw-r--r-- | tests/vars1.bth | 2 | ||||
-rw-r--r-- | tests/vars2.bth | 2 | ||||
-rw-r--r-- | tests/vars3.bth | 2 | ||||
-rw-r--r-- | tests/vars4.bth | 8 |
14 files changed, 26 insertions, 26 deletions
diff --git a/tests/fizzbuzz.bth b/tests/fizzbuzz.bth index 42c1760..2837b55 100644 --- a/tests/fizzbuzz.bth +++ b/tests/fizzbuzz.bth @@ -1,6 +1,6 @@ (set n 1) (while (< n 30) - (puts + (say (if (= 0 (% n 5)) (if (= 0 (% n 3)) "fizzbuzz" "buzz") (if (= 0 (% n 3)) "fizz" n))) diff --git a/tests/four.bth b/tests/four.bth index c44e487..c4df4e1 100644 --- a/tests/four.bth +++ b/tests/four.bth @@ -1 +1 @@ -(puts (+ 2 2)) +(say (+ 2 2)) diff --git a/tests/func1.bth b/tests/func1.bth index 1f175ab..a71d160 100644 --- a/tests/func1.bth +++ b/tests/func1.bth @@ -1,2 +1,2 @@ (set f (fn (_) 42)) -(puts (f 0)) +(say (f 0)) diff --git a/tests/func2.bth b/tests/func2.bth index ee995fa..e57bc27 100644 --- a/tests/func2.bth +++ b/tests/func2.bth @@ -1,5 +1,5 @@ (set f1 (fn (a) (* a a))) (set f2 (fn (a b) (+ a b))) -(puts (f1 6)) -(puts (f2 20 40)) -(puts (f1 (f2 2 1))) +(say (f1 6)) +(say (f2 20 40)) +(say (f1 (f2 2 1))) diff --git a/tests/func3.bth b/tests/func3.bth index 050a9bc..9c0ceeb 100644 --- a/tests/func3.bth +++ b/tests/func3.bth @@ -3,5 +3,5 @@ (let (a 3 g (fn (y) (+ y 7))) (* (g a) (g x))))) -(puts (f1 6 6)) -(puts (f2 7)) +(say (f1 6 6)) +(say (f2 7)) diff --git a/tests/func4.bth b/tests/func4.bth index fca67b1..efd2b71 100644 --- a/tests/func4.bth +++ b/tests/func4.bth @@ -1,5 +1,5 @@ (set f1 (fn (x) (+ x 10))) (set f2 (fn (x) (* x 10))) -(set g (fn (f x) (puts (f x)) (puts (f x)))) +(set g (fn (f x) (say (f x)) (say (f x)))) (g f1 26) (g f2 6) diff --git a/tests/mandel.bth b/tests/mandel.bth index 54a1b4d..e75d694 100644 --- a/tests/mandel.bth +++ b/tests/mandel.bth @@ -14,7 +14,7 @@ (set zim nzim) (set mag (+ (* zre zre) (* zim zim))) (set i (if (< mag 4) (+ i 1) 999))) - (print (if (< mag 4) "#" ".")) + (write (if (< mag 4) "#" ".")) (set pxx (+ pxx 1))) - (puts "") + (say "") (set pxy (+ pxy 1))) diff --git a/tests/mandel_local.bth b/tests/mandel_local.bth index f2a1213..2cfa814 100644 --- a/tests/mandel_local.bth +++ b/tests/mandel_local.bth @@ -17,7 +17,7 @@ (set zim nzim) (set mag (+ (* zre zre) (* zim zim))) (set i (if (< mag 4) (+ i 1) 999))) - (print (if (< mag 4) "#" ".")) + (write (if (< mag 4) "#" ".")) (set pxx (+ pxx 1))))) - (puts "") + (say "") (set pxy (+ pxy 1)))) diff --git a/tests/multi.bth b/tests/multi.bth index 49691ce..c2ff8cf 100644 --- a/tests/multi.bth +++ b/tests/multi.bth @@ -1,3 +1,3 @@ -(puts "hello") -(puts "world") +(say "hello") +(say "world") nil diff --git a/tests/vars.bth b/tests/vars.bth index 54555ad..423dde6 100644 --- a/tests/vars.bth +++ b/tests/vars.bth @@ -1,8 +1,8 @@ (set a 5) (set b 10) (set thethe 1234) -(puts (+ a b)) -(puts (- thethe a)) -(puts (+ (set a 90) b)) -(puts a) +(say (+ a b)) +(say (- thethe a)) +(say (+ (set a 90) b)) +(say a) nil diff --git a/tests/vars1.bth b/tests/vars1.bth index 7c0e264..24a3f2b 100644 --- a/tests/vars1.bth +++ b/tests/vars1.bth @@ -1,2 +1,2 @@ -(puts (+ 2 (let (a 10) +(say (+ 2 (let (a 10) (* a a)))) diff --git a/tests/vars2.bth b/tests/vars2.bth index cc4952e..4e49fb4 100644 --- a/tests/vars2.bth +++ b/tests/vars2.bth @@ -1,4 +1,4 @@ -(puts (+ 2 (* 6 (let (a 10 +(say (+ 2 (* 6 (let (a 10 b 20 c 30) (* b b))))) diff --git a/tests/vars3.bth b/tests/vars3.bth index cfc4560..149e694 100644 --- a/tests/vars3.bth +++ b/tests/vars3.bth @@ -1,5 +1,5 @@ (set x 1) (set y 10) -(puts (let (x 2) +(say (let (x 2) (let (y 20) (+ x y)))) diff --git a/tests/vars4.bth b/tests/vars4.bth index a535d54..30f75d3 100644 --- a/tests/vars4.bth +++ b/tests/vars4.bth @@ -1,7 +1,7 @@ (set x 100) -(puts x) +(say x) (let (x 20) - (puts x) + (say x) (set x 30) - (puts x)) -(puts x) + (say x)) +(say x) |