Add/increment nucleotide-count test version

This commit is contained in:
Erik Simmler 2016-03-26 14:34:31 -04:00
parent a8eca4050e
commit 9b7f15a52a
3 changed files with 12 additions and 1 deletions

View file

@ -1 +1,5 @@
module NucleotideCount (..) where
version =
2

View file

@ -3,6 +3,10 @@ module NucleotideCount (..) where
import String
version =
2
nucleotideCounts : String -> { a : Int, t : Int, c : Int, g : Int }
nucleotideCounts sequence =
let

View file

@ -3,7 +3,7 @@ module Main (..) where
import Task
import Console
import ElmTest exposing (..)
import NucleotideCount exposing (nucleotideCounts)
import NucleotideCount exposing (nucleotideCounts, version)
tests : Test
@ -11,6 +11,9 @@ tests =
suite
"NucleotideCount"
[ test
"the solution is for the correct version of the test"
(assertEqual 2 version)
, test
"empty dna strand has no nucleotides"
(assertEqual
{ a = 0, t = 0, c = 0, g = 0 }