Changeset 17372 for lang

Timestamp:

08/11/08 13:17:29 (5 years ago)

Author:

yappo

Message:

add make_context exception test

Files:

• lang/perl/HTTP-Engine/trunk/t/010_core/request_processor-make_context.t (modified) (3 diffs)

lang/perl/HTTP-Engine/trunk/t/010_core/request_processor-make_context.t

@@ -12 +12 @@
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 use HTTP::Engine::Context;
@@ -35 +35 @@
 };
 
-
 do {
    my $c = $rp->make_context(
@@ -45 +44 @@
 };
 
-
+do {
+   no strict 'refs';
+   no warnings 'redefine';
+   local *HTTP::Engine::Request::new = sub {};
+   local *HTTP::Engine::Response::new = sub {};
+   local $@;
+   eval { $rp->make_context };
+   like $@, qr/Validation failed/;
+};