bundles/org.simantics.scl.runtime/scl/Junit/Assert.scl

   1 importJava "org.simantics.scl.runtime.utils.AssertionUtils" where
   2     assertMultiLineStringEquals :: String -> String -> String -> <Proc> ()
   3
   4 importJava "org.junit.Assert" where
   5     @JavaName assertEquals
   6     @private
   7     assertDoublesEquals :: String -> Double -> Double -> Double -> <Proc> ()
   8     @JavaName assertEquals
   9     @private
  10     assertLongsEquals :: String -> Long -> Long -> <Proc> ()
  11     @JavaName assertEquals
  12     assertObjectsEquals :: String -> a -> a -> <Proc> ()
  13
  14     assertTrue :: String -> Boolean -> <Proc> ()
  15     assertFalse :: String -> Boolean -> <Proc> ()
  16
  17 class AssertEquals a  where
  18     assertEquals :: String -> a -> a -> <Proc> ()
  19 instance AssertEquals Long where
  20     assertEquals = assertLongsEquals
  21
  22 class AssertEqualsTolerance a where
  23     assertEqualsTolerance :: String -> a -> a -> a -> <Proc> ()
  24 instance AssertEqualsTolerance Double where
  25     assertEqualsTolerance = assertDoublesEquals