@@ -0,0 +1,26 @@
1+module Test.Data.Finance.Money
2+ ( main
3+ ) where
4+
5+import Data.Finance.Currency (GBP, JPY)
6+import Data.Finance.Money (Discrete(..), showDiscrete)
7+import Prelude
8+import Test.Unit (suite, test)
9+import Test.Unit.Assert as Assert
10+
11+main = suite "Date.Finance.Money" do
12+ test "showDiscrete" do
13+ let gbp s n = Assert.equal s $ showDiscrete (Discrete n :: Discrete GBP)
14+ let jpy s n = Assert.equal s $ showDiscrete (Discrete n :: Discrete JPY)
15+
16+ gbp "0.00" 0
17+ gbp "2.56" 256
18+ gbp "-2.56" (-256)
19+ gbp "21474836.47" top
20+ gbp "-21474836.48" bottom
21+
22+ jpy "0" 0
23+ jpy "256" 256
24+ jpy "-256" (-256)
25+ jpy "2147483647" top
26+ jpy "-2147483648" bottom