libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-17 15:18:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: Add chunk tests

Browse Source
This commit is contained in:
djsrv 2020-08-21 21:45:41 -04:00
parent 5201974ec7
commit d50b9a8a37
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
engines/director/lingo/tests/chunks.lingo
View File

@ -5,3 +5,35 @@
put the last char of "Macromedia, the multimedia company"
put the last word of "Macromedia, the multimedia company"
put the last word of "Macromedia, the multimedia company" && "man"
set src = "abcdefghijklmnopqrstuvwxyz"
scummvmAssertEqual(char 2 of src, "b")
scummvmAssertEqual(char 2 to 0 of src, "b")
scummvmAssertEqual(char 2 to 4 of src, "bcd")
scummvmAssertEqual(char 2 to 1000 of src, "bcdefghijklmnopqrstuvwxyz")
scummvmAssertEqual(word 1000 of src, "")
set src = " the quick brown fox jumped over the lazy dog"
scummvmAssertEqual(word 2 of src, "quick")
scummvmAssertEqual(word 2 to 4 of src, "quick brown fox")
scummvmAssertEqual(word 2 to 1000 of src, "quick brown fox jumped over the lazy dog")
scummvmAssertEqual(word 1000 of src, "")
set src = "the,quick,brown,fox,jumped,over,the,lazy,dog"
scummvmAssertEqual(item 2 of src, "quick")
scummvmAssertEqual(item 2 to 4 of src, "quick,brown,fox")
scummvmAssertEqual(item 2 to 1000 of src, "quick,brown,fox,jumped,over,the,lazy,dog")
scummvmAssertEqual(item 1000 of src, "")
set src = "the quick" & RETURN & "brown fox" & RETURN & "jumped over" & RETURN & "the lazy dog"
scummvmAssertEqual(line 2 of src, "brown fox")
scummvmAssertEqual(line 2 to 4 of src, "brown fox" & RETURN & "jumped over" & RETURN & "the lazy dog")
scummvmAssertEqual(line 2 to 1000 of src, "brown fox" & RETURN & "jumped over" & RETURN & "the lazy dog")
scummvmAssertEqual(line 1000 of src, "")
put "abcdefghijklmnopqrstuvwxyz" into field 1
scummvmAssertEqual(char 2 of field 1, "b")
scummvmAssertEqual(char 2 to 0 of field 1, "b")
scummvmAssertEqual(char 2 to 4 of field 1, "bcd")
scummvmAssertEqual(char 2 to 1000 of field 1, "bcdefghijklmnopqrstuvwxyz")
scummvmAssertEqual(word 1000 of field 1, "")