More complete tokenizer

2018-10-08 15:04:42 -04:00
parent 5c9e3c91d5
commit 15ae3dafdb
2 changed files with 21 additions and 2 deletions
@@ -26,5 +26,7 @@ ok( PerlRPG::Script::IsString(5)==0,			"'5' is not a string");
 ok( EvalString("\"[TestVar]\"") eq '3',			"\"[TestVar]\" is 3");
 ok( EvalString("3 + 3") == 6,				"\"3 + 3\" == 6");
 ok( EvalString("lc('FoO') . uc('FoO')") eq 'fooFOO',	"String function test");
+SetGameVar("TestVar", "\"FoO\"");
+ok( EvalString("uc(\" [TestVar] \")") eq ' FOO ',	"Complex string function test");

 done_testing();