hora-2.2.1: test/Test/TestPico2.hs

module Test.TestPico2 where

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


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