@@ -47,4 +47,6 @@ testeDescobreClique = TestList clique (Ponto 0 0) [] ~?= (Ponto 0 0) ,"Clique sem pontos atratores eh o proprio outro ponto" ~: clique (Ponto 1 1) [] ~?= (Ponto 1 1) + ,"Clique com um ponto atrator perto eh o proprio ponto" ~: + clique (Ponto 1 1) [(PontoAtrator (Ponto 0 1) 1)] ~?= (Ponto 0 1) ] 60-Snap-Haskell/Tests.hs 3e92ee03daf6411576f61a2f41aeb51299f453e4 ticolucci ticolucci@gmail.com http://github.com/dojosp/participant-s-projects/commit/830943bed7874133d8b3af8d2c69617eb291273a 830943bed7874133d8b3af8d2c69617eb291273a 2008-12-08T11:51:11-08:00 2008-12-08T11:51:11-08:00 Ultimo teste. Acabou o tempo e nao deu para passar Hugo e Mari 3b9aa9826276164e3525ab99733dbfe859f179ed ticolucci ticolucci@gmail.com