github/elm
1
0
Fork 0
mirror of https://github.com/correl/elm.git synced 2024-12-18 11:06:17 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #72 from RiderSargent/fixed-hamming-tests

Browse source 
Fixed order of parameters for Hamming exercise's tests.
This commit is contained in:
Lew Parker 2016-04-25 18:48:33 -06:00
commit 3c4e15a23c
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
exercises/hamming/HammingTests.elm
View file

@ -12,46 +12,46 @@ tests =
"Hamming"
[ test
"identical strands"
(assertEqual (distance "A" "A") (Just 0))
(assertEqual (Just 0) (distance "A" "A"))
, test
"long identical strands"
(assertEqual (distance "GGACTGA" "GGACTGA") (Just 0))
(assertEqual (Just 0) (distance "GGACTGA" "GGACTGA"))
, test
"complete distance in single nucleotide strands"
(assertEqual (distance "A" "G") (Just 1))
(assertEqual (Just 1) (distance "A" "G"))
, test
"complete distance in small strands"
(assertEqual (distance "AG" "CT") (Just 2))
(assertEqual (Just 2) (distance "AG" "CT"))
, test
"small distance in small strands"
(assertEqual (distance "AT" "CT") (Just 1))
(assertEqual (Just 1) (distance "AT" "CT"))
, test
"small distance"
(assertEqual (distance "GGACG" "GGTCG") (Just 1))
(assertEqual (Just 1) (distance "GGACG" "GGTCG"))
, test
"small distance in long strands"
(assertEqual (distance "ACCAGGG" "ACTATGG") (Just 2))
(assertEqual (Just 2) (distance "ACCAGGG" "ACTATGG"))
, test
"non-unique character in first strand"
(assertEqual (distance "AGA" "AGG") (Just 1))
(assertEqual (Just 1) (distance "AGA" "AGG"))
, test
"non-unique character in second strand"
(assertEqual (distance "AGG" "AGA") (Just 1))
(assertEqual (Just 1) (distance "AGG" "AGA"))
, test
"large distance"
(assertEqual (distance "GATACA" "GCATAA") (Just 4))
(assertEqual (Just 4) (distance "GATACA" "GCATAA"))
, test
"large distance in off-by-one strand"
(assertEqual (distance "GGACGGATTCTG" "AGGACGGATTCT") (Just 9))
(assertEqual (Just 9) (distance "GGACGGATTCTG" "AGGACGGATTCT"))
, test
"empty strands"
(assertEqual (distance "" "") (Just 0))
(assertEqual (Just 0) (distance "" ""))
, test
"disallow first strand longer"
(assertEqual (distance "AATG" "AAA") Nothing)
(assertEqual Nothing (distance "AATG" "AAA"))
, test
"disallow second strand longer"
(assertEqual (distance "ATA" "AGTG") Nothing)
(assertEqual Nothing (distance "ATA" "AGTG"))
]