Contents

module Test.Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import Test.Unit (TestSuite, suite, test)
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
import Test.Unit.Assert as Assert
import Data.List (List(Nil), fromFoldable)
import Data.String as String
import Accumulate (accumulate)

main :: forall eff
  . Eff ( avar :: AVAR
        , console :: CONSOLE
        , testOutput :: TESTOUTPUT
        | eff                     
        )
        Unit
main = runTest suites

suites :: forall e. TestSuite e
suites = do
  suite "Accumulate.accumulate" do
    test "empty accumulation" $
      let
        emptyList = (Nil :: List Int)
      in
        Assert.equal emptyList $
          accumulate square emptyList

    test "accumulate single square" $
      Assert.equal (fromFoldable [4]) $
        accumulate square (fromFoldable [2])

    test "accumulate squares" $
      Assert.equal (fromFoldable [1, 4, 9]) $
        accumulate square (fromFoldable [1, 2, 3])

    test "accumulate upcases" $
      Assert.equal (fromFoldable ["HELLO", "WORLD"]) $
        accumulate String.toUpper (fromFoldable ["hello", "world"])

    test "accumulate length of strings" $
      Assert.equal (fromFoldable [3, 5, 5, 3, 3]) $
        accumulate String.length (fromFoldable ["the", "quick", "brown", "fox", "etc"])


square :: forall a. (Semiring a) => a -> a
square x = x * x

Version data entries

141 entries across 141 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.179	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.178	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.177	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.176	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.175	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.174	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.173	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.172	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.171	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.170	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.169	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.167	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.166	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.165	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.164	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.163	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.162	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.161	tracks/purescript/exercises/accumulate/test/Main.purs
trackler-2.2.1.160	tracks/purescript/exercises/accumulate/test/Main.purs