bioinformatics-toolkit-0.1.0: tests/Tests/Seq.hs

{-# LANGUAGE OverloadedStrings #-}
module Tests.Seq (tests) where

import Bio.Seq
import qualified Data.HashMap.Strict as M
import Test.Tasty
import Test.Tasty.HUnit

tests :: TestTree
tests = testGroup "Test: Bio.Seq"
    [ testCase "nucleotideFreq" testNuclFreq
    ]

testNuclFreq :: Assertion
testNuclFreq = do
    let dna = fromBS "ACTTCCCGGGD" :: DNA IUPAC
        test = M.lookupDefault undefined 'C' $ nucleotideFreq dna
        expected = 4
    test @=? expected