tc_env_check:AddCmdTest(wrt_check);
tc_env_check:AddCmdTest(webkit_check);
- tc_env_check:SetLevel(1); -- set to tclevel
+ tc_env_check:SetLevel(1); -- set to tclevel (TEST CASE level, ref tcbash.h)
-- add Test suite
web_ide_suite:AddTest(tc_env_check);
-- Test - create project
function add_project_create_test(web_ide_suite)
+ print (" === create project test === ");
+ -- create project
+ local create = scmd("create project");
+ create:SetCommand("web-gen");
+ create:AddParam1("-n created_from_lua");
+ create:SetSuccessToken("success");
+
+ -- TODO : move working directory?
+
+ -- sign project
+ local sign = scmd("sign project");
+ sign:SetCommand("web-signing");
+ sign:AddParam1("--nocheck -p test:../res/webide/profiles.xml");
+
+ -- confirm 'signature1.xml' file creation
+ local sign_check = scmd("sign check");
+ sign_check:SetCommand("ls signature1.xml");
+ sign_check:SetSuccessToken("signature1.xml");
+
+ -- packaging project
+ local packaging = scmd("packaging project");
+ packaging:SetCommand("web-packaging");
+ packaging:AddParam1("--nocheck");
+ packaging:SetSuccessToken("success");
+
+ -- clean
+ local clean = scmd("clean");
+ clean:SetCommand("rm");
+ clean:AddParam1("-rf created_from_lua signature1.xml *.wgt");
+
+ -- make tc, and added case
+ tc_create_project = cmd_suite("create basic webapp project");
+ tc_create_project:AddCmdTest(clean);
+ tc_create_project:AddCmdTest(create);
+ tc_create_project:AddCmdTest(sign);
+ tc_create_project:AddCmdTest(sign_check);
+ tc_create_project:AddCmdTest(packaging);
+ tc_create_project:AddCmdTest(clean);
+
+ tc_create_project:SetLevel(1);
+
+ -- add Test suite
+ web_ide_suite:AddTest(tc_create_project);
end
-- Test - install project
function add_install_test(web_ide_suite)
+ print (" === install project test === ");
+ -- install project
+ local install = scmd("install project");
+ install:SetCommand("web-install");
+ install:AddParam1("-w ../res/webide/test.wgt");
+ install:SetSuccessToken("install success");
+
+ -- make tc, and added case
+ tc_install_project = cmd_suite("install webapp project");
+ tc_install_project:AddCmdTest(install);
+
+ tc_install_project:SetLevel(1);
+
+ -- add Test suite
+ web_ide_suite:AddTest(tc_install_project);
end
-- Test - run project
function add_run_test(web_ide_suite)
+ print (" === run project test === ");
+ -- run project
+ local run = scmd("run project");
+ run:SetCommand("web-run");
+ run:AddParam1("-w ../res/webide/test.wgt -i GO1DlAQVYD");
+ run:SetSuccessToken("[GO1DlAQVYD] launch success");
+
+ -- make tc, and added case
+ tc_run_project = cmd_suite("run webapp project");
+ tc_run_project:AddCmdTest(run);
+
+ tc_run_project:SetLevel(1);
+
+ -- add Test suite
+ web_ide_suite:AddTest(tc_run_project);
end
-- Test - kill project