From 0b6ab63586aee51dadc558ecd2a492bf679e202e Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Mon, 23 Dec 2019 13:13:31 +0100
Subject: DIRECTOR: LINGO: Added tests for new grammar

---
 engines/director/lingo/tests/factory.lingo | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/engines/director/lingo/tests/factory.lingo b/engines/director/lingo/tests/factory.lingo
index 978858fc86..169ee423fe 100644
--- a/engines/director/lingo/tests/factory.lingo
+++ b/engines/director/lingo/tests/factory.lingo
@@ -65,6 +65,30 @@ method hit
 method mDispose
     global fire1
     set fire1 = 0
+Method mNew2 theSprite, startCastRight, endCastRight, startCastLeft, endCastLeft
+    instance startDrawLeft, endDrawLeft, startDrawRight, endDrawRight, multiDrawP
+
+    if startCastLeft and endCastLeft then set multiDrawP to TRUE
+    set startDrawLeft to startCastRight
+    set endDrawLeft to endCastRight
+    set startDrawRight to startCastLeft
+    set endDrawRight to endCastLeft
+
+    me(mInitBirdPart, theSprite, startCastRight)
+Method mAtFrame2 frame, subFrame
+    global gMouseH, gMouseV
+    set gMouseH = mouseH()
+    set gMouseV = mouseV()
+
+    -- Exit when "Done" button, which resides upon score channel 6.
+    if (the clickOn = 6) then exit
+
+    put the mouseDown into mouseClick
+    Body(mEveryFrame, mouseClick)
+    RightWing(mEveryFrame, mouseClick)
+    LeftWing(mEveryFrame, mouseClick)
+
+
 --
 macro KillIt2
 global KillLoc
-- 
cgit v1.2.3