add more tests

Author: blinky3713

test/Spec/BigNumber.purs

@@ -2,10 +2,19 @@ module CoreSpec.BigNumber (bigNumberSpec) where
 
 
 import Prelude
-import Data.Maybe (Maybe(Just))
+
+import Control.Monad.Except (runExcept)
+import Data.Argonaut as A
+import Data.Either (Either(..), fromRight)
+import Data.Foreign (toForeign)
+import Data.Foreign.Class (decode, encode)
+import Data.Maybe (Maybe(Just), fromJust)
+import Network.Ethereum.Core.BigNumber (BigNumber, decimal, embed, hexadecimal, parseBigNumber)
+import Partial.Unsafe (unsafePartial)
+import Simple.JSON (readImpl)
 import Test.Spec (Spec, describe, it)
 import Test.Spec.Assertions (shouldEqual)
-import Network.Ethereum.Core.BigNumber (BigNumber, decimal, embed, hexadecimal, parseBigNumber)
+
 
 bigNumberSpec :: forall r . Spec r Unit
 bigNumberSpec = describe "BigNumber-spec" do
@@ -47,3 +56,15 @@ bigNumberSpec = describe "BigNumber-spec" do
         ((parseBigNumber decimal "21") >>= \x -> pure $ x - zero) `shouldEqual` parseBigNumber hexadecimal "0x15"
         (Just $ one `mul` one) `shouldEqual` parseBigNumber decimal "1"
         (Just $ one * embed (-7)) `shouldEqual` parseBigNumber hexadecimal "-0x7"
+
+      it "can handle deserialization" do
+        let bnString = "f43"
+            d1 = unsafePartial $ fromRight $ runExcept $ readImpl (toForeign bnString)
+            d2 = unsafePartial $ fromRight $ runExcept $ decode (toForeign bnString)
+            d3 = unsafePartial $ fromRight $ A.decodeJson (A.fromString bnString)
+            d4 = unsafePartial $ fromJust $ parseBigNumber hexadecimal bnString
+        d4 `shouldEqual` d1
+        d4 `shouldEqual` d2
+        d4 `shouldEqual` d3
+        runExcept (decode (encode d1)) `shouldEqual` Right d4
+        (A.decodeJson (A.encodeJson d1)) `shouldEqual` Right d4

test/Spec/Hex.purs

@@ -2,13 +2,17 @@ module CoreSpec.Hex (hexSpec) where
 
 import Prelude
 
+import Control.Monad.Except (runExcept)
 import Data.Argonaut as A
-import Data.Either (Either(..))
 import Data.ByteString as BS
+import Data.Either (Either(..), fromRight)
+import Data.Foreign (toForeign)
+import Data.Foreign.Class (encode, decode)
 import Data.Maybe (Maybe(Just), fromJust)
 import Network.Ethereum.Core.HexString (HexString, mkHexString, toByteString, toUtf8, toAscii, fromUtf8, fromAscii)
 import Node.Encoding (Encoding(Hex))
 import Partial.Unsafe (unsafePartial)
+import Simple.JSON (readImpl)
 import Test.Spec (Spec, describe, it)
 import Test.Spec.Assertions (shouldEqual)
 
@@ -57,3 +61,15 @@ hexSpec = describe "hex-spec" do
             hxJson = A.fromString "0x6d79537472696e67"
         (A.encodeJson <$> (A.decodeJson hxJson :: Either String HexString)) `shouldEqual` Right hxJson
         A.decodeJson (A.encodeJson hx) `shouldEqual` Right hx
+
+      it "can handle deserialization" do
+        let hxString = "0f43"
+            d1 = unsafePartial $ fromRight $ runExcept $ readImpl (toForeign hxString)
+            d2 = unsafePartial $ fromRight $ runExcept $ decode (toForeign hxString)
+            d3 = unsafePartial $ fromRight $ A.decodeJson (A.fromString hxString)
+            d4 = unsafePartial $ fromJust $ mkHexString hxString
+        d4 `shouldEqual` d1
+        d4 `shouldEqual` d2
+        d4 `shouldEqual` d3
+        runExcept (decode (encode d1)) `shouldEqual` Right d4
+        (A.decodeJson (A.encodeJson d1)) `shouldEqual` Right d4