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/addition/bad_arity.neb       |  2 ++
 tests/math/addition/bad_type_bool.neb   |  2 ++
 tests/math/addition/bad_type_list.neb   |  2 ++
 tests/math/addition/bad_type_string.neb |  2 ++
 tests/math/addition/bad_type_type.neb   |  2 ++
 tests/math/addition/happy.neb           | 10 ++++++++++
 6 files changed, 20 insertions(+)
 create mode 100644 tests/math/addition/bad_arity.neb
 create mode 100644 tests/math/addition/bad_type_bool.neb
 create mode 100644 tests/math/addition/bad_type_list.neb
 create mode 100644 tests/math/addition/bad_type_string.neb
 create mode 100644 tests/math/addition/bad_type_type.neb
 create mode 100644 tests/math/addition/happy.neb

(limited to 'tests/math/addition')

diff --git a/tests/math/addition/bad_arity.neb b/tests/math/addition/bad_arity.neb
new file mode 100644
index 0000000..fd4763d
--- /dev/null
+++ b/tests/math/addition/bad_arity.neb
@@ -0,0 +1,2 @@
+(+)
+; panic! [1] '+': expected [1+] arguments, received 0
diff --git a/tests/math/addition/bad_type_bool.neb b/tests/math/addition/bad_type_bool.neb
new file mode 100644
index 0000000..a4bfecc
--- /dev/null
+++ b/tests/math/addition/bad_type_bool.neb
@@ -0,0 +1,2 @@
+(+ 7.34 #true)
+; panic! [1] '+': received :bool, expected :number (got #true)
diff --git a/tests/math/addition/bad_type_list.neb b/tests/math/addition/bad_type_list.neb
new file mode 100644
index 0000000..cb8a999
--- /dev/null
+++ b/tests/math/addition/bad_type_list.neb
@@ -0,0 +1,2 @@
+(+ 4 (list "hello"))
+; panic! [1] '+': received :list, expected :number (got ("hello"))
diff --git a/tests/math/addition/bad_type_string.neb b/tests/math/addition/bad_type_string.neb
new file mode 100644
index 0000000..23a161c
--- /dev/null
+++ b/tests/math/addition/bad_type_string.neb
@@ -0,0 +1,2 @@
+(+ 3 "hello")
+; panic! [1] '+': received :string, expected :number (got "hello")
diff --git a/tests/math/addition/bad_type_type.neb b/tests/math/addition/bad_type_type.neb
new file mode 100644
index 0000000..088fefb
--- /dev/null
+++ b/tests/math/addition/bad_type_type.neb
@@ -0,0 +1,2 @@
+(+ .4 :string)
+; panic! [1] '+': received :type, expected :number (got :string)
diff --git a/tests/math/addition/happy.neb b/tests/math/addition/happy.neb
new file mode 100644
index 0000000..4c037b2
--- /dev/null
+++ b/tests/math/addition/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 9 0.9 6.9 6.5 36
-- 
cgit v1.2.3