mirror of
https://github.com/correl/elm.git
synced 2024-12-19 19:14:14 +00:00
Merge pull request #53 from tgecho/nucleotide-count-records
Add/increment nucleotide-count test version
This commit is contained in:
commit
919cc6a2ba
3 changed files with 12 additions and 1 deletions
|
@ -1 +1,5 @@
|
|||
module NucleotideCount (..) where
|
||||
|
||||
|
||||
version =
|
||||
2
|
||||
|
|
|
@ -3,6 +3,10 @@ module NucleotideCount (..) where
|
|||
import String
|
||||
|
||||
|
||||
version =
|
||||
2
|
||||
|
||||
|
||||
nucleotideCounts : String -> { a : Int, t : Int, c : Int, g : Int }
|
||||
nucleotideCounts sequence =
|
||||
let
|
||||
|
|
|
@ -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 }
|
||||
|
|
Loading…
Reference in a new issue