% $Id: AgricultureTest.oz,v 1.1 2007/11/26 21:12:55 leavens Exp leavens $ \insert 'Agriculture.oz' \insert 'Capitals.oz' \insert 'SolveFirst.oz' \insert 'SolveAll.oz' \insert 'TestingNoStop.oz' % conjunctive queries % What is the capital and chief agricultural product of florida? {Test {SolveFirst proc {$ Ans} Town#Farmed = Ans in {Capitals florida Town} %% and {Agriculture florida Farmed} end} '==' tallahassee#oranges} % What is the capital and chief agricultural product of iowa? {Test {SolveFirst proc {$ Ans} Town#Farmed=Ans in {Capitals iowa Town} {Agriculture iowa Farmed} end} '==' desMoines#pork}