# LANGUAGE OverloadedStrings , ScopedTypeVariables #
module Model.ORCIDTest where

-- import Test.Tasty
import Test.Tasty.HUnit

import Model.ORCID

unit_readORCID_example :: Assertion
unit_readORCID_example = do
    (show . (read :: String -> ORCID)) "-0001-2345-6789" @?= "0000-0001-2345-6789"

 import Test.Tasty
# LANGUAGE OverloadedStrings , ScopedTypeVariables #
module Model.ORCIDTest where

import Test.Tasty.HUnit

import Model.ORCID

unit_readORCID_example :: Assertion
unit_readORCID_example = do
    (show . (read :: String -> ORCID)) "-0001-2345-6789" @?= "0000-0001-2345-6789"
