1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
|
module Main where
import qualified Data.Text as T
import Test.Framework (Test, defaultMain, testGroup)
import Test.Framework.Providers.HUnit (testCase)
import Test.HUnit (assertEqual)
#if !(MIN_VERSION_base(4,11,0))
-- this is redundant starting with base-4.11 / GHC 8.4
import Data.Semigroup
#endif
import qualified NLP.Miniutter.English as MU
main :: IO ()
main = defaultMain tests
tests :: [Test]
tests =
[ testGroup "check results of makePhrase calls"
[ testMakePhraseVerbatim
, testMakePhrasePlural
, testMakePhraseNumber
, testMakePhraseIndefinite
, testMakePhraseEnumeration
, testMakePhrasePossesive
, testMakePhraseSubjectVerb
, testMakePhraseSubjectVVxV
, testAllureOfTheStars
]
]
tp :: [MU.Part] -> T.Text -> Test
tp arg expect =
testCase ("testPhrase " ++ show arg)
$ let obtain = MU.makePhrase MU.defIrregular arg
in assertEqual (T.unpack expect ++ " == " ++ T.unpack obtain) expect obtain
testMakePhraseVerbatim :: Test
testMakePhraseVerbatim = testGroup "verbatim text Part constructors"
[ tp [MU.String "blue dog"] "blue dog"
, tp [MU.Text "blue dog"] "blue dog"
, tp [MU.String ""] ""
, tp [MU.Text ""] ""
, tp [MU.String "blue", MU.String "dog"] "blue dog"
, tp [MU.String "blue", MU.String ""] "blue"
, tp [MU.String "", MU.String "dog"] "dog"
, tp [MU.String "", MU.String ""] ""
, tp [MU.String "blue", "dog"] "blue dog"
, tp [MU.String "blue", ""] "blue"
, tp [MU.String "", "dog"] "dog"
, tp [MU.String "", ""] ""
, tp ["blue", MU.String "dog"] "blue dog"
, tp ["blue", MU.String ""] "blue"
, tp ["", MU.String "dog"] "dog"
, tp ["", MU.String ""] ""
, tp ["blue", "dog"] "blue dog"
, tp ["blue", ""] "blue"
, tp ["", "dog"] "dog"
, tp ["", ""] ""
, tp [MU.Phrase ["blue", "dog"]] "blue dog"
, tp [MU.Phrase ["blue", ""]] "blue"
, tp [MU.Phrase ["", "dog"]] "dog"
, tp [MU.Phrase ["", ""]] ""
, tp [MU.Ordinal 0 <> ", but", MU.Ordinal 1] "zeroth, but first"
, tp [MU.Cardinal 20 <> MU.Cardinal 0] "20zero"
, tp [MU.Cardinal 20 <> MU.Car 0] "200"
, tp [MU.String " "] " "
, tp [ " "] " "
, tp [MU.String " blue ", MU.String " dog "] " blue dog "
, tp [" blue ", " dog "] " blue dog "
, tp [MU.Phrase [" blue ", " dog "]] " blue dog "
, testCase "testPhrase makeSentence and Capitalize" $
assertEqual "makeSentence == Capitalize makePhrase :> '.'"
(MU.makePhrase MU.defIrregular
[MU.Capitalize (MU.SubjectVerbSg "goblin" "hit") <> "."])
(MU.makeSentence MU.defIrregular
[MU.SubjectVerbSg "goblin" "hit"])
]
testMakePhrasePlural :: Test
testMakePhrasePlural = testGroup "plural form Part constructors"
[ tp [MU.Ws "dog"] "dogs"
, tp [MU.Ws "dogs"] "dogses"
, tp [MU.Ws "blue dog"] "blue dogs"
, tp [MU.Ws "blue dog "] "blue dogs "
, tp [MU.Ws "blue dog."] "blue dogs."
, tp [MU.Ws "blue dog%"] "blue dogs%"
, tp [MU.Ws "bitch"] "bitches"
, tp [MU.Ws "the fish"] "the fishes"
, tp [MU.Ws "miss"] "misses"
, tp [MU.Ws "buzz"] "buzzes"
, tp [MU.Ws "box"] "boxes"
, tp [MU.Ws "hajj"] "hajjes"
, tp [MU.Ws "goto"] "gotoes"
, tp [MU.Ws "igloo"] "igloos"
, tp [MU.Ws "buy"] "buys"
, tp [MU.Ws "try"] "tries"
, tp [MU.Ws "canto"] "cantos"
, tp [MU.Ws "homo"] "homos"
, tp [MU.Ws "photo"] "photos"
, tp [MU.Ws "nice zero"] "nice zeros"
, tp [MU.Ws "piano"] "pianos"
, tp [MU.Ws "portico"] "porticos"
, tp [MU.Ws "pro"] "pros"
, tp [MU.Ws "quarto"] "quartos"
, tp [MU.Ws "kimono"] "kimonos"
, tp [MU.Ws "calf"] "calves"
, tp [MU.Ws "leaf"] "leaves"
, tp [MU.Ws "knife"] "knives"
, tp [MU.Ws "life"] "lives"
, tp [MU.Ws "dwarf"] "dwarfs"
, tp [MU.Ws "hoof"] "hooves"
, tp [MU.Ws "elf"] "elves"
, tp [MU.Ws "staff"] "staves" -- though depends on the meaning :(
, tp [MU.Ws "child"] "children"
, tp [MU.Ws "foot"] "feet"
, tp [MU.Ws "goose"] "geese"
, tp [MU.Ws "louse"] "lice"
, tp [MU.Ws "man"] "men"
, tp [MU.Ws "mouse"] "mice"
, tp [MU.Ws "Tooth"] "Teeth"
, tp [MU.Ws "woman"] "women"
, tp [MU.Ws "buffalo"] "buffalo"
, tp [MU.Ws "deer"] "deer"
, tp [MU.Ws "the moose"] "the moose"
, tp [MU.Ws "sheep"] "sheep"
, tp [MU.Ws "bison"] "bison"
, tp [MU.Ws "salmon"] "salmon"
, tp [MU.Ws "pike"] "pike"
, tp [MU.Ws "Trout"] "Trout"
, tp [MU.Ws "swine"] "swine"
, tp [MU.Ws "aircraft"] "aircraft"
, tp [MU.Ws "watercraft"] "watercraft"
, tp [MU.Ws "Spacecraft"] "Spacecraft"
, tp [MU.Ws "hovercraft"] "hovercraft"
, tp [MU.Ws "information"] "information"
, tp [MU.Ws (MU.String "dog blue")] "dog blues"
, tp [MU.Ws (MU.Ordinal 1)] "firsts"
, tp [MU.Ws (MU.Ws "do")] "doeses"
, tp [MU.Ws (MU.CarAWs 1 "man")] "a men"
, tp [MU.Ws (MU.Ord 1)] "1sts"
, tp [MU.Ws (MU.AW "elf")] "an elves"
, tp [MU.Ws (MU.WWandW ["dog", "eagle", "parrot"])]
"dogs, eagle and parrot"
, tp [MU.Ws (MU.WWxW "and also" ["dog", "eagle", "parrot"])]
"dogs, eagle and also parrot"
, tp [MU.Ws (MU.Wown "uncle")] "uncle'ses"
, tp [MU.Ws (MU.WownW "uncle" "dog")] "uncle's dogs"
, tp [MU.Ws (MU.Phrase ["uncle", "dog"])] "uncle dogs"
, tp [MU.Ws (MU.SubjectVerb MU.Sg3rd MU.Yes "I" "do")] "I does"
, tp [MU.Ws (MU.SubjectVerb MU.Sg1st MU.No "Me" "do")] "Me don't does"
, tp [MU.Ws (MU.SubjectVerb MU.Sg3rd MU.Why "woman" "do")] "does woman does"
]
testMakePhraseNumber :: Test
testMakePhraseNumber = testGroup "number Part constructors"
[ tp [MU.Cardinal 3] "three"
, tp [MU.Cardinal 1111] "1111"
, tp [MU.Cardinal 131] "131"
, tp [MU.Cardinal 131, MU.Ordinal 2] "131 second"
, tp [MU.Cardinal (-3)] "-3"
, tp [MU.Cardinal 9999992] "9999992"
, tp [MU.Ordinal 3] "third"
, tp [MU.Ordinal 1111] "1111th"
, tp [MU.Ordinal 131] "131st"
, tp [MU.Ordinal 131, MU.Cardinal 2] "131st two"
, tp [MU.Ordinal (-3)] "-3rd"
, tp [MU.Ordinal 9999992] "9999992nd"
, tp [MU.CarAWs 0 "blue dog"] "no blue dogs"
, tp [MU.CarAWs 1 "blue dog"] "a blue dog"
, tp [MU.Car1Ws 0 "blue dog"] "0 blue dogs"
, tp [MU.Car1Ws 1 "blue dog"] "blue dog"
, tp [MU.CarWs 1 "blue dog"] "1 blue dog"
, tp [MU.Car1Ws 2 "blue elf"] "2 blue elves"
, tp [MU.CardinalWs 2 " dog "] "two dogs "
, tp [MU.CarAWs 3 "leaf"] "3 leaves"
, tp [MU.CardinalAWs 0 "sheep"] "no sheep"
, tp [MU.CardinalAWs 1 "sheep"] "a sheep"
, tp [MU.CardinalAWs 4 "sheep"] "four sheep"
, tp [MU.Car1Ws (-1) "dog"] "-1 dogs"
, tp [MU.CardinalAWs (-3) "dog"] "-3 dogs"
, tp [MU.CardinalWs 12 ""] "12"
, tp [MU.CarWs 5 (MU.Cardinal 1)] "5 ones"
, tp [MU.CardinalWs 0 (MU.Ordinal 2)] "zero seconds"
, tp [MU.CardinalWs 1 (MU.Ordinal 2)] "one second"
, tp [MU.CardinalWs 4 (MU.Ordinal 2)] "four seconds"
, tp [MU.Ord 2] "2nd"
, tp [MU.Ord 3] "3rd"
, tp [MU.Ord 4] "4th"
, tp [MU.Ord (-3)] "-3rd"
, tp [MU.Ord 12] "12th"
, tp [MU.Ord 51] "51st"
, tp [MU.Ord 52] "52nd"
, tp [MU.Ord 951] "951st"
, tp [MU.Ord 952] "952nd"
, tp [MU.Ord 112] "112th"
, tp [MU.Ord 712] "712th"
, tp [MU.Ord 5 <> MU.Cardinal 1] "5thone"
, tp [MU.Ord 4 <> MU.Ordinal 2] "4thsecond"
, tp [MU.Ord 4 <> MU.Ord 7] "4th7th"
, tp [MU.Ord 4 <> MU.CarWs 7 "dog"] "4th7 dogs"
, tp [MU.CardinalWs 4 (MU.CarAWs 7 "dog")] "four 7 dogses"
, tp [MU.Car1Ws 4 (MU.Ord 7 <> "elf")] "4 7thelves"
]
testMakePhraseIndefinite :: Test
testMakePhraseIndefinite = testGroup "indefinite article"
[ tp [MU.AW "user"] "a user"
, tp [MU.AW "usual egg"] "a usual egg"
, tp [MU.AW "ABC"] "an ABC"
, tp [MU.AW " ABC"] " ABC"
, tp [MU.AW "ABC "] "an ABC "
, tp [MU.AW "SCUBA"] "a SCUBA"
, tp [MU.AW "SSI"] "an SSI"
, tp [MU.AW (MU.String "yell")] "a yell"
, tp [MU.AW (MU.Cardinal 3)] "a three"
, tp [MU.AW (MU.Cardinal 8)] "an eight"
, tp [MU.AW (MU.Cardinal 31)] "a 31"
, tp [MU.AW (MU.Cardinal 83)] "an 83"
, tp [MU.AW (MU.CarWs 3 "dog")] "a 3 dogs"
, tp [MU.AW (MU.Ordinal 3)] "a third"
, tp [MU.AW (MU.Ordinal 8)] "an eighth"
, tp [MU.AW (MU.Ordinal 31)] "a 31st"
, tp [MU.AW (MU.Ordinal 83)] "an 83rd"
, tp [MU.AW (MU.Ord 3)] "a 3rd"
, tp [MU.AW (MU.AW "dog")] "an a dog"
, tp [MU.AW (MU.WWandW ["dog", "eagle", "parrot"])]
"a dog, eagle and parrot"
, tp [MU.AW (MU.WWxW "or otherwise" ["hour", "eagle", "car"])]
"an hour, eagle or otherwise car"
, tp [MU.AW (MU.Wown "uncle")] "an uncle's"
, tp [MU.AW (MU.WownW "uncle" "dog")] "an uncle's dog"
, tp [MU.AW (MU.Phrase ["uncle", "dog"])] "an uncle dog"
, tp [MU.AW (MU.SubjectVerbSg "I" "do")] "an I do"
, tp [MU.AW (MU.SubjectVerb MU.Sg3rd MU.No "I" "do")] "an I don't do"
, tp [MU.AW (MU.SubjectVerb MU.Sg3rd MU.Why "I" "do")] "a do I do"
]
testMakePhraseEnumeration :: Test
testMakePhraseEnumeration = testGroup "enumeration and collection"
[ tp [MU.WWandW [MU.String "dog", "eagle", MU.Cardinal 7]]
"dog, eagle and seven"
, tp [MU.WWxW "then" [MU.Ordinal 113, MU.AW (MU.String "eagle"), "parrot"]]
"113th, an eagle then parrot"
, tp [MU.WWandW [ MU.String "I"
, MU.WWandW [MU.String "I", MU.Ordinal 31, MU.Cardinal 17]
, MU.WWandW ["I", MU.AW (MU.Ordinal 18)]
]]
"I, I, 31st and 17 and I and an 18th"
, tp [MU.WWxW " and perhaps%" [" dog ", "", "%eagle."]]
" dog and perhaps% %eagle."
]
testMakePhrasePossesive :: Test
testMakePhrasePossesive = testGroup "the possesive form"
[ tp [MU.Wown (MU.String "uncle")] "uncle's"
, tp [MU.Wown (MU.String " uncle ")] " uncle's "
, tp [MU.Wown ""] ""
, tp [MU.Wown " "] " "
, tp [MU.Wown "miss"] "miss'"
, tp [MU.Wown "YQS"] "YQS'"
, tp [MU.Wown "buzz"] "buzz's"
, tp [MU.Wown "box"] "box's"
, tp [MU.Wown "Who"] "Whose"
, tp [MU.Wown "I"] "mine"
, tp [MU.Wown "you"] "yours"
, tp [MU.Wown "he"] "his"
, tp [MU.Wown "She"] "Her"
, tp [MU.Wown "it"] "its"
, tp [MU.Wown "We"] "Ours"
, tp [MU.Wown "they"] "theirs"
, tp [MU.WownW (MU.String "uncle") (MU.String "dog")] "uncle's dog"
, tp [MU.WownW " uncle " "dog"] " uncle's dog"
, tp [MU.WownW "I" ""] "my"
, tp [MU.WownW "" "dog"] "dog"
, tp [MU.WownW "" ""] ""
, tp [MU.WownW " " " "] " "
, tp [MU.WownW "miss" "dog"] "miss' dog"
, tp [MU.WownW "YQS" (MU.Cardinal 33)] "YQS' 33"
, tp [MU.WownW "buzz" (MU.Ordinal 21)] "buzz's 21st"
, tp [MU.WownW "box" ""] "box's"
, tp [MU.WownW "who" "dog"] "whose dog"
, tp [MU.WownW "I" "dog"] "my dog"
, tp [MU.WownW "you" "dog"] "your dog"
, tp [MU.WownW "He" "dog"] "His dog"
, tp [MU.WownW "she" "dog"] "her dog"
, tp [MU.WownW "It" "dog"] "Its dog"
, tp [MU.WownW "we" "dog"] "our dog"
, tp [MU.WownW "They" "dog"] "Their dog"
, tp [MU.Wown (MU.Car1Ws 6 "")] "6's"
, tp [MU.Wown (MU.Ord 1)] "1st's"
, tp [MU.Wown (MU.Ws (MU.CardinalAWs 6 ""))] "sixes'"
, tp [MU.Wown (MU.WWandW ["I", "you"])] "I and yours"
, tp [MU.Wown (MU.WWandW ["you", "I"])] "you and mine"
, tp [MU.WownW (MU.WWandW ["you", "I"]) "dog"] "you and my dog"
, tp [MU.Wown (MU.Wown "it")] "its'"
, tp [MU.Wown $ MU.Wown $ MU.Wown $ MU.Wown "it"] "its's'"
, tp [MU.Wown (MU.SubjectVerb MU.Sg3rd MU.Why "I" "be")] "am mine"
, tp [MU.Wown " do I"] " do mine"
, tp [MU.Wown " do I "] " do mine "
]
testMakePhraseSubjectVerb :: Test
testMakePhraseSubjectVerb = testGroup "subject and verb"
[ tp [MU.SubjectVerbSg "species" "look"] "species looks"
, tp [MU.SubjectVerb MU.Sg1st MU.No "species" "look"] "species don't look"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "species" "look"] "does species look"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "species" "look"] "species look"
, tp [MU.SubjectVerb MU.PlEtc MU.No "species" "look"] "species don't look"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "species" "look"] "do species look"
, tp [MU.SubjectVerbSg "I" "be"] "I am"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "you" "be"] "you aren't"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "she" "be"] "is she"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "we" "be"] "we are"
, tp [MU.SubjectVerb MU.PlEtc MU.No "I" "be"] "I am not"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "they" "be"] "are they"
, tp [MU.SubjectVerbSg "they" "be"] "they are"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "we" "be"] "we aren't"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "it" "be"] "is it"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "he" "be"] "he is"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "be"] "She isn't"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "You" "be"] "are You"
, tp [MU.SubjectVerbSg "Tom" "have"] "Tom has"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "cat" "have"] "cat doesn't have"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "they" "have"] "do they have"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "he" "have"] "he has"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "have"] "She doesn't have"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "Foos" "have"] "do Foos have"
, tp [MU.SubjectVerbSg "Tom" "do"] "Tom does"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "cat" "do"] "cat doesn't do"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "they" "do"] "do they do"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "he" "go"] "he goes"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "go"] "She doesn't go"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "Foos" "go"] "do Foos go"
, tp [MU.SubjectVerbSg "Tom" "can"] "Tom can"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "cat" "could"] "cat couldn't"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "they" "must"] "must they"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "he" "will"] "he will"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "would"] "She wouldn't"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "Foos" "shall"] "shall Foos"
, tp [MU.SubjectVerbSg "Tom" "should"] "Tom should"
, tp [MU.SubjectVerb MU.Sg3rd MU.No "cat" "ought"] "cat oughtn't"
, tp [MU.SubjectVerb MU.Sg3rd MU.Why "they" "may"] "may they"
, tp [MU.SubjectVerb MU.PlEtc MU.Yes "he" "might"] "he might"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "had"] "She hadn't"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "it" "copy down"] "does it copy down"
, tp [MU.SubjectVerbSg "Tom" "copy down" ] "Tom copies down"
, tp [MU.SubjectVerbSg "Tom" "buzz"] "Tom buzzes"
, tp [MU.SubjectVerbSg "Tom" "it it"] "Tom its it"
, tp [MU.SubjectVerbSg "Tom" "you you"] "Tom yous you"
, tp [MU.SubjectVerbSg "You" "you you"] "You you you"
, tp [MU.SubjectVerbSg "She" "do read"] "She does read"
, tp [MU.SubjectVerbSg "She" "do do"] "She does do"
, tp [MU.SubjectVerb MU.PlEtc MU.Why "she" "do"] "does she do"
, tp [MU.SubjectVerb MU.PlEtc MU.No "She" "had had"] "She hadn't had"
]
testMakePhraseSubjectVVxV :: Test
testMakePhraseSubjectVVxV = testGroup "subject and many verbs"
[ tp [MU.SubjectVVandVSg "species" ["look", "hook", "fly away", "have", "kiss"]] "species looks, hooks, flies away, has and kisses"
, tp [MU.SubjectVVxV "or" MU.Sg1st MU.No "species" ["look", "hook", "fly away", "have", "kiss"]] "species don't look, hook, fly away, have or kiss"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "species" ["look", "hook", "fly away", "have", "kiss"]] "does species look, hook, fly away, have or kiss"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "species" ["look", "hook", "fly away", "have", "kiss"]] "species look, hook, fly away, have or kiss"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "species" ["look", "hook", "fly away", "have", "kiss"]] "species don't look, hook, fly away, have or kiss"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "species" ["look", "hook", "fly away", "have", "kiss"]] "do species look, hook, fly away, have or kiss"
, tp [MU.SubjectVVandVSg "I" ["be", "have a hat", "be cool", "be", "may swim"]] "I am, have a hat, am cool, am and may swim"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "you" ["be", "have a hat", "be cool", "be", "may swim"]] "you aren't, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "she" ["be", "have a hat", "be cool", "be", "may swim"]] "is she, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "we" ["be", "have a hat", "be cool", "be", "may swim"]] "we are, have a hat, are cool, are or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "I" ["be", "have a hat", "be cool", "be", "may swim"]] "I am not, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "they" ["be", "have a hat", "be cool", "be", "may swim"]] "are they, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVandVSg "they" ["be", "have a hat", "be cool", "be", "may swim"]] "they are, have a hat, are cool, are and may swim"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "we" ["be", "have a hat", "be cool", "be", "may swim"]] "we aren't, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "it" ["be", "have a hat", "be cool", "be", "may swim"]] "is it, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "he" ["be", "have a hat", "be cool", "be", "may swim"]] "he is, has a hat, is cool, is or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["be", "have a hat", "be cool", "be", "may swim"]] "She isn't, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "You" ["be", "have a hat", "be cool", "be", "may swim"]] "are You, have a hat, be cool, be or may swim"
, tp [MU.SubjectVVandVSg "Tom" ["have", "talk to Bob", "kiss Helen"]] "Tom has, talks to Bob and kisses Helen"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "cat" ["have", "talk to Bob", "kiss Helen"]] "cat doesn't have, talk to Bob or kiss Helen"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "they" ["have", "talk to Bob", "kiss Helen"]] "do they have, talk to Bob or kiss Helen"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "he" ["have", "talk to Bob", "kiss Helen"]] "he has, talks to Bob or kisses Helen"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["have", "talk to Bob", "kiss Helen"]] "She doesn't have, talk to Bob or kiss Helen"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "Foos" ["have", "talk to Bob", "kiss Helen"]] "do Foos have, talk to Bob or kiss Helen"
, tp [MU.SubjectVVandVSg "Tom" ["do", "mean well"]] "Tom does and means well"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "cat" ["do", "mean well"]] "cat doesn't do or mean well"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "they" ["do", "mean well"]] "do they do or mean well"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "he" ["go"]] "he goes"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["go"]] "She doesn't go"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "Foos" ["go"]] "do Foos go"
, tp [MU.SubjectVVandVSg "Tom" ["can"]] "Tom can"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "cat" ["could"]] "cat couldn't"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "they" ["must"]] "must they"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "he" ["will"]] "he will"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["would"]] "She wouldn't"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "Foos" ["shall"]] "shall Foos"
, tp [MU.SubjectVVandVSg "Tom" ["should"]] "Tom should"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.No "cat" ["ought"]] "cat oughtn't"
, tp [MU.SubjectVVxV "or" MU.Sg3rd MU.Why "they" ["may"]] "may they"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Yes "he" ["might"]] "he might"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["had"]] "She hadn't"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "it" ["copy down"]] "does it copy down"
, tp [MU.SubjectVVandVSg "Tom" ["copy down"] ] "Tom copies down"
, tp [MU.SubjectVVandVSg "Tom" ["buzz"]] "Tom buzzes"
, tp [MU.SubjectVVandVSg "Tom" ["it it"]] "Tom its it"
, tp [MU.SubjectVVandVSg "Tom" ["you you"]] "Tom yous you"
, tp [MU.SubjectVVandVSg "You" ["you you"]] "You you you"
, tp [MU.SubjectVVandVSg "She" ["do read"]] "She does read"
, tp [MU.SubjectVVandVSg "She" ["do do"]] "She does do"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.Why "she" ["do"]] "does she do"
, tp [MU.SubjectVVxV "or" MU.PlEtc MU.No "She" ["had had"]] "She hadn't had"
]
tc :: [MU.Part] -> T.Text -> Test
tc arg expect =
testCase ("testSentence " ++ show arg)
$ let obtain = MU.makeSentence MU.defIrregular arg
in assertEqual (T.unpack expect ++ " == " ++ T.unpack obtain) expect obtain
testAllureOfTheStars:: Test
testAllureOfTheStars = testGroup "Allure of the Stars utterances"
[ tc [ MU.SubjectVerbSg "you" "displace"
, "Haskell Alvin" ]
"You displace Haskell Alvin."
, tc [ MU.SubjectVerbSg "you" "drop"
, MU.CardinalWs 3 "royal blue vial" ]
"You drop three royal blue vials."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "displace"
, "you" ]
"Haskell Alvin displaces you."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "drop"
, MU.CarAWs 1 "royal blue vial" ]
"Haskell Alvin drops a royal blue vial."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "gulp down"
, MU.AW "royal blue vial" ]
"Haskell Alvin gulps down a royal blue vial."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "feel better" ]
"Haskell Alvin feels better."
, tc [ MU.SubjectVerbSg "the royal blue vial" "turn out to be"
, MU.CardinalWs 1 "vial of healing (+5)" ]
"The royal blue vial turns out to be one vial of healing (+5)."
, tc [ MU.SubjectVerbSg "you" "gulp down"
, MU.AW "magenta vial" ]
"You gulp down a magenta vial."
, tc [ MU.SubjectVerbSg "the magenta vial" "turn out to be"
, MU.CarAWs 1 "vial of rose water" ]
"The magenta vial turns out to be a vial of rose water."
, tc [ MU.SubjectVerbSg "deranged household robot" "trie to hit"
<> ", but you block" ]
"Deranged household robot tries to hit, but you block."
, tc [ MU.SubjectVerbSg "deranged household robot" "hit"
, "you" ]
"Deranged household robot hits you."
, tc [ MU.SubjectVerbSg "deranged household robot" "pick up"
, MU.Car1Ws 2 "sharpened pipe", "(3d1) (+1)" ]
"Deranged household robot picks up 2 sharpened pipes (3d1) (+1)."
, tc [ MU.SubjectVerbSg "deranged household robot" "hit"
, MU.Text"you with", MU.CardinalWs 1 "sharpened pipe (3d1) (+1)" ]
"Deranged household robot hits you with one sharpened pipe (3d1) (+1)."
, tc [ MU.SubjectVerbSg "you" "kick"
, "deranged household robot" ]
"You kick deranged household robot."
, tc [ MU.SubjectVerbSg "deranged household robot" "die" ]
"Deranged household robot dies."
, tc [ MU.SubjectVerbSg "you" "find"
, "a way downstairs" ]
"You find a way downstairs."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "squash"
, "you in a staircase accident" ]
"Haskell Alvin squashes you in a staircase accident."
, tc [ MU.SubjectVerbSg "you" "die" ]
"You die."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "find"
, "a way downstairs" ]
"Haskell Alvin finds a way downstairs."
, tc [ MU.SubjectVerbSg "Haskell Alvin" "hit"
, "deranged household robot" ]
"Haskell Alvin hits deranged household robot."
, tc [ MU.SubjectVerbSg "deranged household robot" "hit"
, "Haskell Alvin" ]
"Deranged household robot hits Haskell Alvin."
, tc [ MU.SubjectVerbSg "deranged household robot" "try to hit"
<> ", but Haskell Alvin blocks" ]
"Deranged household robot tries to hit, but Haskell Alvin blocks."
, tc [ MU.SubjectVerbSg "deformed monkey" "hit"
, "deranged household robot" ]
"Deformed monkey hits deranged household robot."
, tc [ MU.SubjectVerbSg (MU.CarAWs 1 "flying billiard ball (1d1)") "hit"
, "deranged household robot" ]
"A flying billiard ball (1d1) hits deranged household robot."
, tc [ MU.SubjectVerbSg "deranged household robot" "hiss in pain" ]
"Deranged household robot hisses in pain."
]
|
