19:- module(adv_test, [test_adv/0]). 20
22adv_reset:-
23 adventure_init,
24 main_once,
25 main_once,
26 main_once,!.
27
28test_adv :- test_adv(1).
29
30test_adv(M-N) :- !,
31 forall(
32 between(M,N,O),
33 test_adv(O)).
34
35test_adv(N) :-
36 adv_reset,
37 adv_tst(N),
38 mainloop.
39
40adv_tst(0):- adv_reset.
41
42adv_tst(1):-
43 nlu_assert("Player~1 is in the kitchen."),
44 nlu_assert("There are boxes on the floor.").
45
46adv_tst(2):-
47 nlu_assert("Player~1 opens a box."),
48 nlu_assert("There are books in the box.").
49
50adv_tst(3):-
51 nlu_assert("Player~1 takes out the books."),
52 nlu_assert("Player~1 puts the books on the bookshelf."),
53 nlu_assert("Player~1 opens another box."),
54 nlu_assert("There are plates in the box."),
55 nlu_assert("Player~1 takes out the plates."),
56 nlu_assert("Player~1 puts them in the kitchen cabinet.").
57
58
59adv_tst(4):-
60 nlu_assert("He stands on the corner."),
61 nlu_assert("He sells purses."),
62 nlu_assert("He says, 'Ten Dollars' over and over."),
63 nlu_assert("Many women stop."),
64 nlu_assert("They look at all the purses."),
65 nlu_assert("They pick up the purses."),
66 nlu_assert("They look inside the purses."),
67 nlu_assert("They put the purses on their shoulders."),
68 nlu_assert("Many women buy a purse."),
69 nlu_assert("Some women buy two purses."),
70
71adv_tst(5):-
72 nlu_assert("She is in her pajamas."),
73 nlu_assert("She lies down."),
74 nlu_assert("She puts her head on the pillow."),
75 nlu_assert("She moves the pillow around a little bit."),
76 nlu_assert("It is more comfortable now."),
77 nlu_assert("The lamp is still on."),
78 nlu_assert("She turns off the lamp."),
79 nlu_assert("Her bedroom is dark."),
80 nlu_assert("She puts her head back on the pillow."),
81 nlu_assert("She goes to sleep."),
82
83adv_tst(6):-
84 nlu_assert("She opens the envelope."),
85 nlu_assert("She reads the letter."),
86 nlu_assert("The letter is from her cousin."),
87 nlu_assert("Her cousin is in Europe."),
88 nlu_assert("Her cousin likes Europe."),
89 nlu_assert("She finishes the letter."),
90 nlu_assert("She writes a letter to her cousin."),
91 nlu_assert("She tells her cousin all the latest news at home."),
92 nlu_assert("She thanks her cousin for the letter."),!.
93
94adv_tst(7):-
95 nlu_assert("She is a model."),
96 nlu_assert("She walks up and down the runway."),
97 nlu_assert("She models clothes."),
98 nlu_assert("She models expensive clothes."),
99 nlu_assert("Famous designers design her clothes."),
100 nlu_assert("The clothes look good on her."),
101 nlu_assert("People watch her model clothes."),
102 nlu_assert("People spend lots of money on the clothes."),
103 nlu_assert("People buy the clothes."),
104 nlu_assert("She never buys the clothes."),
105 nlu_assert("She just wears them.").
106
107adv_tst(8):-
108 nlu_assert("The baby cries."),
109 nlu_assert("She looks at it."),
110 nlu_assert("She talks to it."),
111 nlu_assert("The baby cries some more."),
112 nlu_assert("She picks it up."),
113 nlu_assert("She holds it."),
114 nlu_assert("She pats the baby on the back."),
115 nlu_assert("The baby burps."),
116 nlu_assert("She puts the baby down."),
117 nlu_assert("She looks at it."),
118 nlu_assert("The baby looks at her."),
119 nlu_assert("It smiles at her.").
120
121adv_tst(9):-
122 nlu_assert("He has a secret."),
123 nlu_assert("He keeps his secret."),
124 nlu_assert("He shares it with nobody."),
125 nlu_assert("He tells it to nobody."),
126 nlu_assert("A secret is a secret."),
127 nlu_assert("He loves his teacher."),
128 nlu_assert("That is his secret."),
129 nlu_assert("His teacher is beautiful."),
130 nlu_assert("She is smart."),
131 nlu_assert("She likes him too."),
132 nlu_assert("She gives him A's on his homework."),
133 nlu_assert("She gives him gold stars for his class work."),!.
134
135adv_tst(10):-
136 nlu_assert("It is winter."),
137 nlu_assert("It is early morning."),
138 nlu_assert("He goes to the park."),
139 nlu_assert("He puts on his ice skates."),
140 nlu_assert("He skates on the pond."),
141 nlu_assert("He skates round and round."),
142 nlu_assert("Nobody else is on the pond."),
143 nlu_assert("He has it all to himself."),
144 nlu_assert("It is quiet on the pond."),
145 nlu_assert("The only sound is his skates on the ice."),!.
146
147adv_tst(11):-
148 nlu_assert("He has a pocketknife."),
149 nlu_assert("It has two parts."),
150 nlu_assert("It has a knife."),
151 nlu_assert("The knife is two inches long."),
152 nlu_assert("It is sharp."),
153 nlu_assert("He cuts rope with the knife."),
154 nlu_assert("He cuts wood with the knife."),
155 nlu_assert("The other part is a file."),
156 nlu_assert("The file is two inches long."),
157 nlu_assert("He files his nails with the file."),!.
158
159
160:- initialization(test_adv,main).