First test batch and associated fixes

The test runner is also nicer to use.

test/tests/binary operator overload.ans

@@ -0,0 +1,11 @@
+:$ a - b
+	@"generic minus"
+
+:$ a::string - b::string
+	@a + " minus " + b
+
+| {2-5}
+
+| {"heh"-"lol"}
+
+| {[]-[]}

test/tests/binop assignement.ans

@@ -0,0 +1,7 @@
+:c = 1
+
+|{c}
+
+c += 2
+
+|{c}

test/tests/choice block.ans

@@ -0,0 +1,11 @@
+:@choice = 2
+| ye |>
+	| no
+| ne |>
+	| ok
+
+choice = 1
+| ho |>
+	| plop
+| oh |>
+	| plup

test/tests/choice function.ans

@@ -0,0 +1,11 @@
+:$ f
+	| neol |>
+		| nah
+
+| ho |>
+	|plop
+f!
+| oh |>
+	|ok
+f!
+:@choice=3

test/tests/choice line interpolation with choice event.ans

@@ -0,0 +1,11 @@
+:@choice=1
+
+:$ jump button
+	1 # |A
+	| Suprise choice! |> ()
+	@"JOIN"
+
+| Press {jump button!} to jump. |>
+	|ok
+| No |>
+	|ko

test/tests/choice line interpolation with event flush.ans

@@ -0,0 +1,11 @@
+:@choice=1
+
+:$ jump button
+	1 # | a
+
+	@"SPLIT"
+
+| Press {jump button!} to jump. |>
+	| ok
+| No |>
+	| ko

test/tests/choice line interpolation with text event.ans

@@ -0,0 +1,17 @@
+:$ jump button
+	@1 # | A
+
+:$ move axis
+	1 # | left
+	@" joystick"
+
+| Press {jump button!} to jump. |>
+	|ok
+| No |>
+	|ko
+:@choice = 1
+
+| Other |>
+	|ok
+| Use {move axis!} to move. |>
+	|ko

test/tests/choice preserve tags.ans

@@ -0,0 +1,16 @@
+:choice = 1
+
+:$ f
+	42 #
+		| a |>
+			| b
+
+f!
+| c |> ()
+
+"k":"v" #
+	f!
+	| d |> ()
+	| e
+
+| f

test/tests/choice simple.ans

@@ -0,0 +1,5 @@
+| ye |>
+	| no
+| ne |>
+	| ok
+:@choice = 2

test/tests/closure.ans

@@ -0,0 +1,12 @@
+:$ f(x)
+	$(y) x + y
+
+:add two = f(2)
+
+:add five = f(5)
+
+|{add two(3)} = 5
+|{add five(3)} = 8
+
+|{add two(2)} = 4
+|{add five(2)} = 7

test/tests/comment.ans

@@ -0,0 +1,9 @@
+((hey couic + 5))
+
+((nested ((comments)) d))
+
+2 ((end of line))
+
+((start of line)) 3
+
+5 + ((middle)) 3

test/tests/condition decorator.ans

@@ -0,0 +1,3 @@
+() ~ |ko
+1 ~ |ok
+1 ~ |ok bis

test/tests/condition else false.ans

@@ -0,0 +1,6 @@
+:a = 5
+
+a == 2 ~
+	|ko
+~
+	|ok

test/tests/condition else true.ans

@@ -0,0 +1,6 @@
+:a = 5
+
+a == 5 ~
+	|ok
+~
+	|ko

test/tests/condition elseif false.ans

@@ -0,0 +1,8 @@
+:a = 5
+
+a == 2 ~
+	|ko
+~ () ~
+	|ko
+~
+	|ok

test/tests/condition elseif true.ans

@@ -0,0 +1,8 @@
+:a = 5
+
+a == 2 ~
+	|ko
+~ 1 ~
+	|ok
+~
+	|ko

test/tests/condition false.ans

@@ -0,0 +1,4 @@
+:a = 5
+
+a == 2 ~
+	|ko

test/tests/condition operator.ans

@@ -0,0 +1,6 @@
+:$ f
+	@|b
+
+|a {5 ~ f!} c
+
+|a {() ~ f!} c

