Merge pull request #53 from tgecho/nucleotide-count-records

Add/increment nucleotide-count test version
This commit is contained in:
Lew Parker 2016-03-26 12:47:32 -06:00
commit 919cc6a2ba
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 }