From e169e50e9d2ab5584e3b72ed069e7695a123e1e7 Mon Sep 17 00:00:00 2001 From: mryouse Date: Sun, 3 Jul 2022 01:00:18 +0000 Subject: initial commit of tests for math things --- tests/math/subtraction/bad_arity.neb | 2 ++ tests/math/subtraction/bad_type_bool.neb | 2 ++ tests/math/subtraction/bad_type_list.neb | 2 ++ tests/math/subtraction/bad_type_string.neb | 2 ++ tests/math/subtraction/bad_type_type.neb | 2 ++ tests/math/subtraction/happy.neb | 10 ++++++++++ 6 files changed, 20 insertions(+) create mode 100644 tests/math/subtraction/bad_arity.neb create mode 100644 tests/math/subtraction/bad_type_bool.neb create mode 100644 tests/math/subtraction/bad_type_list.neb create mode 100644 tests/math/subtraction/bad_type_string.neb create mode 100644 tests/math/subtraction/bad_type_type.neb create mode 100644 tests/math/subtraction/happy.neb (limited to 'tests/math/subtraction') diff --git a/tests/math/subtraction/bad_arity.neb b/tests/math/subtraction/bad_arity.neb new file mode 100644 index 0000000..4fd1a01 --- /dev/null +++ b/tests/math/subtraction/bad_arity.neb @@ -0,0 +1,2 @@ +(-) +; panic! [1] '-': expected [1+] arguments, received 0 diff --git a/tests/math/subtraction/bad_type_bool.neb b/tests/math/subtraction/bad_type_bool.neb new file mode 100644 index 0000000..64a8a7b --- /dev/null +++ b/tests/math/subtraction/bad_type_bool.neb @@ -0,0 +1,2 @@ +(- 7.34 #true) +; panic! [1] '-': received :bool, expected :number (got #true) diff --git a/tests/math/subtraction/bad_type_list.neb b/tests/math/subtraction/bad_type_list.neb new file mode 100644 index 0000000..e06685e --- /dev/null +++ b/tests/math/subtraction/bad_type_list.neb @@ -0,0 +1,2 @@ +(- 4 (list "hello")) +; panic! [1] '-': received :list, expected :number (got ("hello")) diff --git a/tests/math/subtraction/bad_type_string.neb b/tests/math/subtraction/bad_type_string.neb new file mode 100644 index 0000000..5685b59 --- /dev/null +++ b/tests/math/subtraction/bad_type_string.neb @@ -0,0 +1,2 @@ +(- 3 "hello") +; panic! [1] '-': received :string, expected :number (got "hello") diff --git a/tests/math/subtraction/bad_type_type.neb b/tests/math/subtraction/bad_type_type.neb new file mode 100644 index 0000000..7bb72aa --- /dev/null +++ b/tests/math/subtraction/bad_type_type.neb @@ -0,0 +1,2 @@ +(- .4 :string) +; panic! [1] '-': received :type, expected :number (got :string) diff --git a/tests/math/subtraction/happy.neb b/tests/math/subtraction/happy.neb new file mode 100644 index 0000000..035b83c --- /dev/null +++ b/tests/math/subtraction/happy.neb @@ -0,0 +1,10 @@ +(print + (concat + (->string (- 2)) " " + (->string (- 4 5)) " " + (->string (- .9)) " " + (->string (- 2.9 4)) " " + (->string (- 2 4.5)) " " + (->string (- 6 7 8 15)))) + +; -2 -1 -0.9 -1.1 -2.5 -24 -- cgit v1.2.3