{ the_upload => '/etc/passwd' }
, button => [ 0 ]);
my ($enc_loid) = ($res[0] =~ /loid=(\w+)/);
isnt($enc_loid, undef) or exit 1;
my $loid = HTML::Tested::Seal->instance->decrypt($enc_loid);
cmp_ok
t->new({ session_class => 'Apache::SWIT::Session' });
isa_ok($t, 'T::Test');
is($t->mech, undef);
isnt($t->session->request, undef);
is($t->session->request->pnotes('SWITSession'), $t->session);
my @
ection->instance->db_handle->selectall_arrayref(
"SELECT * FROM foo");
is($arr->[0]->[0], 'a');
isnt(Apache::SWIT::DB::Connection->instance->db_handle, $test_db->handle);
my $pid = fork();
if ($pid
+) started/);
like($err, qr/Press Enter to finish \.\.\./);
like($err, qr/Apache memory before/);
isnt($host, undef) or $host = '';
my $ua = LWP::UserAgent->new;
my $cont = $ua->get("http://$host/ttt
ake test_ TEST_FILES=t/234_the_table.t 2>&1`;
unlike($res, qr/Failed/);
like($res, qr/success/);
isnt(-f 't/conf/schema.sql', undef);
`make realclean && perl Makefile.PL`;
is(-f 't/conf/schema.sql',