8 files changed, 24 insertions, 0 deletions
diff --git a/tests/math/lessthanequal/bad_arity_one.neb b/tests/math/lessthanequal/bad_arity_one.neb
new file mode 100644
index 0000000..32bf4c1
--- /dev/null
+++ b/tests/math/lessthanequal/bad_arity_one.neb
@@ -0,0 +1,2 @@
+(<= 7)
+; panic! [1] '<=': expected [2] arguments, received 1
diff --git a/tests/math/lessthanequal/bad_arity_three.neb b/tests/math/lessthanequal/bad_arity_three.neb
new file mode 100644
index 0000000..2430b0f
--- /dev/null
+++ b/tests/math/lessthanequal/bad_arity_three.neb
@@ -0,0 +1,2 @@
+(<= 20 4 5)
+; panic! [1] '<=': expected [2] arguments, received 3
diff --git a/tests/math/lessthanequal/bad_arity_zero.neb b/tests/math/lessthanequal/bad_arity_zero.neb
new file mode 100644
index 0000000..9130333
--- /dev/null
+++ b/tests/math/lessthanequal/bad_arity_zero.neb
@@ -0,0 +1,2 @@
+(<=)
+; panic! [1] '<=': expected [2] arguments, received 0
diff --git a/tests/math/lessthanequal/bad_type_bool.neb b/tests/math/lessthanequal/bad_type_bool.neb
new file mode 100644
index 0000000..6c68ead
--- /dev/null
+++ b/tests/math/lessthanequal/bad_type_bool.neb
@@ -0,0 +1,2 @@
+(<= 7.34 #true)
+; panic! [1] '<=': received :bool, expected :number (got #true)
diff --git a/tests/math/lessthanequal/bad_type_list.neb b/tests/math/lessthanequal/bad_type_list.neb
new file mode 100644
index 0000000..530c8cc
--- /dev/null
+++ b/tests/math/lessthanequal/bad_type_list.neb
@@ -0,0 +1,2 @@
+(<= 4 (list "hello"))
+; panic! [1] '<=': received :list, expected :number (got ("hello"))
diff --git a/tests/math/lessthanequal/bad_type_string.neb b/tests/math/lessthanequal/bad_type_string.neb
new file mode 100644
index 0000000..22b0360
--- /dev/null
+++ b/tests/math/lessthanequal/bad_type_string.neb
@@ -0,0 +1,2 @@
+(<= 3 "hello")
+; panic! [1] '<=': received :string, expected :number (got "hello")
diff --git a/tests/math/lessthanequal/bad_type_type.neb b/tests/math/lessthanequal/bad_type_type.neb
new file mode 100644
index 0000000..7ebbe12
--- /dev/null
+++ b/tests/math/lessthanequal/bad_type_type.neb
@@ -0,0 +1,2 @@
+(<= .4 :string)
+; panic! [1] '<=': received :type, expected :number (got :string)
diff --git a/tests/math/lessthanequal/happy.neb b/tests/math/lessthanequal/happy.neb
new file mode 100644
index 0000000..246f069
--- /dev/null
+++ b/tests/math/lessthanequal/happy.neb
@@ -0,0 +1,10 @@
+(print 
+    (concat
+        (->string (<= 20 5)) " "
+        (->string (<= 3.6 2)) " "
+        (->string (<= 1 2.5)) " "
+        (->string (<= 5 5)) " "
+        (->string (<= 45 45.0)) " "
+        (->string (<= 1.1 4.4))))
+
+; #false #false #true #true #true #true