From 5968552a393436aaf2d092cfb5da71903ca31960 Mon Sep 17 00:00:00 2001 From: Haru Date: Sun, 19 Apr 2015 21:21:17 +0200 Subject: Added set reference testcase to the script test suite Signed-off-by: Haru --- npc/dev/test.txt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/npc/dev/test.txt b/npc/dev/test.txt index 7b498e922..a091f5998 100644 --- a/npc/dev/test.txt +++ b/npc/dev/test.txt @@ -602,6 +602,10 @@ function script HerculesSelfTestHelper { callsub(OnCheck, "Callsub (parent scope vars isolation)", .@x, 1); callsub(OnCheck, "Callsub (nested scopes)", callsub(OnTestNestedScope), 1); callsub(OnCheck, "Callsub (deeply nested scopes)", callsub(OnTestDeepNestedScope, 30, 0), 1); + .@x = 1; + .@y = callsub(OnSetReference, .@x); + callsub(OnCheck, "Callsub (setting references)", .@y, 2); + callsub(OnCheck, "Callsub (setting references)", .@x, 2); deletearray .@x; setarray .@x, 1, 2, 3, 4; callsub(OnCheck, "Callsub (array references)", callsub(OnTestArrayRefs, .@x), 4); @@ -732,6 +736,9 @@ OnCheckStr: callsub(OnReportError, .@msg$, .@val$, .@ref$); } return; +OnSetReference: + set getarg(0), getarg(0) + 1; + return getarg(0); } - script HerculesSelfTest -1,{ -- cgit v1.2.3-70-g09d2