view release on metacpan or  search on metacpan

t/apache/050_validate.t  view on Meta::CPAN

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

use Test::More tests => 9;
use Apache::SWIT::Session;

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

unlink "/tmp/apache_swit_validate_failure";

my $t = T::Test->new({ session_class => 'Apache::SWIT::Session' });
$t->root_location('/test');
$t->ok_get('invalid/u');
like($t->mech->content, qr/Invalid handler called/);

$ENV{SWIT_HAS_APACHE} = 0;
T::Test->make_aliases(validate_fail => 'T::ValidateFailure');

$t = T::Test->new({ session_class => 'Apache::SWIT::Session' });
eval { $t->ht_validate_fail_u(ht => {}); };
like($@, qr/ht_validate failed/); 
like($@, qr/Request/);
is(-f "/tmp/apache_swit_validate_failure", undef);

eval { $t->ht_validate_fail_r(ht => {}); };
like($@, qr/Request/);
like($@, qr/uninitialized/);