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 (description, n, expected) = it description assertion
      where
        assertion   = primeFactors n `shouldBe` expected

    -- Test cases adapted from `exercism/x-common/prime-factors` on 2017-02-01.

    cases = [ ("no factors",                              1,                 [] )
            , ("prime number",                            2,                [2] )
            , ("square of a prime",                       9,             [3, 3] )
            , ("cube of a prime",                         8,          [2, 2, 2] )
            , ("product of primes and non-primes",       12,          [2, 2, 3] )
            , ("product of primes",                  901255,   [5, 17, 23, 461] )
            , ("factors include a large prime", 93819012551, [11, 9539, 894119] ) ]

Version data entries

81 entries across 81 versions & 1 rubygems

Version	Path
trackler-2.0.8.4	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.8.3	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.8.2	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.8.1	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.7.0	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.44	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.43	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.42	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.41	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.40	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.39	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.38	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.37	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.36	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.35	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.34	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.33	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.32	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.31	tracks/haskell/exercises/prime-factors/test/Tests.hs
trackler-2.0.6.30	tracks/haskell/exercises/prime-factors/test/Tests.hs