3151e1e342
git-svn-id: https://lsleditor.svn.sourceforge.net/svnroot/lsleditor@9 3f4676ac-adda-40fd-8265-58d1435b1672
83 lines
2.1 KiB
Text
83 lines
2.1 KiB
Text
string card;
|
|
integer lines = -1;
|
|
integer line = 0;
|
|
list resuts;
|
|
integer pass;
|
|
integer fail;
|
|
|
|
default
|
|
{
|
|
state_entry()
|
|
{
|
|
if(llGetInventoryNumber(INVENTORY_NOTECARD))
|
|
{
|
|
llGetNumberOfNotecardLines(
|
|
card = llGetInventoryName(INVENTORY_NOTECARD,0));
|
|
llOwnerSay("Test-Starting: "+card);
|
|
}
|
|
}
|
|
on_rez(integer a)
|
|
{
|
|
llResetScript();
|
|
}
|
|
touch_start(integer a)
|
|
{
|
|
llResetScript();
|
|
}
|
|
changed(integer a)
|
|
{
|
|
if(a & CHANGED_INVENTORY)
|
|
llResetScript();
|
|
}
|
|
|
|
dataserver(key a, string b)
|
|
{
|
|
if(lines == -1)
|
|
{
|
|
lines = (integer)b;
|
|
llGetNotecardLine(card,line);
|
|
}
|
|
else
|
|
{
|
|
list c = llParseString2List(a=(string)llParseString2List(b,[" "],[]),["|"],[EOF]);
|
|
integer d;
|
|
integer e;
|
|
integer f;
|
|
if(llGetSubString(a,0,0) == "#")
|
|
llOwnerSay(llDeleteSubString(b,0,0));
|
|
else if(llGetListLength(c) >= 2)
|
|
{
|
|
d = llStringLength(b = llUnescapeURL(llList2String(c,0)));
|
|
f = llList2Integer(c,1);
|
|
e = (d == f);
|
|
pass += e;
|
|
fail += !e;
|
|
string out = (string)line +": ";
|
|
out += llList2String(["Fail","Pass"],e) + " ";
|
|
out += "(" + (string)d + " - " + (string)f + ") ";
|
|
//Enable this section to test llUnescapeURL
|
|
// out += "(" + (string)((
|
|
// llStringLength(
|
|
// (string)llParseString2List( //strips off the evil pad
|
|
// llStringToBase64(b),["="],[]
|
|
// )
|
|
// ) * 3 ) / 4); //thats how many bytes should be in it (assuming all escaped)
|
|
// out += " - ";
|
|
// out += (string)(llStringLength(llList2String(c,0))/3) + ")";
|
|
|
|
|
|
// This will IM all the tests to the owner! This is slow because IM sleeps the script for 2 seconds.
|
|
llInstantMessage(llGetOwner(),b);
|
|
llOwnerSay(out);
|
|
}
|
|
if(llListFindList(c,[EOF]) == -1 && ++line < lines)
|
|
llGetNotecardLine(card,line);
|
|
else
|
|
{
|
|
llOwnerSay("Finished");
|
|
llOwnerSay("Passed: "+(string)pass);
|
|
llOwnerSay("Failed: "+(string)fail);
|
|
}
|
|
}
|
|
}
|
|
}
|