test/tests/condition true.ans

@@ -0,0 +1,4 @@
+:a = 5
+
+a == 5 ~
+	|ok

test/tests/constant variable.ans

@@ -0,0 +1,7 @@
+::a = 3
+
+{a}
+
+a = 52
+
+{a}

test/tests/custom text formatting.ans

@@ -0,0 +1,12 @@
+:person = "personne"
+
+:$ format(p::is(person))
+	p = p!value
+	@"Name: {p("name")}\nAge: {p("age")}"
+
+:$ Person(name, age)
+	@{"name":name, "age":age}!type(person)
+
+:abject = Person("Darmanin", 38)
+
+|{abject}

test/tests/define override function.ans

@@ -0,0 +1,4 @@
+:$ a
+	()
+
+:a = 2

test/tests/define override variable.ans

@@ -0,0 +1,4 @@
+:a = 2
+
+:$ a
+	()

test/tests/define override.ans

@@ -0,0 +1,5 @@
+:a = 5
+
+:a = 2
+
+a: {a}

test/tests/define.ans

@@ -0,0 +1 @@
+:a = 5

test/tests/flush.ans

@@ -0,0 +1,7 @@
+:@choice = 1
+| a
+
+| b |> ()
+
+| c
+| d |> ()

test/tests/function arg.ans

@@ -0,0 +1,4 @@
+:$ f(a)
+	|{a}
+
+f("ok")

test/tests/function args arity check fail.ans

@@ -0,0 +1,4 @@
+:$ f(a, b)
+	| {a}{b}
+
+f("ok")

test/tests/function args.ans

@@ -0,0 +1,4 @@
+:$ f(a, b)
+	| {a}{b}
+
+f("o", "k")

test/tests/function assignement.ans

@@ -0,0 +1,22 @@
+:a = 5
+
+:$ f(p)
+	@a
+
+:$ f(p) = v
+	|v={v}
+	a = v
+
+:$ f(p) = v::string
+	|v2={v}
+	a = p
+
+|{f(a)}
+
+f(3) = 50
+
+|{f(a)}
+
+f(3) = "ok"
+
+|{f(a)}

test/tests/function definition.ans

@@ -0,0 +1,21 @@
+:f = $(x)x*x
+
+:$g(x)
+	@x*x
+
+|{f(5)} = {g(5)}
+
+|{f(2)} = {g(2)}
+
+:y = 5
+:h = $(x)x*x+y
+
+| {h(3)} == 14
+
+y = 7
+
+| {h(5)} == 32
+
+:i = $y*y
+
+| {i!} == 49

test/tests/function name dispatch.ans

@@ -0,0 +1,9 @@
+:$ fn(x)
+	|x
+
+:$ fn(a)
+	|a
+
+fn(a=5)
+
+fn(x=5)

test/tests/function no conflict.ans

@@ -0,0 +1,8 @@
+:$ f(a, b)
+	()
+
+:$ f(x)
+	()
+
+:$ f(u, v)
+	()

test/tests/function return exit function.ans

@@ -0,0 +1,6 @@
+:$ hey
+	@5
+	|a
+	@2
+
+|{hey!}

test/tests/function return.ans

@@ -0,0 +1,4 @@
+:$ hey
+	@5
+
+|{hey!}

test/tests/function scope wrong.ans

@@ -0,0 +1,4 @@
+:$ a
+	:b = 5
+
+| a: {b}

test/tests/function scope.ans

@@ -0,0 +1,4 @@
+:$ a
+	:@b = 5
+
+|a: {a.b}

test/tests/function selection.ans

@@ -0,0 +1,12 @@
+:$ a(x::number)
+	@x + 2
+
+:$ x
+	:$ a(x::string)
+		@x + "heh"
+
+	|{a("plop")}
+
+	|{a(2)}
+
+x!

test/tests/function type dispatch ambigous.ans

@@ -0,0 +1,7 @@
+:$ fn(x::number)
+	|x
+
+:$ fn(a::number)
+	|a
+
+fn(5)

test/tests/function type dispatch.ans

