Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Another test.

  • Loading branch information...
commit 2b0fade905357689502447a9c9b62c04bed6ebe8 1 parent 1cb2391
@khueue authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 nine.pl
View
6 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) :-
Please sign in to comment.
Something went wrong with that request. Please try again.