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

Add stub tests for Account::User, with custom canView tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-26 05:33:51 +00:00
parent 24e0be8087
commit 66c8b069e1
2 changed files with 44 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
t/Account.t
View file

@ -3,5 +3,6 @@ use lib "$FindBin::Bin/lib";
use Test::WebGUI::Account;
use Test::WebGUI::Account::Friends;
use Test::WebGUI::Account::Contributions;
use Test::WebGUI::Account::User;
Test::Class->runtests;

43
t/lib/Test/WebGUI/Account/User.pm Normal file
View file

@ -0,0 +1,43 @@
# vim:syntax=perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------
# This tests the operation of WebGUI::Account modules. You can use
# as a base to test your own modules.
package Test::WebGUI::Account::User;
use FindBin;
use strict;
use lib "$FindBin::Bin/lib";
use base 'Test::WebGUI::Account';
use Test::More;
use Test::Exception;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
sub class {
return 'WebGUI::Account::User';
}
sub canView : Test(2) {
my $test = shift;
my $session = $test->{_session};
my $class = $test->class;
my $account = $class->new($session);
$account->uid(3);
ok(! $account->canView, 'canView is 0 if uid is set, for any userId');
$account->uid('');
ok( $account->canView, 'canView is 0 if uid is empty string');
}
1;
#vim:ft=perl