diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Main.purs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/test/Main.purs b/test/Main.purs new file mode 100644 index 0000000..5ebbb03 --- /dev/null +++ b/test/Main.purs @@ -0,0 +1,27 @@ +module Test.Main where + +import Prelude +import Control.Monad.Aff (later') +import Control.Monad.Eff (Eff) +import Test.Spec (describe, it) +import Test.Spec.Assertions (shouldEqual) +import Test.Spec.Reporter.Console (consoleReporter) +import Test.Spec.Runner (RunnerEffects, run) + +import Format as Format + +main :: Eff (RunnerEffects ()) Unit +main = run [consoleReporter] do + + describe "Format" do + it "format numbers" $ do + (Format.number 0 0.0) `shouldEqual` "0" + (Format.number 0 (-0.0)) `shouldEqual` "0" + (Format.number 0 8.0) `shouldEqual` "8" + (Format.number 0 (-4.0)) `shouldEqual` "-4" + (Format.number 2 25.0) `shouldEqual` "25,00" + (Format.number 5 25.0) `shouldEqual` "25,00000" + (Format.number 5 25.13) `shouldEqual` "25,13000" + (Format.number 1 25.13) `shouldEqual` "25,1" + (Format.number 1 25.15) `shouldEqual` "25,1" + (Format.number 1 25.19) `shouldEqual` "25,2" |