6b0cd2d023239ee728f19b1e423ca3507bbb5482
[simantics/platform.git] / 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