Apache-SWIT

 view release on metacpan or  search on metacpan

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

=head1 METHODS

=cut

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

package Apache::SWIT;
use Carp;
use Data::Dumper;
use File::Slurp;

our $VERSION = 0.54;

sub swit_startup {}

=head2 $class->swit_send_http_header($r, $ct)

Sends HTTP default headers: session cookie and content type. C<$r> is apache
request and C<$ct> is optional content type (defaults to

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

sub swit_send_http_header {
	my ($class, $r, $ct) = @_;
	$r->pnotes('SWITSession')->end;
	$r->pnotes('SWITSession', undef);
	$r->content_type($ct || "text/html; charset=utf-8");
}

=head2 $class->swit_die($msg, $r, @data_to_dump)

Dies with first line of C<$msg> using Carp::croak and dumps request C<$r> and
C<@data_to_dump> with Data::Dumper into /tmp/swit_<time>.err file.

=cut
sub swit_die {
	my ($class, $msg, $r, @more) = @_;
	my $err = (split(/\n/, $msg))[0];
	my $f = "/tmp/swit_" . time . ".err";
	write_file($f, "$msg with request:\n" . $r->as_string . "and more:\n"
			. join("\n", map { Dumper($_) } @more));
	croak "In $f $err";
}

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

use Apache::SWIT::Maker::GeneratorsQueue;
use Apache::SWIT::Maker::FileWriterData;
use Apache::SWIT::Maker::Conversions;
use Apache::SWIT::Maker::Config;
use Apache::SWIT::Maker::Makefile;
use File::Slurp;
use Digest::MD5 qw(md5_hex);
use Apache::SWIT::Maker::Manifest;
use ExtUtils::Manifest qw(maniread manicopy);
use File::Temp qw(tempdir);
use Data::Dumper;

__PACKAGE__->mk_accessors(qw(file_writer));

my @_initial_skels = qw(apache_test apache_test_run dual_001_load startup);

sub _load_skeleton {
	my ($class, $skel_class, $func) = @_;
	my $s = 'Apache::SWIT::Maker::Skeleton::' . $skel_class;
	conv_eval_use($s);

lib/Apache/SWIT/Subsystem/Makefile.pm  view on Meta::CPAN

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

package Apache::SWIT::Subsystem::Makefile;
use base 'Apache::SWIT::Maker::Makefile';
use Apache::SWIT::Maker::GeneratorsQueue;
use Apache::SWIT::Maker::Manifest;
use Apache::SWIT::Maker::Config;
use File::Slurp;
use Data::Dumper;

sub write_makefile {
	shift()->SUPER::write_makefile(@_);
	my $mf = read_file('Makefile');
	my $df = join(" ", swmani_dual_tests());
	Apache::SWIT::Maker::Config->instance->for_each_url(sub {
		my ($uri, $n, $v, $ev) = @_;
		$df .= " " . $ev->{template} if $ev->{template};
	});
	$mf =~ s/%IC_TEST_FILES%/$df/;

lib/Apache/SWIT/Test.pm  view on Meta::CPAN

sub new { return $_[1]; }

package Apache::SWIT::Test;
use base 'Class::Accessor', 'Class::Data::Inheritable';
use Apache::SWIT::Maker::Conversions;
use Apache::SWIT::Test::Utils;
use Apache::SWIT::Test::Request;
use HTML::Tested::Test;
use Test::More;
use Carp;
use Data::Dumper;
use File::Slurp;
use Apache::TestRequest;
use Encode;
use Apache::SWIT;

BEGIN {
	no strict 'refs';
	no warnings 'redefine';
	*{ "Apache::SWIT::swit_die" } = sub {
		my ($class, $msg, $r, @more) = @_;

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

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

use Test::More tests => 25;
use CGI::Cookie;
use Package::Alias 'Apache2::Cookie' => 'CGI::Cookie'
	, 'Apache2::Const::OK' => sub { 200; };

use_ok('Apache::SWIT::Session');

use Data::Dumper;
use Storable qw(thaw);

package Obj;

sub retrieve { return bless({}, shift()); }
sub id { return 17; }
sub value { return "hi"; }

package MySession;
use base 'Apache::SWIT::Session';

t/400_skeleton.t  view on Meta::CPAN

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

use Test::More tests => 59;
use Data::Dumper;
use File::Slurp;
use File::Temp qw(tempdir);
use Apache::SWIT::Test::Utils;

BEGIN {
	use_ok('Apache::SWIT::Maker::Skeleton');
	use_ok('Apache::SWIT::Maker::Skeleton::Scaffold::DualTest');
	use_ok('Apache::SWIT::Maker::Skeleton::Scaffold::List');
	use_ok('Apache::SWIT::Maker::Skeleton::Scaffold::ListTemplate');
	use_ok('Apache::SWIT::Maker::Skeleton::Scaffold::Info');

t/500_swit_init.t  view on Meta::CPAN

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

use Test::More tests => 67;
use File::Temp qw(tempdir);
use Data::Dumper;
use File::Path qw(rmtree);
use Test::TempDatabase;
use Apache::SWIT::Test::ModuleTester;
use Apache::SWIT::Test::Utils;
use File::Slurp;

BEGIN { use_ok('Apache::SWIT::Maker'); }

delete $ENV{TEST_FILES};
delete $ENV{MAKEFLAGS};

t/505_dual.t  view on Meta::CPAN

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

use Test::More tests => 28;
use File::Slurp;
use Test::TempDatabase;
use Cwd;
use YAML;
use Apache::SWIT::Test::Utils;
use HTML::Tested::Seal;
use Data::Dumper;

BEGIN { use_ok('Apache::SWIT::Test::ModuleTester'); }

my $cwd = getcwd;

my $mt = Apache::SWIT::Test::ModuleTester->new({ root_class => 'TTT' });
my $td = $mt->root_dir;
chdir $td;
$mt->run_modulemaker_and_chdir;

t/525_sub_install.t  view on Meta::CPAN

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

use Test::More tests => 27;
use YAML;
use Data::Dumper;
use File::Slurp;
use Apache::SWIT::Test::Utils;
use Test::TempDatabase;

BEGIN { use_ok('Apache::SWIT::Subsystem::Maker');
	use_ok('Apache::SWIT::Test::ModuleTester');
}

my $mt = Apache::SWIT::Test::ModuleTester->new({ root_class => 'TTT' });
my $td = $mt->root_dir;

t/530_subsystem.t  view on Meta::CPAN

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

use Test::More tests => 51;
use File::Temp qw(tempdir);
use Data::Dumper;
use Test::TempDatabase;
use YAML;
use File::Slurp;
use Apache::SWIT::Maker::Conversions;
use Apache::SWIT::Maker::Manifest;
use Cwd qw(abs_path getcwd);
use File::Basename qw(dirname);

use Apache::SWIT::Test::Utils;
use HTML::Tested::Value::Form;

t/apache/010_tester.t  view on Meta::CPAN

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

use Test::More tests => 63;
use File::Basename qw(dirname);
use File::Temp qw(tempdir);
use Data::Dumper;
use File::Slurp;
use Apache::SWIT::Test::Utils;
use Apache::SWIT::Session;

BEGIN { 
	unlink "/tmp/swit_startup_test";
	use_ok('T::Test');
	;
}

t/apache/030_sess_page.t  view on Meta::CPAN

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

use Test::More tests => 14;
use Data::Dumper;

BEGIN { use_ok('T::Test');
	use_ok('T::Session');
	use_ok('T::SessPage');
}

$ENV{SWIT_HAS_APACHE} = 0;

T::Test->make_aliases(sess_page => 'T::SessPage');

t/apache/040_transactions.t  view on Meta::CPAN

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

use Test::More tests => 20;
use Apache::SWIT::Session;
use Apache::SWIT::Test::Utils;
use Data::Dumper;

BEGIN { use_ok('T::Test');
	use_ok('T::TransFailure');
};

my $dbh = Apache::SWIT::DB::Connection->instance->db_handle;
ok($dbh->do(<<ENDS));
set client_min_messages to error;
create table trans (a smallint not null check (a > 10) primary key);
create table t2 (b smallint primary key references trans(a)

t/apache/080_upload.t  view on Meta::CPAN

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

use Test::More tests => 20;
use Data::Dumper;
use File::Temp qw(tempdir);
use File::Slurp;

BEGIN { use_ok('T::Test');
	use_ok('T::Upload');
	use_ok('T::Empty');
};

T::Test->make_aliases(upload => 'T::Upload', empty => 'T::Empty');