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

Don't skip first _actual_ test

Browse source 
I failed to notice with the initial commit that the first tests in these
files are just the "version sanity check". This should start learners
off with a useful first failure.
This commit is contained in:
Jay Hayes 2017-07-07 15:42:31 -05:00
parent 4d81104a85
commit 965a615782
3 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
exercises/nucleotide-count/tests/Tests.elm
View file

@ -10,11 +10,10 @@ tests =
describe "NucleotideCount" describe "NucleotideCount"
[ test "the solution is for the correct version of the test" <| [ test "the solution is for the correct version of the test" <|
\() -> Expect.equal 2 version \() -> Expect.equal 2 version
, skip <| , test "empty dna strand has no nucleotides" <|
test "empty dna strand has no nucleotides" <| \() ->
\() -> Expect.equal { a = 0, t = 0, c = 0, g = 0 }
Expect.equal { a = 0, t = 0, c = 0, g = 0 } (nucleotideCounts "")
(nucleotideCounts "")
, skip <| , skip <|
test "repetitive sequence has only guanine" <| test "repetitive sequence has only guanine" <|
\() -> \() ->

5
exercises/run-length-encoding/tests/Tests.elm
View file

@ -10,9 +10,8 @@ tests =
describe "RunLengthEncoding" describe "RunLengthEncoding"
[ test "the solution is for the correct version of the test" <| [ test "the solution is for the correct version of the test" <|
\() -> Expect.equal 2 version \() -> Expect.equal 2 version
, skip <| , test "encode simple" <|
test "encode simple" <| \() -> Expect.equal "2A3B4C" (encode "AABBBCCCC")
\() -> Expect.equal "2A3B4C" (encode "AABBBCCCC")
, skip <| , skip <|
test "decode simple" <| test "decode simple" <|
\() -> Expect.equal "AABBBCCCC" (decode "2A3B4C") \() -> Expect.equal "AABBBCCCC" (decode "2A3B4C")

5
exercises/sublist/tests/Tests.elm
View file

@ -10,9 +10,8 @@ tests =
describe "Sublist" describe "Sublist"
[ test "the solution is for the correct version of the test" <| [ test "the solution is for the correct version of the test" <|
\() -> Expect.equal 2 version \() -> Expect.equal 2 version
, skip <| , test "empty equals empty" <|
test "empty equals empty" <| \() -> Expect.equal Equal (sublist [] [])
\() -> Expect.equal Equal (sublist [] [])
, skip <| , skip <|
test "empty is a sublist of anything" <| test "empty is a sublist of anything" <|
\() -> Expect.equal Sublist (sublist [] [ 1, 2 ]) \() -> Expect.equal Sublist (sublist [] [ 1, 2 ])