@@ -0,0 +1,9 @@
+:$ fn(x::number)
+	|x
+
+:$ fn(a::string)
+	|a
+
+fn("s")
+
+fn(5)

test/tests/function ufcs arg.ans

@@ -0,0 +1,6 @@
+:$ f(a)
+	|{a}
+
+"ok"!f
+
+"ok"!f()

test/tests/function ufcs args.ans

@@ -0,0 +1,4 @@
+:$ f(a, b)
+	|{a}{b}
+
+"o"!f("k")

test/tests/function.ans

@@ -0,0 +1,9 @@
+:$ f
+	|ok
+
+f!
+
+:g = $
+	|ok2
+
+g!

test/tests/implicit multiplication.ans

@@ -0,0 +1,12 @@
+:x = 4
+:pi=3.14
+
+|{2x} = 8
+
+|{(2+1)x} = 12
+
+|{2pi} = 2pi
+
+|{1/2x} = 0.125
+
+|{(1/2)x+.1} = 2.1

test/tests/lazy boolean operators.ans

@@ -0,0 +1,23 @@
+:$ a
+	|a
+	@1
+
+:$ b
+	|b
+	@()
+
+|{a! & b!} = a b ()
+
+|{b! & a!} = b ()
+
+|{a! & a!} = a a 1
+
+|{b! & b!} = b ()
+
+|{a! | b!} = a 1
+
+|{b! | a!} = b a 1
+
+|{a! | a!} = a 1
+
+|{b! | b!} = b b ()

test/tests/list assignement.ans

@@ -0,0 +1,21 @@
+:x = *[1,2]
+
+|{x}
+
+x(1) = 3
+
+|{x}
+
+x(2) = 5
+
+|{x}
+
+x(-1) = 12
+
+|{x}
+
+x(3) = 99
+
+|{x}
+
+x(5) = 0

test/tests/list index.ans

@@ -0,0 +1,11 @@
+:x = [1,2,3]
+
+|{x}
+
+|{x(1)} == {x(-3)}
+
+|{x(2)} == {x(-2)}
+
+|{x(3)} == {x(-1)}
+
+|{x(-4)}

test/tests/loop decorator.ans

@@ -0,0 +1,5 @@
+:i = 0
+
+(i += 1; i <= 10) ~? (| {i}\n)!
+
+|{i}

test/tests/map assignement.ans

@@ -0,0 +1,20 @@
+:x = *{1,2}
+
+|{x}
+
+|{x(1) = 3}
+
+|{x}
+
+|{x("foo") = "a"}
+
+|{x}
+
+|{x("bar") = "b"}
+
+|{x}
+
+|{x("foo") = "c"}
+
+|{x}
+

test/tests/map index.ans

@@ -0,0 +1,7 @@
+:t = {"ahah":23,"k":23,12}
+
+|{t} == \{3=12, ahah=23, k=23}
+
+|{t(3)} == 12
+
+|{t("ahah")} == 23

test/tests/named arguments.ans

@@ -0,0 +1,4 @@
+:$ f(a, b, c)
+	@a + b + c
+
+|{f("a", "b", "c")} = {f(a="a", b="b", c="c")} = {f(c="c", a="a", b="b")}

test/tests/namespace operator arbitrary expression.ans

@@ -0,0 +1,6 @@
+:$ f
+	:@x = 5
+
+:a = f
+
+|{a.("x")}

test/tests/nested conditions.ans

@@ -0,0 +1,19 @@
+1 ~
+	|yes
+	() ~
+		|no
+~
+	|nope
+	1 ~
+		|niet
+		() ~
+			|still no
+~
+	|nein
+
+() ~
+	|nah
+~
+	|ye
+	~
+		|da

test/tests/nested flush.ans

@@ -0,0 +1,18 @@
+1 ~
+	|a
+
+|b
+
+1 ~
+	|c
+|d
+
+1 ~
+	|e
+
+| f |> ()
+:@choice = 1
+
+1 ~
+	|g
+| h |> ()

test/tests/optional arguments.ans

