MazesOfMonad-1.0: src/MoresmauJP/Rpg/MazeObjectsTests.hs

-- | Items and Mazes hunit tests
-- (c) JP Moresmau 2009
module MoresmauJP.Rpg.MazeObjectsTests where

import MoresmauJP.Rpg.Inventory
import MoresmauJP.Rpg.MazeObjects

import MoresmauJP.Util.Random

import Test.HUnit

mazeObjectsTests=TestList [testScrollFill]

testScrollFill= TestLabel "Test filling scroll" (TestCase (do
	let sc=Scroll "" "" 5
	sc2<-evalRandT (generateScroll sc) (mkTestWrapper [2])
	assertEqual "not proper scroll" (Scroll "Scroll of Feel Better" "Feel Better" 5) sc2
	))