diff options
Diffstat (limited to 'npc/test/test1.txt')
| -rw-r--r-- | npc/test/test1.txt | 165 |
1 files changed, 165 insertions, 0 deletions
diff --git a/npc/test/test1.txt b/npc/test/test1.txt new file mode 100644 index 00000000..9fefe307 --- /dev/null +++ b/npc/test/test1.txt @@ -0,0 +1,165 @@ +// Evol scripts. +// Author: +// 4144 +// Description: +// script tests + +function script test1function { + .var = .walkmask; + if (.var != 3) + mes "Error: testing test1 npc variables from function."; + .var = getvariableofnpc(.walkmask, "test1"); + if (.var != 3) + mes "Error: testing test1 npc variables from function."; + .var = getvariableofnpc(.walkmask, "test2"); + if (.var != 4) + mes "Error: testing test2 npc variables from function."; + + return; +} + +test,10,5,0 script test1 NPC_HAT_BOX,{ + + function assert { + if (getarg(0)) { + .stats[1]++; + // comment out the next line for less verbosity + mesf("Success: %s.", getarg(1)); + } else { + mesf("##BError##b: %s.", getarg(1)); + } + return .stats[0]++; + } + + function test_npc_vars { + mes("##2Testing NPC variables...##0"); + .var = .walkmask; + assert(.var == 3, "test1 npc variales"); + .var = getvariableofnpc(.walkmask, "test1"); + assert(.var == 3, "test1 npc variables from function"); + .var = getvariableofnpc(.walkmask, "test2"); + assert(.var == 4, "test2 npc variables"); + test1function(); + next(); + } + + function test_quest_vars { + mes("##2Testing quest variables...##0"); + .@time = 1000; + setq(Test_testing1, 1, 2, 3, .@time); + assert(getq(Test_testing1) == 1, "getq1 = 1"); + assert(getq2(Test_testing1) == 2, "getq2 = 2"); + assert(getq3(Test_testing1) == 3, "getq3 = 3"); + assert(getqtime(Test_testing1) == .@time, "getqtime = 1000"); + next(); + .@time = 2000; + setq(Test_testing1, 2, 3, 4, .@time); + assert(getq(Test_testing1) == 2, "getq1 = 2"); + assert(getq2(Test_testing1) == 3, "getq2 = 3"); + assert(getq3(Test_testing1) == 4, "getq3 = 4"); + assert(getqtime(Test_testing1) == .@time, "getqtime = 2000"); + next(); + setq(Test_testing1, 0); + } + + function test_translation_old { + mes("##2Testing old translation system without gender...##0"); + assert(l("test @@", "") == "test ", "\"test @@\", \"\""); + assert(l("test @@", "foo") == "test foo", "\"test @@\", \"foo\""); + assert(l("@@", "") == "", "\"@@\", \"\""); + assert(l("@@") == "@@", "\"@@\""); + assert(l("@@ @@ @@", "this", "is", "test") == "this is test", "\"@@ @@ @@\", \"this\", \"is\", \"test\""); + assert(l("data @@ @@ @@ data", "this", "is", "test") == "data this is test data", "\"data @@ @@ @@ data\", \"this\", \"is\", \"test\""); + next(); + + /* + mesf("##2Testing old translation system as %s gender...##0", g("female", "male")); + if (Sex == 1) + assert(lg("test1 @@", "test2 @@", "line") == "test2 line#1", "\"test1 @@\", \"test2 @@\", \"line\""); + else if (Sex == 0) + assert(lg("test1 @@", "test2 @@", "line") == "test1 line#0", "\"test1 @@\", \"test2 @@\", \"line\""); + */ + next(); + } + + function test_translation_new { + mes("##2Testing new translation system without gender...##0"); + assert(l("") == "", "\"\""); + assert(l("test") == "test", "\"test\""); + assert(l("test %s", "") == "test ", "\"test %s\", \"\""); + assert(l("test %s", "foo") == "test foo", "\"test %s\", \"foo\""); + assert(l("%s", "") == "", "\"%s\", \"\""); + assert(l("%s") == "%s", "\"%s\""); + assert(l("%%") == "%%", "\"%##0%\""); // XXX: %% is reserved for emotes in manaplus, so we escape it with color + assert(l("%d%%", 6) == "6%", "\"%d%##0%\", 6"); // XXX: %% is reserved for emotes in manaplus, so we escape it with color + assert(l("%s %s %s", "this", "is", "test") == "this is test", "\"%s %s %s\", \"this\", \"is\", \"test\""); + assert(l("%s %d %s", "foo", 69, "bar") == "foo 69 bar", "\"%s %d %s\", \"foo\", 69, \"bar\""); + assert(l("data %s %s %s data", "this", "is", "test") == "data this is test data", "\"data %s %s %s data\", \"this\", \"is\", \"test\""); + next(); + + /* + mesf("##2Testing new translation system as %s gender...##0", g("female", "male")); + if (Sex == 1) { + assert(lg("test") == "test#1", "\"test\""); + assert(lg("test1", "test2") == "test2#1", "\"test1\", \"test2\""); + assert(lg("test1 %s", "test2 %s", "line") == "test2 line#1", "\"test1 %s\", \"test2 %s\", \"line\""); + } else if (Sex == 0) { + assert(lg("test") == "test#0", "\"test\""); + assert(lg("test1", "test2") == "test1#0", "\"test1\", \"test2\""); + assert(lg("test1 %s", "test2 %s", "line") == "test1 line#0", "\"test1 %s\", \"test2 %s\", \"line\""); + } + */ + next(); + + mes("##2Testing advanced translation...##0"); + assert(l("foo %2$s bar %1$s baz", "qux", "quux") == "foo quux bar qux baz", "\"foo %2$s bar %1$s baz\", \"qux\", \"quux\""); + assert(l("%5d", 6) == " 6", "\"%5d\", 6"); + assert(l("%5d", -6) == " -6", "\"%5d\", -6"); + assert(l("%+5d", 6) == " +6", "\"%+5d\", 6"); + assert(l("%+5d", -6) == " -6", "\"%+5d\", -6"); + assert(l("%-5d", 6) == "6 ", "\"%-5d\", 6"); + assert(l("%-5d", -6) == "-6 ", "\"%-5d\", -6"); + assert(l("% 5d", 6) == " 6", "\"% 5d\", 6"); + assert(l("% 5d", -6) == " -6", "\"% 5d\", -6"); + assert(l("%05d", 6) == "00006", "\"%05d\", 6"); + assert(l("%05d", -6) == "-0006", "\"%05d\", -6"); + assert(l("%10s", "test") == " test", "\"%10s\", \"test\""); + assert(l("% 10s", "test") == " test", "\"% 10s\", \"test\""); + assert(l("%-10s", "test") == "test ", "\"%-10s\", \"test\""); + next(); + } + + + do { + mes("Please select a test:"); + select( + "NPC variables", + "quest variables", + "translation (old)", + "translation (new)", + "everything"); + + setarray(.stats[0], 0, 0); // make sure we have a clean state + clear(); + + switch (@menu) { + case 1: test_npc_vars(); break; + case 2: test_quest_vars(); break; + case 3: test_translation_old(); break; + case 4: test_translation_new(); break; + default: + test_translation_old(); + test_translation_new(); + test_npc_vars(); + test_quest_vars(); + } + + mesf("##BTests complete. [%02d/%02d]", .stats[1], .stats[0]); + next(); + } while (true); + close; + +OnInit: + .walkmask = 3; + end; +} |