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

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