From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 15 Feb 2018 01:00:51 +0000 (-0800)
Subject: sudoku: better tests.
X-Git-Tag: 0.98~316
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=f234ed8ff8caa1f38ae38503c1f8cc2b72a8c242

sudoku: better tests.
---

diff --git a/extra/sudoku/sudoku-tests.factor b/extra/sudoku/sudoku-tests.factor
index 71c6361ea8..0abdf7eabe 100644
--- a/extra/sudoku/sudoku-tests.factor
+++ b/extra/sudoku/sudoku-tests.factor
@@ -1,4 +1,26 @@
-IN: sudoku.tests
-USING: tools.test sudoku ;
+USING: io.streams.string sudoku tools.test ;
 
-{ } [ sudoku-demo ] unit-test
+{ "Puzzle:
+. . 1 . . 5 3 . .
+. 5 . 4 9 . . . .
+. . . 1 . 2 . 6 4
+. . . . . . 7 5 .
+6 . . . . . . . 1
+. 3 5 . . . . . .
+4 6 . 9 . 3 . . .
+. . . . 2 4 . 9 .
+. . 3 6 . . 1 . .
+Solution:
+2 4 1 8 6 5 3 7 9
+3 5 6 4 9 7 2 1 8
+8 7 9 1 3 2 5 6 4
+1 9 4 3 8 6 7 5 2
+6 8 2 5 7 9 4 3 1
+7 3 5 2 4 1 9 8 6
+4 6 7 9 1 3 8 2 5
+5 1 8 7 2 4 6 9 3
+9 2 3 6 5 8 1 4 7
+1 solutions.
+" } [
+    [ sudoku-demo ] with-string-writer
+] unit-test