From 4a4819d7dfd4607a79c7f029398d20cf3f01b8e1 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Mon, 30 Dec 2019 22:47:40 +0100
Subject: DIRECTOR: LINGO: Added test for object setting

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

(limited to 'engines/director/lingo/tests')

diff --git a/engines/director/lingo/tests/the.lingo b/engines/director/lingo/tests/the.lingo
index 5e0432ed5b..d69696e2c9 100644
--- a/engines/director/lingo/tests/the.lingo
+++ b/engines/director/lingo/tests/the.lingo
@@ -15,3 +15,11 @@ set a = 5
 set gravityConst = the value of ( the text of cast A14)
 set the hilite of cast A32 to (a = 3)
 set the text of cast A14 = string( gravityConst )
+
+-- This is object setting. D4+
+set BlastWindow to window "Media Blast"
+set the rect of BlastWindow to myWindowRect
+set the filename of BlastWindow to "blastwin"
+set the titleVisible of BlastWindow to true
+set the modal of BlastWindow to true
+set the windowtype of BlastWindow to 5
-- 
cgit v1.2.3