X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FJunit%2FAssert.scl;fp=bundles%2Forg.simantics.scl.runtime%2Fscl%2FJunit%2FAssert.scl;h=6b0cd2d023239ee728f19b1e423ca3507bbb5482;hp=0000000000000000000000000000000000000000;hb=f03893d9b643eae3f03debf7a656edbfa5b9b501;hpb=51006ffec13cbf8e0d9c8b07212d69478e4bdd4e

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
index 000000000..6b0cd2d02
--- /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