add some tests

prelude/__internal__/Byte.spec.mad

@@ -0,0 +1,9 @@
+import Byte from "./Byte"
+
+import {test, assertEquals} from "Test"
+
+
+test(
+  "Byte.range",
+  () => assertEquals(Byte.range(0_b, 6_b), [0_b, 1_b, 2_b, 3_b, 4_b, 5_b])
+)

prelude/__internal__/Float.spec.mad

@@ -1,7 +1,10 @@
+import { EQ, GT, LT } from "Compare"
 import { assertEquals, test } from "Test"
-import { EQ, LT, GT } from "Compare"
+
 import Float from "./Float"
 
+
+
 test("toInteger - positive", () => assertEquals(Float.toInteger(3.4), 3))
 test("toInteger - negative", () => assertEquals(Float.toInteger(-3.4), -3))
 
@@ -13,3 +16,8 @@ test("Compare Integer - GT", () => assertEquals(compare(3.3, 2.2), GT))
 test("Compare Integer - LT", () => assertEquals(compare(1.1, 2.2), LT))
 
 test("Compare Integer - EQ", () => assertEquals(compare(2.2, 2.2), EQ))
+
+test(
+  "Float.range",
+  () => assertEquals(Float.range(0.0, 10.0), [0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 9.0]),
+)

prelude/__internal__/Integer.spec.mad

@@ -1,7 +1,8 @@
 import { EQ, GT, LT } from "Compare"
-import { range } from "Integer"
 import { assertEquals, test } from "Test"
 
+import { range } from "./Integer"
+
 
 
 test("Compare Integer - GT", (_) => assertEquals(compare(3, 2), GT))

prelude/__internal__/Short.spec.mad

@@ -13,3 +13,5 @@ test("Compare Integer - GT", () => assertEquals(compare((3 :: Short), 2), GT))
 test("Compare Integer - LT", () => assertEquals(compare((1 :: Short), 2), LT))
 
 test("Compare Integer - EQ", () => assertEquals(compare((2 :: Short), 2), EQ))
+
+test("range", () => assertEquals(Short.range(0, 6), [0_s, 1_s, 2_s, 3_s, 4_s, 5_s]))