184 lines
3.0 KiB
Plaintext
184 lines
3.0 KiB
Plaintext
require "lib/core.nom"
|
|
require "lib/testing.nom"
|
|
|
|
test: say "foo"
|
|
..yields ".."
|
|
|FunctionCall:
|
|
| Word:
|
|
| "say"
|
|
| String:
|
|
| "foo"
|
|
|
|
test: say (foo)
|
|
..yields ".."
|
|
|FunctionCall:
|
|
| Word:
|
|
| "say"
|
|
| FunctionCall:
|
|
| Word:
|
|
| "foo"
|
|
|
|
test:
|
|
rule (fart) =: say "poot"
|
|
..yields ".."
|
|
|Call [rule % = %]:
|
|
| List:
|
|
| Call [fart]:
|
|
| Block:
|
|
| Call [say %]:
|
|
| "poot"
|
|
|
|
test: say (subexpressions work)
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| Call [subexpressions work]:
|
|
|
|
test: say ["lists", "work"]
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| List:
|
|
| "lists"
|
|
| "work"
|
|
|
|
test (say []) yields ".."
|
|
|Call [say %]:
|
|
| List:
|
|
|
|
test:
|
|
say [..]
|
|
1, 2
|
|
3
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| List:
|
|
| 1
|
|
| 2
|
|
| 3
|
|
|
|
test:
|
|
say both [..]
|
|
1,2
|
|
..and [..]
|
|
3,4
|
|
..yields ".."
|
|
|Call [say both % and %]:
|
|
| List:
|
|
| 1
|
|
| 2
|
|
| List:
|
|
| 3
|
|
| 4
|
|
|
|
|
|
test:
|
|
if 1: yes
|
|
..else: no
|
|
..yields ".."
|
|
|Call [if % % else %]:
|
|
| 1
|
|
| Block:
|
|
| Call [yes]:
|
|
| Block:
|
|
| Call [no]:
|
|
|
|
test:
|
|
if 1 (yes) else: no
|
|
..yields ".."
|
|
|Call [if % % else %]:
|
|
| 1
|
|
| Block:
|
|
| Call [yes]:
|
|
| Block:
|
|
| Call [no]:
|
|
|
|
test: say (do (return 5))
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| Call [do %]:
|
|
| Block:
|
|
| Call [return %]:
|
|
| 5
|
|
|
|
test:
|
|
say:
|
|
fn call
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| Call [fn call]:
|
|
|
|
test:
|
|
do: say "one liner"
|
|
..also: say "another one liner"
|
|
..yields ".."
|
|
|Call [do % also %]:
|
|
| Block:
|
|
| Call [say %]:
|
|
| "one liner"
|
|
| Block:
|
|
| Call [say %]:
|
|
| "another one liner"
|
|
|
|
test:
|
|
say:
|
|
do:
|
|
say "hi"
|
|
return 5
|
|
say "bye"
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| Call [do %]:
|
|
| Block:
|
|
| Call [say %]:
|
|
| "hi"
|
|
| Call [return %]:
|
|
| 5
|
|
| Call [say %]:
|
|
| "bye"
|
|
|
|
|
|
test: say (1 + (-(2 * 3)))
|
|
..yields ".."
|
|
|Call [say %]:
|
|
| Call [% + %]:
|
|
| 1
|
|
| Call [- %]:
|
|
| Call [% * %]:
|
|
| 2
|
|
| 3
|
|
|
|
test:
|
|
if %x:
|
|
x
|
|
..else:
|
|
if %y:
|
|
y
|
|
..else:
|
|
z
|
|
..yields ".."
|
|
|Call [if % % else %]:
|
|
| Var["x"]
|
|
| Block:
|
|
| Call [x]:
|
|
| Block:
|
|
| Call [if % % else %]:
|
|
| Var["y"]
|
|
| Block:
|
|
| Call [y]:
|
|
| Block:
|
|
| Call [z]:
|
|
|
|
|
|
test:
|
|
don't fuck this up
|
|
..yields ".."
|
|
|Call [don 't fuck this up]:
|
|
|
|
test:
|
|
%Brian's hat
|
|
..yields ".."
|
|
|Call [% 's hat]:
|
|
| Var["Brian"]
|
|
|
|
say "All tests passed!"
|
|
|