spec :: Spec
spec = do
    describe "Solidran.Revc.Detail" $ do
        describe "complementDna" $ do
            it "should do nothing with an empty string" $ do
                complementDna "" `shouldBe` ""
            it "should correctly complement a dna string" $ do
                complementDna "A" `shouldBe` "T"
                complementDna "AAAACCCGGT"
                    `shouldBe`
                        "ACCGGGTTTT"
spec :: Spec
spec = do
    describe "Solidran.Revc.Detail" $ do
        describe "complementDna" $ do
            it "should do nothing with an empty string" $ do
                complementDna "" `shouldBe` ""
            it "should correctly complement a dna string" $ do
                complementDna "A" `shouldBe` "T"
                complementDna "AAAACCCGGT"
                    `shouldBe`
                        "ACCGGGTTTT"
spec = do
    describe "Solidran.Revc.Detail" $ do
        describe "complementDna" $ do
            it "should do nothing with an empty string" $ do
                complementDna "" `shouldBe` ""
            it "should correctly complement a dna string" $ do
                complementDna "A" `shouldBe` "T"
                complementDna "AAAACCCGGT"
                    `shouldBe`
                        "ACCGGGTTTT"