From 9a95a674fbbf1e64d3ad07922d569c3a1c751cf2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 5 Apr 2017 17:04:33 +0200
Subject: Show aliments, glycemic index, carbohydrates and glycemic charge

---
 test/Main.purs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 test/Main.purs

(limited to 'test')

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"
-- 
cgit v1.2.3