From 53a2ca9c5edca76ca6df33a8bc045d476e3f84ca Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Sun, 29 Dec 2019 00:41:01 +0100
Subject: DIRECTOR: LINGO: Added test for 'global'

---
 engines/director/lingo/tests/global.lingo | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 engines/director/lingo/tests/global.lingo

(limited to 'engines/director')

diff --git a/engines/director/lingo/tests/global.lingo b/engines/director/lingo/tests/global.lingo
new file mode 100644
index 0000000000..a658a44115
--- /dev/null
+++ b/engines/director/lingo/tests/global.lingo
@@ -0,0 +1,25 @@
+on initPattern
+    global MaxPattern
+    set MaxPattern = 65
+	put "first: " & MaxPattern
+	set a = 5
+end initPattern
+
+on increase
+	global MaxPattern
+	set MaxPattern = MaxPattern + 1
+	put MaxPattern
+	set a = 10
+end increase
+
+set a = 8
+set MaxPattern = 3
+
+initPattern
+
+increase
+increase
+
+put MaxPattern
+
+put a
-- 
cgit v1.2.3