use lib results from the CPAN

Apache-SWIT

use strict;
use warnings FATAL => 'all';
use lib 'lib';
use Apache::SWIT::Maker::Makefile;

Apache::SWIT::Maker::Makefile->new({ no_swit_overrides => 1, overrides => {
postamble => sub { return q{

APACHE_TEST_FILES = t/apache/*.t
test :: test_apache

t/templates/2mb.tt :: Makefile
	perl -e 'print "<html><body>" . ("x" x (2048 * 64)) . " [% hello %] </body></html>"' > t/templates/2mb.tt

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


package Apache::SWIT::Maker::FileWriterData;
use base 'Apache::SWIT::Maker::FileWriter';
use Apache::SWIT::Maker::Config;

__PACKAGE__->add_file({ name => 'scripts/swit_app.pl'
		, manifest => 1 }, <<'EM');
#!/usr/bin/perl -w
use strict;
use [% class %];
use lib 'lib';
[% class %]->new->do_swit_app_cmd(@ARGV) or exit 1;
EM

__PACKAGE__->add_file({ name => 'tt_file', manifest => 1
	, tmpl_options => { START_TAG => '<%', END_TAG => '%>' } }, <<'EM');
<html>
<body>
[% form %]
<% content %>
</form>

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

my $inst_path = $mt->install_dir . "/TTT";
ok(-f "$inst_path/Maker.pm");
my $idir = abs_path($mt->install_dir);

chdir $td;
$mt->make_swit_project(root_class => 'MU');
$mt->install_subsystem('TheSub');

ok(require 'TTT/Maker.pm');

eval "use lib 'lib'";
is(-f 'lib/MU/TheSub.pm', undef);
use_ok('HTML::Tested', qw(HT HTV));

isnt(-f "t/dual/thesub/001_load.t", undef) or ASTU_Wait($td);
my $s001 = read_file("t/dual/thesub/001_load.t");
like($s001, qr/ht_id/) or ASTU_Wait($mf);
like($s001, qr/HT_SEALED_ht_id/);

undef $Apache::SWIT::Maker::Config::_instance;
$tree = Apache::SWIT::Maker::Config->instance;

t/apache_test.pl view on Meta::CPAN

use lib 'lib';
use Apache::SWIT::Test::Apache;
use File::Slurp;
use File::Basename qw(dirname);
use File::Path qw(mkpath rmtree);
use Apache::SWIT::Maker::Skeleton::Startup;
use Test::TempDatabase;
use Apache::SWIT::DB::Connection;
use Cwd qw(abs_path);
use File::Temp qw(tempdir);

( run in 0.260 second using v1.01-cache-2.11-cpan-87723dcf8b7 )