From d50b9a8a37feef9d908675d1bbdc2ea0d46e5bfe Mon Sep 17 00:00:00 2001 From: djsrv Date: Fri, 21 Aug 2020 21:45:41 -0400 Subject: [PATCH] DIRECTOR: LINGO: Add chunk tests --- engines/director/lingo/tests/chunks.lingo | 32 +++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/engines/director/lingo/tests/chunks.lingo b/engines/director/lingo/tests/chunks.lingo index f138ea203ef..8f51ad70ec4 100644 --- a/engines/director/lingo/tests/chunks.lingo +++ b/engines/director/lingo/tests/chunks.lingo @@ -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, "")