Another test.

khueue · Oct 1, 2011 · 2b0fade · 2b0fade
1 parent 1cb2391
commit 2b0fade
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/nine.pl b/nine.pl
@@ -38,11 +38,15 @@
 
 :- begin_tests(nine2).
 
-test('test XXX') :-
+test('a valid grid') :-
     Word = marskland,
     nine2(Word, [n,l,a, s,k,a, d,r,m]),
     !.
 
+test('an invalid grid') :-
+    Word = marskland,
+    \+ nine2(Word, [r,n,a, l,k,a, s,d,m]). % Subword 'nalkas'.
+
 :- end_tests(nine2).
 
 nine2(Word, Grid) :-