371 lines
14 KiB
Plaintext
371 lines
14 KiB
Plaintext
|
|
||
|
|
::Include(_("test_base.script"));
|
||
|
|
|
||
|
|
class wxTest extends script_test_base
|
||
|
|
{
|
||
|
|
function Run()
|
||
|
|
{
|
||
|
|
test_test();
|
||
|
|
test_wxstring();
|
||
|
|
test_wxstring_unicode();
|
||
|
|
test_wxcolor();
|
||
|
|
test_wxarray_string();
|
||
|
|
test_wxfilename();
|
||
|
|
test_wxpoint();
|
||
|
|
test_wxsize();
|
||
|
|
test_dialogs();
|
||
|
|
print_global_test_result();
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_test()
|
||
|
|
{
|
||
|
|
::print("======= Test Test environment BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
::print(" this is intended to fail: \n");
|
||
|
|
test_string("test_string","hallo","nope");
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test Test environment END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxstring()
|
||
|
|
{
|
||
|
|
::print("======= Test wx String BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
|
||
|
|
local string = _T("Hallo");
|
||
|
|
if(test_string("tostring",string,"Hallo") == true)
|
||
|
|
made_passed("constructor(SQchar)");
|
||
|
|
else
|
||
|
|
made_failed("constructor(SQchar)","see previous result");
|
||
|
|
|
||
|
|
|
||
|
|
test_false("IsEmpty",string.IsEmpty());
|
||
|
|
test_equal("Length",string.Length(),5);
|
||
|
|
test_equal("length",string.length(),5);
|
||
|
|
test_equal("len",string.len(),5);
|
||
|
|
test_equal("size",string.size(),5);
|
||
|
|
test_string("Lower",string.Lower(),"hallo");
|
||
|
|
string.LowerCase();
|
||
|
|
test_string("LowerCase",string,"hallo");
|
||
|
|
test_string("MakeLower",string.MakeLower(),"hallo");
|
||
|
|
test_string("Upper",string.Upper(),"HALLO");
|
||
|
|
string.UpperCase();
|
||
|
|
test_string("UpperCase",string,"HALLO");
|
||
|
|
test_string("MakeUpper",string.MakeUpper(),"HALLO");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_string("Mid",string.Mid(2,2),"ll");
|
||
|
|
test_string("Remove",string.Remove(2,string.len()-2),"Ha");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_string("RemoveLast",string.RemoveLast(2),"Hal");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_equal("Replace ret",string.Replace(_("ll"),_("xx")),1);
|
||
|
|
test_string("Replace value",string,"Haxxo");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_string("AfterFirst",string.AfterFirst(_T("l")),"lo");
|
||
|
|
string = _T("Hallo");
|
||
|
|
//test_string("AfterFirst const",string.AfterFirst('l'),"lo");
|
||
|
|
//string = _T("Hallo");
|
||
|
|
test_string("AfterLast",string.AfterLast(_T("l")),"o");
|
||
|
|
string = _T("Hallo");
|
||
|
|
//test_string("AfterLast const",string.AfterLast('l'),"o");
|
||
|
|
//string = _T("Hallo");
|
||
|
|
test_string("BeforeFirst",string.BeforeFirst(_T("l")),"Ha");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_string("BeforeLast",string.BeforeLast(_T("l")),"Hal");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_string("Right",string.Right(2),"lo");
|
||
|
|
string = _T("Hallo");
|
||
|
|
test_true("Matches",string.Matches(_T("Ha*o")));
|
||
|
|
string = _T("long_string_to_test_replace");
|
||
|
|
//test_string("insert",string.insert(4,_T("_new")),"long_new_string_to_test_replace" );
|
||
|
|
//test_string("replace(start, len,string)",string.replace(5,3,_T("old")),"long_old_string_to_test_replace");
|
||
|
|
//test_string("replace(start, len,string,start2,len2)",string.replace(5,3,_T("old_new_string"),4,3),"long_new_string_to_test_replace");
|
||
|
|
//string = _T("42");
|
||
|
|
//local ret_val = string.ToInt(10);
|
||
|
|
//if(!ret_val.success)
|
||
|
|
// made_failed("ToInt","it was no success");
|
||
|
|
//test_equal("ToInt",ret_val.value,42);
|
||
|
|
//string = _T("42.42");
|
||
|
|
//ret_val = string.ToDouble();
|
||
|
|
//if(!ret_val.success)
|
||
|
|
// made_failed("ToDouble","it was no success");
|
||
|
|
//test_equal("ToDouble",ret_val.value,42.42);
|
||
|
|
|
||
|
|
local hasException = false;
|
||
|
|
try
|
||
|
|
{
|
||
|
|
// This is expected to throw an exception.
|
||
|
|
local nullstr;
|
||
|
|
local res = _T("SomeString") + nullstr;
|
||
|
|
}
|
||
|
|
catch(e)
|
||
|
|
{
|
||
|
|
passed("ConcatNull");
|
||
|
|
hasException = true;
|
||
|
|
}
|
||
|
|
if (!hasException)
|
||
|
|
failed("ConcatNull");
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wx String END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxstring_unicode()
|
||
|
|
{
|
||
|
|
clear_test_result();
|
||
|
|
::print("======= Test wx String unicode BEGINN ======= \n");
|
||
|
|
::print("test string: !5Aa ЉЩщӃ ウインカリ\n");
|
||
|
|
made_failed("This implementation doesn't support UNICODE","not implemented, as you can see on the wrong test string (it has to show Cyrillic and ?Japanese? symbols")
|
||
|
|
|
||
|
|
|
||
|
|
// local string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// if(test_string("tostring",string,"!5Aa ЉЩщӃ ウインカリ") == true)
|
||
|
|
// made_passed("constructor(SQchar)");
|
||
|
|
// else
|
||
|
|
// made_failed("constructor(SQchar)","see previous result");
|
||
|
|
//
|
||
|
|
// local string2 = _T(string);
|
||
|
|
// if(test_string("tostring",string2,"!5Aa ЉЩщӃ ウインカリ") == true)
|
||
|
|
// made_passed("constructor(_T)");
|
||
|
|
// else
|
||
|
|
// made_failed("constructor(_T)","see previous result");
|
||
|
|
//
|
||
|
|
// string2 = _T(42);
|
||
|
|
// if(test_string("tostring",string2,"42") == true)
|
||
|
|
// made_passed("constructor(42)");
|
||
|
|
// else
|
||
|
|
// made_failed("constructor(42)","see previous result");
|
||
|
|
//
|
||
|
|
// string2 = _T(42.42);
|
||
|
|
// if(test_string("tostring",string2,"42.42") == true)
|
||
|
|
// made_passed("constructor(42.42)");
|
||
|
|
// else
|
||
|
|
// made_failed("constructor(42.42)","see previous result");
|
||
|
|
//
|
||
|
|
// test_false("IsEmpty",string.IsEmpty());
|
||
|
|
// test_equal("Length",string.Length(),15);
|
||
|
|
// test_equal("length",string.length(),15);
|
||
|
|
// test_equal("len",string.len(),15);
|
||
|
|
// test_equal("size",string.size(),15);
|
||
|
|
// /*test_string("Lower",string.Lower(),"hallo");
|
||
|
|
// string.LowerCase();
|
||
|
|
// test_string("LowerCase",string,"hallo");
|
||
|
|
// test_string("MakeLower",string.MakeLower(),"hallo");
|
||
|
|
// test_string("Upper",string.Upper(),"HALLO");
|
||
|
|
// string.UpperCase();
|
||
|
|
// test_string("UpperCase",string,"HALLO");
|
||
|
|
// test_string("MakeUpper",string.MakeUpper(),"HALLO");
|
||
|
|
// string = _T("Hallo");
|
||
|
|
// test_string("Mid",string.Mid(2,2),"ll");
|
||
|
|
// test_string("Remove",string.Remove(2,string.len()-2),"Ha");*/
|
||
|
|
// string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// test_string("RemoveLast",string.RemoveLast(2),"!5Aa ЉЩщӃ ウイン");
|
||
|
|
// string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// test_equal("Replace ret",string.Replace(_("Љ"),_("ウ")),1);
|
||
|
|
// test_string("Replace value",string,"!5Aa ウЩщӃ ウインカリ");
|
||
|
|
// string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// test_string("AfterFirst",string.AfterFirst("ウ"),"インカリ");
|
||
|
|
// string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// test_string("AfterFirst const",string.AfterFirst('5'),"Aa ЉЩщӃ ウインカリ");
|
||
|
|
// string = _T("!5Aa ЉЩщӃ ウインカリ");
|
||
|
|
// test_string("AfterLast",string.AfterLast("щ"),"Ӄ ウインカリ");
|
||
|
|
//
|
||
|
|
//
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wx String unicode END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxcolor()
|
||
|
|
{
|
||
|
|
::print("======= Test wx Color BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
local color = wxColour();
|
||
|
|
color.Set(52,53,54,255);
|
||
|
|
test_string("Set",color,"[r=52, g=53, b=54]");
|
||
|
|
test_string("tostring",color,"[r=52, g=53, b=54]");
|
||
|
|
test_equal("Red",color.Red(),52);
|
||
|
|
test_equal("Green",color.Green(),53);
|
||
|
|
test_equal("Blue",color.Blue(),54);
|
||
|
|
test_true("IsOK",color.IsOk());
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wx Color END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxarray_string()
|
||
|
|
{
|
||
|
|
::print("======= Test wxArrayString BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
local array;
|
||
|
|
try
|
||
|
|
{
|
||
|
|
array = wxArrayString();
|
||
|
|
} catch (err)
|
||
|
|
{
|
||
|
|
made_failed("constructor"," ");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
made_passed("constructor");
|
||
|
|
|
||
|
|
|
||
|
|
array.Add(_T("String1"),1);
|
||
|
|
array.Add(_T("String2"),2);
|
||
|
|
test_equal("Add",array.Add(_T("String3"),1),3);
|
||
|
|
test_equal("GetCount",array.GetCount(),4);
|
||
|
|
test_equal("Index(\"String1\")", array.Index(_T("String1")),0);
|
||
|
|
test_equal("Index(\"String10\")", array.Index(_T("String10")),-1);
|
||
|
|
test_equal("Index(\"string1\",true,false)", array.Index(_T("string10"),true,false),-1);
|
||
|
|
test_equal("Index(\"string1\",false,false)", array.Index(_T("string1"),false),0);
|
||
|
|
test_equal("Index(\"string2\",false,false)", array.Index(_T("string2"),false,false),1);
|
||
|
|
test_equal("Index(\"string2\",false,true)", array.Index(_T("string2"),false,true),2);
|
||
|
|
test_string("Item", array.Item(2),_T("String2"));
|
||
|
|
|
||
|
|
// Test if modifying the result of Item doesn't change the value in the array.
|
||
|
|
local itemValue = array.Item(2);
|
||
|
|
itemValue = _T("String2 modified");
|
||
|
|
test_string("Item after modify", array.Item(2),_T("String2"));
|
||
|
|
|
||
|
|
// Test SetItem.
|
||
|
|
array.SetItem(2, _T("String2 modified"));
|
||
|
|
test_string("SetItem", array.Item(2),_T("String2 modified"));
|
||
|
|
|
||
|
|
array.Clear();
|
||
|
|
test_equal("Clear",array.GetCount(),0);
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wxArrayString END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxfilename()
|
||
|
|
{
|
||
|
|
::print("======= Test wxFileName BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
local filename;
|
||
|
|
try
|
||
|
|
{
|
||
|
|
filename = wxFileName();
|
||
|
|
} catch (err)
|
||
|
|
{
|
||
|
|
made_failed("constructor"," ");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
made_passed("constructor");
|
||
|
|
|
||
|
|
local path;
|
||
|
|
if(::PLATFORM == ::PLATFORM_MSW )
|
||
|
|
{
|
||
|
|
path = _T("\\share\\codeblocks\\");
|
||
|
|
}
|
||
|
|
else if(::PLATFORM == ::PLATFORM_GTK)
|
||
|
|
{
|
||
|
|
path = _T("share/codeblocks/");
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
made_failed("Assign","Your operating system is not supported in this test script. Please add a test case. Thank you.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
::print("Use path: " + path + "\n");
|
||
|
|
filename.Assign(path,::wxPATH_NATIVE);
|
||
|
|
test_string("tostring",filename,path);
|
||
|
|
test_string("Assign",filename,path);
|
||
|
|
test_equal("GetDirCount",filename.GetDirCount(),2);
|
||
|
|
test_equal("GetDirs",filename.GetDirs().GetCount(),2);
|
||
|
|
|
||
|
|
filename.Clear();
|
||
|
|
test_string("Clear",filename,"");
|
||
|
|
filename.AssignCwd(_T(" "));
|
||
|
|
::print("Test: AssignCwd = " + filename + " \n");
|
||
|
|
made_passed("AssignCwd ????");
|
||
|
|
filename.Clear();
|
||
|
|
filename.AssignHomeDir();
|
||
|
|
::print("Test: AssignHomeDir = " + filename +" \n");
|
||
|
|
made_passed("AssignHomeDir ????");
|
||
|
|
filename.Clear();
|
||
|
|
filename.Assign(path + _T("tips.txt"),::wxPATH_NATIVE);
|
||
|
|
test_string("GetExt",filename.GetExt(),"txt");
|
||
|
|
test_string("GetFullName",filename.GetFullName(),"tips.txt");
|
||
|
|
test_string("GetFullPath",filename.GetFullPath(::wxPATH_NATIVE), path + "tips.txt");
|
||
|
|
::print("Test: GetLongPath = " + filename.GetLongPath() +" \n");
|
||
|
|
made_passed("GetLongPath ????");
|
||
|
|
test_string("GetName",filename.GetName(),"tips");
|
||
|
|
::print("Test: GetPath = " + filename.GetPath(0,::wxPATH_NATIVE) + " \n");
|
||
|
|
made_passed("GetPath ????");
|
||
|
|
::print("Test: GetShortPath = " + filename.GetShortPath() + " \n");
|
||
|
|
made_passed("GetShortPath ????");
|
||
|
|
::print("Test: GetVolume = " + filename.GetVolume() + " \n");
|
||
|
|
made_passed("GetVolume ????");
|
||
|
|
test_true("HasExt",filename.HasExt());
|
||
|
|
test_true("HasName",filename.HasName());
|
||
|
|
if(::PLATFORM != ::PLATFORM_MSW)
|
||
|
|
test_false("HasVolume",filename.HasVolume());
|
||
|
|
else
|
||
|
|
test_true("HasVolume",filename.HasVolume());
|
||
|
|
|
||
|
|
test_false("IsAbsolute",filename.IsAbsolute(::wxPATH_NATIVE));
|
||
|
|
test_true("IsOk",filename.IsOk());
|
||
|
|
test_true("IsRelative",filename.IsRelative(::wxPATH_NATIVE));
|
||
|
|
test_false("IsDir",filename.IsDir());
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wxFileName END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxpoint()
|
||
|
|
{
|
||
|
|
::print("======= Test wxPoint BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
|
||
|
|
local point1 = wxPoint();
|
||
|
|
local point2 = wxPoint();
|
||
|
|
local point3 = wxPoint();
|
||
|
|
point1.x = 10;
|
||
|
|
point1.y = 10;
|
||
|
|
point2.x = 10;
|
||
|
|
point2.y = 10;
|
||
|
|
point3.x = 10;
|
||
|
|
point3.y = 5;
|
||
|
|
made_failed("compare doesn't seem to work","error: \"comparsion between 'instance' and 'instance'\" ")
|
||
|
|
//test_false("compare",point1 > point2);
|
||
|
|
//test_true("compare",point1 > point3);
|
||
|
|
//test_true("Cmp",point1._cmp(point2));
|
||
|
|
//test_false("Cmp",point1._cmp(point3));
|
||
|
|
test_string("_tostring",point1,"[10,10]");
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wxPoint END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_wxsize()
|
||
|
|
{
|
||
|
|
::print("======= Test wxSize BEGINN ======= \n");
|
||
|
|
clear_test_result();
|
||
|
|
|
||
|
|
local point1 = wxSize();
|
||
|
|
local point2 = wxSize();
|
||
|
|
local point3 = wxSize();
|
||
|
|
point1.Set(10,10);
|
||
|
|
point2.Set(10,10);
|
||
|
|
point3.Set(10,5);
|
||
|
|
|
||
|
|
test_string("_tostring",point1,"[10,10]");
|
||
|
|
//test_true("Cmp",point1.Cmp(point2));
|
||
|
|
//test_false("Cmp",point1.Cmp(point3));
|
||
|
|
test_equal("GetWidth",point3.GetWidth(),10);
|
||
|
|
test_equal("GetHeight",point3.GetHeight(),5);
|
||
|
|
point3.SetWidth(23);
|
||
|
|
point3.SetHeight(66);
|
||
|
|
test_equal("SetWidth",point3.GetWidth(),23);
|
||
|
|
test_equal("SetHeight",point3.GetHeight(),66);
|
||
|
|
|
||
|
|
|
||
|
|
print_test_result();
|
||
|
|
::print("======= Test wxSize END ======= \n");
|
||
|
|
}
|
||
|
|
|
||
|
|
function test_dialogs()
|
||
|
|
{
|
||
|
|
|
||
|
|
}
|
||
|
|
};
|