% $Id: FourLetterTest.oz,v 1.1 2008/01/08 21:35:24 leavens Exp leavens $ \insert 'FourLetter.oz' \insert 'TestingNoStop.oz' {StartTesting 'FourLetter'} {Test {List.take {Solve Keyword} 3} '==' ["java" "modeling" "language"]} {Test {List.take {Solve FourLetter} 10} '==' ["jmlv" "jmle" "jmlt" "jmls" "jmlp" "jmle" "jmla" "jmvl" "jmve" "jmvt"]} % Examples of solving using Solve {System.showInfo {Solve Keyword}.1} for A in {List.take {Solve FourLetter} 30} do {System.showInfo A} end