Moved tests to separate files for every fn

src/test/kotlin/ResourcesTest.kt → src/test/kotlin/FileTest.kt

@@ -5,21 +5,27 @@ import org.junit.jupiter.api.Test
 import java.io.File
 import java.net.URI
 
-object ResourcesTest {
+object FileTest {
 
     @Test
-    fun testResources() {
+    fun testFiles() {
         val core = this::class.java.getResourceAsStream("core.rx")!!
             .bufferedReader().use { it.readText() }
 
         val scope = Scope(null)
 
         parse(tokenize(core), scope)
 
+        println("Running file tests...")
         for (file in listResourceFiles()) {
             val content = file.readText()
-            parse(tokenize(content), scope)
-            println("Passed ${file.nameWithoutExtension}")
+            try {
+                parse(tokenize(content), scope)
+                println("Passed tests in ${file.nameWithoutExtension}")
+            } catch (e: Exception) {
+                println("Failed tests in ${file.nameWithoutExtension}")
+                throw e
+            }
         }
     }
 

src/test/resources/tests/core/array.rx

@@ -0,0 +1,8 @@
+(test "array?"
+    (array? [1 2 3])
+    (array? [])
+
+    (not (array? 1))
+    (not (array? "hello"))
+    (not (array? (identity "hello")))
+    (not (array? (fn [] [true]))))

src/test/resources/tests/core/boolean.rx

@@ -0,0 +1,8 @@
+(test "boolean?"
+    (boolean? true)
+    (boolean? false)
+
+    (not (boolean? 1))
+    (not (boolean? "hello"))
+    (not (boolean? (identity "hello")))
+    (not (boolean? (fn [] true))))

src/test/resources/tests/core/double.rx

@@ -0,0 +1,8 @@
+(test "double?"
+    (double? 4.235)
+
+    (not (double? 1058259824305968260))
+    (not (double? 1))
+    (not (double? "hello"))
+    (not (double? (identity "hello")))
+    (not (double? (fn [] 1.0))))

src/test/resources/tests/core/fn.rx

@@ -0,0 +1,7 @@
+(test "fn?"
+    (fn? (fn [] 1))
+    (fn? (fn [& more] 1 2 3 4 [5 6]))
+
+    (not (fn? 1))
+    (not (fn? "hello"))
+    (not (fn? (identity "hello"))))

src/test/resources/tests/core/if.rx

@@ -0,0 +1,5 @@
+(test "if"
+    (if true true false)
+    (if nil false true)
+    (throws? (fn [] (if false (throw) false)))
+    (throws? (fn [] (if true false (throw)))))

src/test/resources/tests/core/int.rx

@@ -0,0 +1,8 @@
+(test "int?"
+    (int? 1)
+
+    (not (int? 1058259824305968260))
+    (not (int? 4.235))
+    (not (int? "hello"))
+    (not (int? (identity "hello")))
+    (not (int? (fn [] 1))))

src/test/resources/tests/core/is.rx

@@ -1,5 +1,5 @@
-# Tests all functions that use 'is?'
+(test "is?"
+    (is? "hello" "java.lang.String")
+    (is? 1058259824305968260 "java.lang.Number")
 
-(test "str?"
-    (str? "hello")
-    (not (str? 1)))
+    (not (is? 1 "java.lang.String")))

src/test/resources/tests/core/long.rx

@@ -0,0 +1,8 @@
+(test "long?"
+    (long? 1058259824305968260)
+
+    (not (long? 1))
+    (not (long? 4.235))
+    (not (long? "hello"))
+    (not (long? (identity "hello")))
+    (not (long? (fn [] 1058259824305968260))))

src/test/resources/tests/core/map.rx

@@ -0,0 +1,8 @@
+(test "map?"
+    (map? {"a" 1 "b" 2})
+    (map? {})
+
+    (not (map? 1))
+    (not (map? "hello"))
+    (not (map? (identity "hello")))
+    (not (map? (fn [] {"a" 1}))))

src/test/resources/tests/core/not.rx

@@ -0,0 +1,5 @@
+(test "not"
+    (not false)
+    (not (not true))
+
+    (throws? (fn [] (not "hello"))))

src/test/resources/tests/core/num.rx

@@ -0,0 +1,8 @@
+(test "num?"
+    (num? 1058259824305968260)
+    (num? 1)
+    (num? 4.235)
+
+    (not (num? "hello"))
+    (not (num? (identity "hello")))
+    (not (num? (fn [] 1))))

src/test/resources/tests/core/str.rx

@@ -0,0 +1,7 @@
+(test "str?"
+    (str? "hello")
+    (str? (identity "hello"))
+
+    (not (str? 1))
+    (not (str? (identity 1)))
+    (not (str? (fn [] "hello"))))

src/test/resources/tests/core/test.rx

@@ -1,3 +1,4 @@
 (test "test"
-    (not (throws? (fn [] (test "success" true))))
-    (throws? (fn [] (test "fails" false))))
+    (throws? (fn [] (test "fails" false)))
+
+    (not (throws? (fn [] (test "success" true)))))

src/test/resources/tests/core/throw.rx

@@ -0,0 +1,4 @@
+(test "throw"
+    (throws? (fn [] (throw)))
+
+    (not (throws? (fn [] 1))))

src/test/resources/tests/core/throws.rx

@@ -0,0 +1,4 @@
+(test "throws?"
+    (throws? (fn [] (throw)))
+
+    (not (throws? (fn [] 1))))