view release on metacpan or  search on metacpan

t/01-abilities.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!perl
 
use lib 't/lib';
use TestManager;
use TestRole;
use TestUser;
use Test::More tests => 29;
 
my $mg = TestManager->new;
 
my $ra = TestRole->new(name => 'RA', actions => ['create_comment'], mg => $mg);
my $rc = TestRole->new(name => 'RC', actions => ['do_something'], mg => $mg);
my $rb = TestRole->new(name => 'RB', actions => ['edit_comment', 'delete_comment', 'edit_post', 'delete_post'], roles => ['RC'], mg => $mg);

t/02-features.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!perl
 
use lib 't/lib';
use TestManager;
use TestPlan;
use TestCustomer;
use Test::More tests => 14;
 
my $mg = TestManager->new;
 
my $pa = TestPlan->new(name => 'PA', features => ['ssl', ['storage', '5GB']], mg => $mg);
my $pb = TestPlan->new(name => 'PB', features => ['backups', ['storage', '10GB']], plans => ['PA'], mg => $mg);
my $pc = TestPlan->new(name => 'PC', features => ['backups', ['phone_support', '24hrs']], mg => $mg);