Sha256: 76a2073c65db2cbc1321c83b96c0b0f1c4e21c33b7641e046732e90d5ee25bfd
Contents?: true
Size: 1 KB
Versions: 165
Compression:
Stored size: 1 KB
Contents
{-# OPTIONS_GHC -fno-warn-type-defaults #-}
import Data.Foldable (for_)
import Test.Hspec (Spec, describe, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
import Hexadecimal (hexToInt)
main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs
specs :: Spec
specs = describe "hexadecimal" $
describe "hexToInt" $ for_ cases test
where
test (input, expected) = it description assertion
where
description = show input
assertion = hexToInt input `shouldBe` expected
-- As of 2016-08-02, there was no reference file
-- for the test cases in `exercism/x-common`.
cases = [ ( "1", 1)
, ( "c", 12)
, ( "10", 16)
, ( "af", 175)
, ( "100", 256)
, ("19ace" , 105166)
, ("carrot", 0)
, ("000000", 0)
, ("ffffff", 16777215)
, ("ffff00", 16776960) ]
Version data entries
165 entries across 165 versions & 1 rubygems