Permalink
Browse files

Another test.

  • Loading branch information...
1 parent 1cb2391 commit 2b0fade905357689502447a9c9b62c04bed6ebe8 @khueue committed Oct 1, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 nine.pl
View
@@ -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) :-

0 comments on commit 2b0fade

Please sign in to comment.