Sha256: f27816a6dd9ee3fd9828ce0982d0575ae9fb2beed13ccdb8d2dbefc403ecd6bd
Contents?: true
Size: 1.6 KB
Versions: 81
Compression:
Stored size: 1.6 KB
Contents
{-# OPTIONS_GHC -fno-warn-type-defaults #-}
import Data.Either (isLeft)
import Data.Map (fromList)
import Test.Hspec (Spec, describe, it, shouldBe, shouldSatisfy)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
import DNA (nucleotideCounts)
main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs
specs :: Spec
specs = describe "nucleotide-count" $ do
-- Test cases adapted from `exercism/x-common/triangle.json` on 2017-01-31.
let x `matchesMap` y = x `shouldBe` (Right . fromList) y
describe "nucleotideCounts" $ do
it "empty dna strand has no nucleotides" $
nucleotideCounts "" `matchesMap` [ ('A', 0)
, ('C', 0)
, ('G', 0)
, ('T', 0) ]
it "repetitive-sequence-has-only-guanosine" $
nucleotideCounts "GGGGGGGG" `matchesMap` [ ('A', 0)
, ('C', 0)
, ('G', 8)
, ('T', 0) ]
it "counts all nucleotides" $
nucleotideCounts "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC"
`matchesMap` [ ('A', 20)
, ('C', 12)
, ('G', 17)
, ('T', 21) ]
it "validates strand" $
nucleotideCounts "AGXXACT" `shouldSatisfy` isLeft
Version data entries
81 entries across 81 versions & 1 rubygems