Show aliments, glycemic index, carbohydrates and glycemic charge

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"