elm/exercises/accumulate/AccumulateTests.elm

module Main (..) where

import Task
import Console
import ElmTest exposing (..)
import Accumulate exposing (accumulate)

import String

square : Int -> Int
square x = x * x

tests : Test
tests = suite "Accumulate"
        [ test "[]] Accumulate" (assertEqual [] (accumulate square [])),
          test "square Accumulate" (assertEqual [1,4,9] (accumulate square [1,2,3])),
          test "toUpper Accumulate" (assertEqual ["HELLO","WORLD"] (accumulate String.toUpper ["hello" , "world"])),
          test "reverse Accumulate" (assertEqual ["olleh","dlrow"] (accumulate String.reverse ["hello" , "world"]))
        ]

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