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

Add stub tests for Account::Inbox with custom canView tests.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-26 05:38:09 +00:00
parent 66c8b069e1
commit e71a119faa
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

@ -2,6 +2,7 @@ use FindBin;
use lib "$FindBin::Bin/lib";
use Test::WebGUI::Account;
use Test::WebGUI::Account::Friends;
use Test::WebGUI::Account::Inbox;
use Test::WebGUI::Account::Contributions;
use Test::WebGUI::Account::User;

43
t/lib/Test/WebGUI/Account/Inbox.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::Inbox;
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::Inbox';
}
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