05-KakeAgile2009/Ruby/lib/kake_bowling.rb 05-KakeAgile2009/Ruby/spec/kake_bowling_spec.rb 05-KakeAgile2009/Ruby/spec/kake_bowling_spec.rb~ 78-Fizzbuzz-ruby/lib/fizzbuzz.rb 78-Fizzbuzz-ruby/spec/fizzbuzz_spec.rb @@ -0,0 +1,47 @@ +module Main where + +import Test.HUnit +import Bowling + +main = runTestTT tests + +tests = TestList + [testAllZeros, + testOneSimpleFrame, + testAccumulatesFrameScores, + testFrameScoreAddsEvenIfFirstNothing, + testFrameScoreAddsEvenIfSecondIsNothing, + testUnderstandsXAsMarkForStrike, + testComputesBonusForStrike, + testComputesBonusForLastStrike + ] + +testComputesBonusForLastStrike = + 16 ~=? bowlingScore ((take 9 (repeat "--")) ++ ["X42"]) + +testComputesBonusForStrike = + 20 ~=? bowlingScore("X-" : "23" : (take 8 (repeat "--"))) + +testUnderstandsXAsMarkForStrike = + "frame score should be 10 when have a strike and a blank roll after" ~: + 10 ~=? bowlingScore("X-" : (take 9 (repeat "--"))) + +testFrameScoreAddsEvenIfSecondIsNothing = + "frame score should add the first roll even if second is nothing" ~: + 5 ~=? bowlingScore ("5-" : (take 9 (repeat "--"))) + +testFrameScoreAddsEvenIfFirstNothing = + "frame score should add the second roll even if first is nothing" ~: + 5 ~=? bowlingScore ("-5" : (take 9 (repeat "--"))) + +testAccumulatesFrameScores = + "score should accumulates frame scores" ~: + 5 + 3 ~=? bowlingScore ("23" : ("12" : (take 8 (repeat "--")))) + +testOneSimpleFrame = + "One simple frame should score the sum of two rolls" ~: + 5 ~=? bowlingScore ("23" : (take 9 (repeat "--"))) + +testAllZeros = + "All zeros should score 0" ~: + 0 ~=? bowlingScore (take 10 (repeat "--")) 05-KakeAgile2009/Haskell/BowlingTests.hs @@ -3,7 +3,8 @@ module Main where import Test.HUnit import FactFreq -main = runTestTT testes +--main = runTestTT testes +main = putStr $ (show (contagem (fatorial 100))) ++ "\n" testes = TestList [ testaFatorial 76-FactFreq/Tests.hs 234a395e377cb1555a6a2b6577d39fb32b6f1d56 8664fce4089c5fa3477cc89e63cb867c82d64586 Pedro Leal pedrombl@gmail.com http://github.com/dojosp/participant-s-projects/commit/017535d557da463146d2efd12e045ca6a9dc83d7 017535d557da463146d2efd12e045ca6a9dc83d7 2009-08-28T07:44:56-07:00 2009-08-28T07:44:56-07:00 Merge branch 'master' of git://github.com/dojosp/participant-s-projects af2c3749dc3a642c65a3232def6ee82d78ee9125 Pedro Leal pedrombl@gmail.com