;Reading at top level in Editor Typeout Window 1.
;Reading in base 10 in package USER with standard Zetalisp readtable.

(run-tests)

+++Test parsing (LAMBDA DIE) with SIMPLE

---Result is:
((? (LAMBDA DIE)) )

+++Test parsing (THE LAMBDA) with NOUN-P

---Result is:
((FULL-NP ((SIMPLE-NP ((NP-MOD ((DET THE))) (ADJECTS (((ADJECT) NIL))) (NOUN LAMBDA))))))

+++Test parsing (EAT SLOW) with VERB-MOD-P

---Result is:
((VERB EAT) ((VERB-MOD) ((VERB-MOD ((ADVERB SLOW))))))

+++Test parsing (CRASH LAMBDA SLOW) with VERB-P

---Result is:
((VERB-MOD-P
  ((VERB CRASH) ((VERB-MOD) ((VERB-MOD ((VERB-OBJ ((SIMPLE-NP ((NOUN LAMBDA))) ((ADVERB) ((ADVERB ((ADVERB SLOW))))))))))))))

+++Test parsing (MY YELLOW DOG EAT LAMBDA) with STATEMENT

---Result is:
((?
  ((FULL-NP ((SIMPLE-NP ((NP-MOD ((POSSN MY))) (ADJECTS ((NIL (YELLOW)))) (NOUN DOG)))))
   (VERB-MOD-P ((VERB EAT) ((VERB-MOD) ((VERB-MOD ((VERB-OBJ ((? ((SIMPLE-NP ((NOUN LAMBDA))))))))))))))))

+++Test parsing (WILL DOG DIE ?) with SENTENCE

---Result is:
((QUESTION ((AUX-VERB WILL) (SIMPLE-NP ((NOUN DOG))) (? ((VERB DIE))) ((PUNCT) ((PUNCT ((PUNCT ?))))))))

+++Test parsing (THE LAMBDA WILL NOT CRASH) with SENTENCE

---Result is:
((STATEMENT
  ((?
    ((FULL-NP ((SIMPLE-NP ((NP-MOD ((DET THE))) (ADJECTS (((ADJECT) NIL))) (NOUN LAMBDA)))))
     (VERB-AUX ((VERB ((AUX-VERB WILL) (EMPHASIS ((NEGATIVE NOT))) (VERB CRASH))))))))))
NIL
(dribble-all)