rpc-0.0.0: tests/ctest.hs

{-# LANGUAGE TemplateHaskell #-}

module Main where
import Network.RPC.Client
import Test.HUnit

$(fetch (IP "" 9000))

main = runTestTT $ TestList [
            TestLabel "hello world" hWorld,
            TestLabel "plusOne" plusTest,
            TestLabel "BoolInt" boolTest]

hWorld = TestCase $ do
    a <- helloWorld
    assertEqual "" "hello world" a

plusTest = TestCase $ do
    a <- tester 1
    assertEqual "Plus 1: " 2 a

boolTest = TestCase $ do
    a <- tester2 0 True
    assertEqual "Not True : " False a