=begin testing-SETUP
-BEGIN {
- eval 'use HTTP::Headers; use Params::Coerce; use URI;';
- if ($@) {
- diag 'HTTP::Headers, Params::Coerce & URI required for this test';
- ok(1);
- exit 0;
- }
-}
+use Test::Requires {
+ 'HTTP::Headers' => '0',
+ 'Params::Coerce' => '0',
+ 'URI' => '0',
+};
=end testing-SETUP
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2009 by Infinity Interactive, Inc.
+Copyright 2006-2010 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
is( $header4->content_type, 'application/pdf',
'... got the right content type in the header' );
- dies_ok {
- $r->headers('Foo');
- }
- '... dies when it gets bad params';
+ isnt(
+ exception {
+ $r->headers('Foo');
+ },
+ undef,
+ '... dies when it gets bad params'
+ );
}
{
is( $r->protocol, undef, '... got nothing by default' );
- lives_ok {
- $r->protocol('HTTP/1.0');
- }
- '... set the protocol correctly';
+ is(
+ exception {
+ $r->protocol('HTTP/1.0');
+ },
+ undef,
+ '... set the protocol correctly'
+ );
+
is( $r->protocol, 'HTTP/1.0', '... got nothing by default' );
- dies_ok {
- $r->protocol('http/1.0');
- }
- '... the protocol died with bar params correctly';
+ isnt(
+ exception {
+ $r->protocol('http/1.0');
+ },
+ undef,
+ '... the protocol died with bar params correctly'
+ );
+}
+
+{
+ $r->base('http://localhost/');
+ isa_ok( $r->base, 'URI' );
+
+ $r->uri('http://localhost/');
+ isa_ok( $r->uri, 'URI' );
}
=end testing