digits-0.1: src/Tests.hs

module Main where

import Data.Digits
import Text.Printf
import Test.QuickCheck

tests = [
    ("checkDigitsRoundTrip", quickCheck prop_digitsRoundTrip)]

main = mapM_ (\(s,a) -> printf "%-25s: " s >> a) tests