Enhancements to modelled STS-tests

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / Junit / Assert.scl

diff --git a/bundles/org.simantics.scl.runtime/scl/Junit/Assert.scl b/bundles/org.simantics.scl.runtime/scl/Junit/Assert.scl
new file mode 100644 (file)
index 0000000..6b0cd2d
--- /dev/null
+++ b/bundles/org.simantics.scl.runtime/scl/Junit/Assert.scl
@@ -0,0 +1,20 @@
+importJava "org.junit.Assert" where
+    @JavaName assertEquals
+    @private
+    assertDoublesEquals :: String -> Double -> Double -> Double -> <Proc> ()
+    @JavaName assertEquals
+    @private
+    assertLongsEquals :: String -> Long -> Long -> <Proc> ()
+    
+    assertTrue :: String -> Boolean -> <Proc> ()
+    assertFalse :: String -> Boolean -> <Proc> ()
+
+class AssertEquals a  where
+    assertEquals :: String -> a -> a -> <Proc> ()
+instance AssertEquals Long where
+    assertEquals = assertLongsEquals
+
+class AssertEqualsTolerance a where
+    assertEqualsTolerance :: String -> a -> a -> a -> <Proc> ()
+instance AssertEqualsTolerance Double where
+    assertEqualsTolerance = assertDoublesEquals