scummvm/engines/director/lingo/tests/builtin.lingo
Darkhood148 0af4950900 DIRECTOR: LINGO: Adds cache file and test for getNthFileNameInFolder
Adds a test for getNthFileNameInFolder by checking for a file named "0testfile" in the directory which is added in game-quirks.cpp
2024-04-25 00:41:27 +02:00

55 lines
1.1 KiB
Text

beep
beep 3
alert "Hi"
alert "Hi" && "there"
open "Hello"
open "Hello" with "Finder"
open "Hello" && "more" with "Finder"
-- These are D4+
move cast 1, cast 1
move cast 1, 3
move cast 3, 1
move cast 1
put findEmpty(cast 10)
pasteClipBoardInto cast 2
put the width of cast 1
-- Puppet commands must come after the move commands
-- move does a force render. Combined with puppetTransitions it just waits and causes a timeout on the buildbot
puppetPalette "Rainbow"
puppetPalette "System",30
puppetPalette "custompal", 15,4
puppetSound "Air Lock Lock"
puppetSound 0
puppetSprite 15, true
puppetTempo 30
puppetTransition 1
puppetTransition 2,4,20
unload
unload ab
unload ab, bc
put framesToHMS(integer(field 3),30,false,false) into field 5
set save to the scummvmVersion
set the scummvmVersion to 300
scummvmAssert(version = "3.0")
set the scummvmVersion to 310
scummvmAssert(version = "3.1")
set the scummvmVersion to 404
scummvmAssert(version = "4.0.4")
set the scummvmVersion to 1201
scummvmAssert(version = "12.0.1")
set the scummvmVersion to save
set n = getNthFileNameInFolder("@", 1)
scummvmAssertEqual(n, "0testfile")