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 PrimeFactors (primeFactors)

main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs

specs :: Spec
specs = describe "prime-factors" $
          describe "primeFactors" $ for_ cases test
  where

    test (n, expected) = it explanation assertion
      where
        explanation = show n
        assertion   = primeFactors n `shouldBe` expected

    -- As of 2016-07-31, there was no reference file
    -- for the test cases in `exercism/x-common`.

    cases = [ (          1,                 [] )
            , (          2,                [2] )
            , (          3,                [3] )
            , (          4,             [2, 2] )
            , (          6,             [2, 3] )
            , (          8,          [2, 2, 2] )
            , (          9,             [3, 3] )
            , (         27,          [3, 3, 3] )
            , (        625,       [5, 5, 5, 5] )
            , (     901255,   [5, 17, 23, 461] )
            , (93819012551, [11, 9539, 894119] ) ]

Version data entries

84 entries across 84 versions & 1 rubygems

Version	Path
trackler-2.0.6.28	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.27	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.26	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.25	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.24	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.23	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.22	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.21	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.20	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.19	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.18	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.17	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.16	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.15	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.14	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.13	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.12	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.11	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.10	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.9	tracks/haskell/exercises/prime-factors/test/Tests.hs