03-UberDojo/haskell/Entertainement.hs @@ -0,0 +1,14 @@ +module Main where + +import Test.HUnit +import Entertainement + +main = runTestTT testes + +testes = TestList [testeGravitaParaAEsquerda] + +testeGravitaParaAEsquerda = TestList + [ + "Um elemento a esquerda fica a esquerda" ~: + gravitaEsquerda [['a', ' ']] ~?= [['a', ' ']] + ] \ No newline at end of file 03-UberDojo/haskell/tests.hs 03-UberDojo/haskell/entretainement.hs 55-minesweeper-haskell/Minesweeper.hs 55-minesweeper-haskell/testes.hs 55-ruby/spec/spec.opts e87b8aa372ed88c9af15127277ffa0d4336e7857 ticolucci ticolucci@gmail.com http://github.com/dojosp/participant-s-projects/commit/461bd7db05cbeda6eda2f038627759487856fd6f 461bd7db05cbeda6eda2f038627759487856fd6f 2008-10-27T12:03:15-07:00 2008-10-27T12:03:15-07:00 Primeiro teste de gravitaEsquerda. Thiago & Andre 6a645869af6f6172966c7e5c16b72e2f8abd31d8 ticolucci ticolucci@gmail.com