Apache-SWIT-Security

 view release on metacpan or  search on metacpan

lib/Apache/SWIT/Security/Maker.pm  view on Meta::CPAN

sub make_this_subsystem_dumps {
	my %ot = shift()->SUPER::make_this_subsystem_dumps(@_);
	delete $ot{original_tree}->{dumped_tests}->{"020_secparams.t"};
	return %ot;
}

package Apache::SWIT::Security::Maker;
use base 'Apache::SWIT::Subsystem::Maker';
use Apache::SWIT::Security::Role::Loader;
use Data::Dumper;
use YAML;
use Apache::SWIT::Maker::Config;
use Apache::SWIT::Maker::Manifest;
use Apache::SWIT::Maker::Conversions;
use File::Slurp;

sub makefile_class { return ref(shift()) . "::MF"; }

sub write_loader_dump_pm {
	my ($self, $data, $class_name, $more) = @_;

lib/Apache/SWIT/Security/Role/Container.pm  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Security::Role::Container::Item;
use base 'Class::Accessor';

__PACKAGE__->mk_accessors(qw(id name));

package Apache::SWIT::Security::Role::Container;
use Carp;
use Data::Dumper;

sub new {
	my ($class, $roles) = @_;
	my %roles;
	while (my ($id, $v) = each %$roles) {
		$roles{$id} = Apache::SWIT::Security::Role::Container::Item
				->new({ id => $id, name => $v });
	}
	return bless { _roles => \%roles }, $class;
}

t/100_manager.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

use Test::More tests => 78;
use File::Temp qw(tempdir);
use File::Slurp;
use Carp;
use Data::Dumper;
use YAML;
use Apache::SWIT::Maker::Config;
use Apache::SWIT::Test::Request;
use Apache::SWIT::Test::Utils;

BEGIN { # $SIG{__DIE__} = sub { diag(Carp::longmess(@_)); };
	use_ok('T::Apache::SWIT::Security::Role::Container');
	use_ok('Apache::SWIT::Security::Maker');
	use_ok('Apache::SWIT::Security::Role::Container');
	use_ok('Apache::SWIT::Security::Role::Loader'); 

t/950_install.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';

use Test::More tests => 22;

use File::Slurp;
use Apache::SWIT::Test::ModuleTester;
use Apache::SWIT::Test::Utils;
use Apache::SWIT::Maker::Manifest;
use Apache::SWIT::Maker::Conversions;
use Data::Dumper;
use Carp;
use Test::TempDatabase;

Test::TempDatabase->become_postgres_user;

my $mt = Apache::SWIT::Test::ModuleTester->new({ 
		root_class => 'Apache::SWIT::Security' 
});
$mt->run_make_install;
is(-f $mt->install_dir . "/T/Apache/SWIT/Security/Role/Container.pm", undef);

t/950_install.t  view on Meta::CPAN

unlike($res, qr/Stop/);
isnt(-f 'blib/lib/MU/TheSub/Role/Container.pm', undef) or ASTU_Wait($res);
unlike(read_file('MANIFEST'), qr/Container/);

my $inde =  <<'ENDS';
use warnings FATAL => 'all';
use strict;
use Test::More tests => 21;
use Apache::SWIT::Security::Test qw(Find_Open_URLs Is_URL_Secure);
use Apache::SWIT::Test::Utils;
use Data::Dumper;
use File::Slurp;

BEGIN { use_ok("T::Test"); }

T::Test->new->reset_db;
my $t = T::Test->new;
my $ef = ASTU_Read_Error_Log() if $t->mech;
my @urls = Find_Open_URLs($t, haha => 'hihi');
is_deeply(\@urls, [ qw(/mu/index/r /mu/index/u
	/mu/thesub/login/r /mu/thesub/login/u