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/multiplication/bad_arity_one.neb   | 2 ++
 tests/math/multiplication/bad_arity_zero.neb  | 2 ++
 tests/math/multiplication/bad_type_bool.neb   | 2 ++
 tests/math/multiplication/bad_type_list.neb   | 2 ++
 tests/math/multiplication/bad_type_string.neb | 2 ++
 tests/math/multiplication/bad_type_type.neb   | 2 ++
 tests/math/multiplication/happy.neb           | 9 +++++++++
 7 files changed, 21 insertions(+)
 create mode 100644 tests/math/multiplication/bad_arity_one.neb
 create mode 100644 tests/math/multiplication/bad_arity_zero.neb
 create mode 100644 tests/math/multiplication/bad_type_bool.neb
 create mode 100644 tests/math/multiplication/bad_type_list.neb
 create mode 100644 tests/math/multiplication/bad_type_string.neb
 create mode 100644 tests/math/multiplication/bad_type_type.neb
 create mode 100644 tests/math/multiplication/happy.neb

(limited to 'tests/math/multiplication')

diff --git a/tests/math/multiplication/bad_arity_one.neb b/tests/math/multiplication/bad_arity_one.neb
new file mode 100644
index 0000000..740725a
--- /dev/null
+++ b/tests/math/multiplication/bad_arity_one.neb
@@ -0,0 +1,2 @@
+(* 7)
+; panic! [1] '*': expected [2+] arguments, received 1
diff --git a/tests/math/multiplication/bad_arity_zero.neb b/tests/math/multiplication/bad_arity_zero.neb
new file mode 100644
index 0000000..f1301ae
--- /dev/null
+++ b/tests/math/multiplication/bad_arity_zero.neb
@@ -0,0 +1,2 @@
+(*)
+; panic! [1] '*': expected [2+] arguments, received 0
diff --git a/tests/math/multiplication/bad_type_bool.neb b/tests/math/multiplication/bad_type_bool.neb
new file mode 100644
index 0000000..5344e1a
--- /dev/null
+++ b/tests/math/multiplication/bad_type_bool.neb
@@ -0,0 +1,2 @@
+(* 7.34 #true)
+; panic! [1] '*': received :bool, expected :number (got #true)
diff --git a/tests/math/multiplication/bad_type_list.neb b/tests/math/multiplication/bad_type_list.neb
new file mode 100644
index 0000000..9bc8418
--- /dev/null
+++ b/tests/math/multiplication/bad_type_list.neb
@@ -0,0 +1,2 @@
+(* 4 (list "hello"))
+; panic! [1] '*': received :list, expected :number (got ("hello"))
diff --git a/tests/math/multiplication/bad_type_string.neb b/tests/math/multiplication/bad_type_string.neb
new file mode 100644
index 0000000..ca9b70d
--- /dev/null
+++ b/tests/math/multiplication/bad_type_string.neb
@@ -0,0 +1,2 @@
+(* 3 "hello")
+; panic! [1] '*': received :string, expected :number (got "hello")
diff --git a/tests/math/multiplication/bad_type_type.neb b/tests/math/multiplication/bad_type_type.neb
new file mode 100644
index 0000000..4d0d2d1
--- /dev/null
+++ b/tests/math/multiplication/bad_type_type.neb
@@ -0,0 +1,2 @@
+(* .4 :string)
+; panic! [1] '*': received :type, expected :number (got :string)
diff --git a/tests/math/multiplication/happy.neb b/tests/math/multiplication/happy.neb
new file mode 100644
index 0000000..8233975
--- /dev/null
+++ b/tests/math/multiplication/happy.neb
@@ -0,0 +1,9 @@
+(print 
+    (concat
+        (->string (* 4 5)) " "
+        (->string (* 2.9 4)) " "
+        (->string (* 2 4.5)) " "
+        (->string (* 1.1 4.5)) " "
+        (->string (* 6 7 8 15))))
+
+; 20 11.6 9.0 4.95 5040
-- 
cgit v1.2.3