hora-1.0.2: test/Test/TestPico2.hs

module Test.TestPico2 where

import Test.Hspec
import Debug.Trace
import Data.Fixed


main::IO()
main = hspec $ do
       describe "Test.TestPico2" $ do
          it "case 1" $ do
            traceIO $ show p1
            let MkFixed p2 = p1
            p2 `shouldBe` 33458700000000
            where p1 = MkFixed 33458700000000::Fixed E12