oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More tests for getUrl. Beginning of tests for canView.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-26 05:14:31 +00:00
parent 624d6404aa
commit ea7fe2650b
2 changed files with 30 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

27
t/lib/Test/WebGUI/Account.pm
View file

@ -36,7 +36,7 @@ sub __useItFirst : Test(startup) {
$test->{_session} = $session;
}
sub _new : Test(3) {
sub _new : Test(5) {
my $test = shift;
my $session = $test->{_session};
my $class = $test->class;
@ -49,9 +49,11 @@ sub _new : Test(3) {
"$class object created successfully"
);
isa_ok( $account, $class, 'Blessed into the right class' );
is($account->uid, undef, 'new account objects have no uid');
is($account->method, 'view', 'default method is view');
}
sub getUrl : Test(3) {
sub getUrl : Test(6) {
my $test = shift;
my $session = $test->{_session};
my $class = $test->class;
@ -68,6 +70,27 @@ sub getUrl : Test(3) {
'getUrl doesnt add op=account if already exists'
);
is( $account->getUrl('', 1), $session->url->page('op=account;module=;do='.$account->method),
'getUrl does not add uid unless requested, unless uid is set'
);
$account->uid(3);
is( $account->getUrl, $session->url->page('op=account;module=;do='.$account->method),
'getUrl does not add uid unless requested, even when set'
);
is( $account->getUrl('', 1), $session->url->page('op=account;module=;do='.$account->method.';uid=3'),
'getUrl adds uid when requested, and uid is set'
);
}
sub canView : Test(1) {
my $test = shift;
my $session = $test->{_session};
my $class = $test->class;
my $account = $class->new($session);
is($account->canView(), 1, 'default canView is 1');
}
1;

5
t/lib/Test/WebGUI/Account/Friends.pm
View file

@ -27,6 +27,11 @@ sub class {
return 'WebGUI::Account::Friends';
}
sub canView : Test(1) {
local $TODO = 'Write tests for canView for Friends';
ok(0,'Tests for canView for Friends');
}
1;
#vim:ft=perl