@@ -0,0 +1,4 @@
+:$ f(a, b, c="c")
+	@a + b + c
+
+|{f("a", "b")} = {f("a", "b", "c")} = {f(b="b", a="a")}

test/tests/pair operator.ans

@@ -0,0 +1,5 @@
+:name = "test"
+
+|{[name:1, 3:"p", (name):"foo", "ho":"ah", name:name]}
+
+|{["name":1, 3:"p", name:"foo", "ho":"ah", "name":name]}

test/tests/return in choice.ans

@@ -0,0 +1,10 @@
+:$ f
+	| a |>
+		| x
+		@1
+		| y
+	@2
+
+f! == 2 ~
+	:@choice = 1
+	| Yes.

test/tests/string escaping.ans

@@ -0,0 +1,7 @@
+|expression {"{"a"}"}
+
+|quote {"\""}
+
+|other codes {"\n"} {"\\"} {"\t"} \{braces}
+
+|{"escaping expressions {"a"+"bc"} and \{stuff} \\ and quotes \""}

test/tests/tag decorator nested.ans

@@ -0,0 +1,4 @@
+1 #
+	|foo
+	1 ~ "b":[1,2] #
+		1 ~ "a":[2,3] # | bar

test/tests/tag decorator.ans

@@ -0,0 +1,3 @@
+1 #
+	| foo
+	"a":[2,3] # | bar

test/tests/tag empty.ans

@@ -0,0 +1,4 @@
+1 #
+	|foo
+	() #
+		|bar

test/tests/tag.ans

@@ -0,0 +1,4 @@
+1 #
+	|foo
+	"a":[2,3] #
+		|bar

test/tests/text block.ans

@@ -0,0 +1,5 @@
+| a
+| b c
+
+|a
+|b c

test/tests/text break.ans

@@ -0,0 +1,3 @@
+|a
+
+|b c

test/tests/text escaping.ans

@@ -0,0 +1,9 @@
+|expression \{a}
+
+|quote \"
+
+|other codes \n \\ \t
+
+|decorators \# tag \~ condition \$ fn
+
+|sub \[text]

test/tests/text format.ans

@@ -0,0 +1,3 @@
+:a = 5
+
+|a: {a}

test/tests/text line interpolation with choice event.ans

@@ -0,0 +1,16 @@
+:choice = 1
+
+:$ jump button
+	1 # | A
+	| Surprise choice! |>
+		| ok
+
+:$ move axis
+	1 # | left
+	| Surprise choice! |>
+		| ok2
+	@" joystick"
+
+| Press {jump button!} to jump.
+
+| Use {move axis!} to move.

test/tests/text line interpolation with event flush.ans

@@ -0,0 +1,13 @@
+:$ jump button
+	1 # | A
+
+	@
+
+:$ move axis
+	1 # | left
+
+	@" joystick"
+
+| Press {jump button!} to jump.
+
+| Use {move axis!} to move.

test/tests/text line interpolation with text event.ans

@@ -0,0 +1,10 @@
+:$ jump button
+	@1 # | A
+
+:$ move axis
+	2 # | left
+	@" joystick"
+
+| Press {jump button!} to jump.
+
+| Use {move axis!} to move.

test/tests/text.ans

@@ -0,0 +1 @@
+|a

test/tests/unary operator overload.ans

@@ -0,0 +1,11 @@
+:$ -f
+	@"generic minus"
+
+:$ -f::string
+	@"minus "+f
+
+|{-5}
+
+|{-"lol"}
+
+|{-[]}

test/tests/while loop else.ans

@@ -0,0 +1,19 @@
+:i = 1
+
+| Start with i={i}:
+
+i < 5 ~?
+	| {i}
+
+	i += 1
+~
+	| Loop not ran.
+
+| Start with i={i}:
+
+i < 5 ~?
+	| {i}
+
+	i += 1
+~
+	| Loop not ran.

test/tests/while loop.ans

@@ -0,0 +1,16 @@
+:i = 0
+i <= 10 ~?
+	| {i}
+
+	i += 1
+
+| return in loop:
+
+i = 0
+i <= 10 ~?
+	| {i}
+
+	i == 5 ~
+		@()
+
+	i += 1