elm/exercises/strain/StrainTests.elm

module Main (..) where

import Task
import Console
import ElmTest exposing (..)

import Strain exposing (keep, discard)

import String

even = \number -> number % 2 == 0
odd = \number -> number % 2 == 1
isFirstLetter = \letter-> \word -> (String.left 1 word) == letter
lessThanTen = \num -> num < 10

tests : Test
tests = suite "Strain Test Suite"
  [ test "empty keep" (assertEqual [] (keep lessThanTen [])),
    test "keep everything" (assertEqual [1, 2, 3] (keep lessThanTen [1, 2, 3])),
    test "keep first and last" (assertEqual [1, 3] (keep odd [1, 2, 3])),
    test "keep nothing" (assertEqual [] (keep even [1,3,5,7])),
    test "keep neither first nor last" (assertEqual [2] (keep even [1, 2, 3])),
    test "keep strings" (assertEqual ["zebra", "zombies", "zealot"] (keep (isFirstLetter "z") ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"])),
    test "empty discard" (assertEqual [] (discard lessThanTen [])),
    test "discard everything" (assertEqual [] (discard lessThanTen [1, 2, 3])),
    test "discard first and last" (assertEqual [2] (discard odd [1, 2, 3])),
    test "discard nothing" (assertEqual [1,3,5,7] (discard even [1,3,5,7])),
    test "discard neither first nor last" (assertEqual [1, 3] (discard even [1, 2, 3])),
    test "discard strings" (assertEqual ["apple", "banana", "cherimoya"] (discard (isFirstLetter "z") ["apple", "zebra", "banana", "zombies", "cherimoya", "zealot"]))
  ]

port runner : Signal (Task.Task x ())
port runner =
  Console.run (consoleRunner tests)