Initial commit

engines/director/lingo/tests/the.lingo

@@ -0,0 +1,95 @@
+put 1.0 / 3
+set the floatPrecision to 6
+put 1.0 / 3
+put the loch of sprite 4
+set the loch of sprite 5 to 10
+set the castnum of sprite 8 to the number of cast "A Blank Castmember"
+
+put the time
+put the abbrev time
+put the long time
+
+put the date
+put the short date
+put the abbrev date
+put the long date
+
+set a = 5
+
+set gravityConst = the value of ( QUOTE & the text of cast 1 & QUOTE )
+set the hilite of cast 1 to (a = 3)
+set the text of cast 1 = string( gravityConst )
+
+-- This is object setting. D4+
+set BlastWindow to window "Media Blast"
+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
+
+set the bottom of sprite 1 to originV + (the number of lines in someText) * 16
+set the bottom of sprite 1 to originV + (the number of words in someText) * 16
+
+put the number of words of field 1 into field 2
+
+set pSprite to 1
+set pChangeH to 10
+
+set h = the locH of sprite pSprite + pChangeH
+
+set the volume of sound 1 to 255
+put the volume of sound 1 into field 1
+
+set the checkMark of menuItem "Horizontal" of menu "The Ball" to False
+
+put the number of castMembers into field 2
+
+put the number of menuItems of menu "sam" into field 2
+
+put abs( the locH of sprite 2 - the mouseH) into field 2
+
+set the castNum of sprite the clickon = the number of cast 1
+
+-- set castname = the name of cast(the castnum of sprite 1)
+
+set res = the soundBusy of 1
+
+put the sqrt of 9
+
+put 5 into field the number of cast "MasterList"
+
+set the text of field 1 = "Hello"
+
+-- The next statement is valid lingo, however it's hard to parse.
+-- We have no indication that this one off type of code is used.
+-- set the text of field 0 + 1 = "Hello"
+
+set h to "Hello"
+
+set gMarkerName = the length of h + 2
+
+scummvmAssertEqual(0, the length of 123)
+
+-- test the itemDelimiter
+set save = the itemDelimiter
+scummvmAssert(save=",")
+set the itemDelimiter = ":"
+scummvmAssert(the itemDelimiter=":")
+set the itemDelimiter = ":,"
+scummvmAssert(the itemDelimiter=":")
+set the itemDelimiter = ""
+scummvmAssert(the itemDelimiter="")
+set the itemDelimiter = save
+
+-- test number of items
+set chunkExpr to "one:two:three"
+scummvmAssertEqual(the number of items in chunkExpr, 1)
+set the itemDelimiter to ":"
+scummvmAssertEqual(the number of items in chunkExpr, 3)
+set the itemDelimiter to save
+
+-- test initialisation
+scummvmAssertEqual(the beepOn, 0)
+scummvmAssertEqual(the keyDownScript, "")
+scummvmAssertEqual(the mouseDownScript, "")
+scummvmAssertEqual(the mouseUpScript, "")