11 lines
241 B
Haskell
11 lines
241 B
Haskell
import BinaryConversions
|
|
import Numeric.Natural (Natural)
|
|
import Test.QuickCheck
|
|
import Test.QuickCheck.Instances.Natural ()
|
|
|
|
test :: [Natural] -> Bool
|
|
test nums = nums == map (binToNat . natToBin) nums
|
|
|
|
main :: IO ()
|
|
main = quickCheck test
|