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 = do

          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

110 entries across 110 versions & 1 rubygems

Version	Path
trackler-2.2.1.59	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.58	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.57	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.56	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.55	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.54	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.53	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.52	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.51	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.50	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.49	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.48	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.47	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.46	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.45	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.44	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.43	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.42	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.41	tracks/haskell/exercises/nucleotide-count/test/Tests.hs
trackler-2.2.1.40	tracks/haskell/exercises/nucleotide-count/test/Tests.hs