rock-paper-scissors: cleanup, test.

mrjbq7 · Oct 7, 2013 · c2c57cc · c2c57cc
1 parent 2497d94
commit c2c57cc
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 2 deletions.
diff --git a/rock-paper-scissors/rock-paper-scissors-tests.factor b/rock-paper-scissors/rock-paper-scissors-tests.factor
@@ -0,0 +1,13 @@
+USING: kernel tools.test ;
+
+IN: rock-paper-scissors
+
+{ t } [ \ scissors \ paper beats? ] unit-test
+{ f } [ \ scissors \ paper swap beats? ] unit-test
+{ t } [ \ rock \ scissors beats? ] unit-test
+{ f } [ \ rock \ scissors swap beats? ] unit-test
+{ t } [ \ paper \ rock beats? ] unit-test
+{ f } [ \ paper \ rock swap beats? ] unit-test
+{ f } [ \ rock \ rock beats? ] unit-test
+{ f } [ \ paper \ paper beats? ] unit-test
+{ f } [ \ scissors \ scissors beats? ] unit-test
diff --git a/rock-paper-scissors/rock-paper-scissors.factor b/rock-paper-scissors/rock-paper-scissors.factor
@@ -1,5 +1,5 @@
-USING: combinators formatting io kernel multi-methods random ;
-FROM: multi-methods => GENERIC: ;
+USING: combinators formatting io kernel random ;
+FROM: multi-methods => GENERIC: METHOD: ;
 IN: rock-paper-scissors
 
 SINGLETONS: rock paper scissors ;