libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-03-06 18:27:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: Add method call syntax tests

Browse Source
This commit is contained in:
djsrv 2023-07-19 22:06:55 -05:00 committed by Eugene Sandulenko
parent 0104a9e46b
commit 7c68706445
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
engines/director/lingo/tests/factory.lingo
View File

@ -6,6 +6,28 @@ set notAMethod = 0
scummvmAssertError aim2(notAMethod) -- should error
aim2("notAMethod") -- should run fallback handler
-- method call syntax without parens
GrammarFactory mSetStatusToArg "foo"
scummvmAssertEqual status "foo"
GrammarFactory mSetStatusToArg2 "foo", "bar"
scummvmAssertEqual status "bar"
-- method call syntax with parens and a comma
GrammarFactory(mSetStatusToArg, "foo")
scummvmAssertEqual status "foo"
GrammarFactory(mSetStatusToArg2, "foo", "bar")
scummvmAssertEqual status "bar"
scummvmAssertEqual GrammarFactory(mReturnArg, "foo") "foo"
scummvmAssertEqual GrammarFactory(mReturnArg2, "foo", "bar") "bar"
-- method call syntax with parens and no comma
GrammarFactory(mSetStatusToArg "foo")
scummvmAssertEqual status "foo"
GrammarFactory(mSetStatusToArg2 "foo", "bar")
scummvmAssertEqual status "bar"
scummvmAssertEqual GrammarFactory(mReturnArg "foo") "foo"
scummvmAssertEqual GrammarFactory(mReturnArg2 "foo", "bar") "bar"
--
macro AimGun2
global aim1
@ -106,3 +128,16 @@ set the locH of sprite 3 to KillLoc
on aim2 test
put "fallback worked!"
end
--
factory GrammarFactory
method mSetStatusToArg arg
global status
set status = arg
method mSetStatusToArg2 arg1, arg2
global status
set status = arg2
method mReturnArg arg
return arg
method mReturnArg2 arg1, arg2
return arg2