Commit 5a94a7cc authored by Arnold Hendriks's avatar Arnold Hendriks

Split off 'real' object properties tests

parent 91cfe0e4
......@@ -77,26 +77,8 @@ OBJECT ASYNC FUNCTION ObjectProps()
RETURN TRUE;
}
OBJECT ASYNC FUNCTION SiteProps()
{
PrepareTestModuleWebDesignWebsite("webhare_testsuite:basetest");
TestEq(TRUE, ObjectExists(testfw->GetTestSite()));
OBJECT root := testfw->GetTestSite()->rootobject;
testfw->SetTestUser("sysop");
OBJECT sitedialog := CreateWHFSSitePropsDialog(GetTestController(), root->id);
AWAIT ExpectScreenChange(+1, PTR sitedialog->RunModal()); //simply should not crash
TT("locksite")->value := TRUE;
AWAIT ExpectScreenChange(-1, PTR topscreen->TolliumExecuteSubmit());
BOOLEAN lockstatus := SELECT AS BOOLEAN locked FROM system.sites WHERE id = VAR root->id;
TestEq(TRUE, lockstatus);
RETURN TRUE;
}
RunTestframework([ PTR ObjectProps
, PTR SiteProps
], [ testusers := [[ login := "sysop", grantrights := ["system:sysop"] ]
,[ login := "lisa" ]
]]);
<?wh
LOADLIB "wh::files.whlib";
LOADLIB "mod::system/lib/testframework.whlib";
LOADLIB "mod::tollium/lib/testframework.whlib";
LOADLIB "mod::publisher/lib/commondialogs.whlib";
LOADLIB "mod::system/lib/database.whlib";
LOADLIB "mod::publisher/lib/testframework.whlib";
OBJECT ASYNC FUNCTION SiteProps()
{
PrepareTestModuleWebDesignWebsite("webhare_testsuite:basetest");
TestEq(TRUE, ObjectExists(testfw->GetTestSite()));
OBJECT root := testfw->GetTestSite()->rootobject;
testfw->SetTestUser("sysop");
OBJECT sitedialog := CreateWHFSSitePropsDialog(GetTestController(), root->id);
AWAIT ExpectScreenChange(+1, PTR sitedialog->RunModal()); //simply should not crash
TT("locksite")->value := TRUE;
AWAIT ExpectScreenChange(-1, PTR topscreen->TolliumExecuteSubmit());
BOOLEAN lockstatus := SELECT AS BOOLEAN locked FROM system.sites WHERE id = VAR root->id;
TestEq(TRUE, lockstatus);
RETURN TRUE;
}
RunTestframework([ PTR SiteProps
], [ testusers := [[ login := "sysop", grantrights := ["system:sysop"] ]
,[ login := "lisa" ]
]]);
<group xmlns="http://www.webhare.net/xmlns/system/testinfo">
<test script="test_objectprops.whscr" />
<test script="test_siteprops.whscr" />
<test script="test_types.whscr" />
</group>
<group xmlns="http://www.webhare.net/xmlns/system/testinfo">
<test script="filemanager.whscr"/>
<test script="objectprops.whscr"/>
<test script="testfilemgr-newobject.whscr"/>
<test script="testfilemgr-upload.whscr"/>
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment