module Test.Main where

import Prelude
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"