[Catalyst-commits] r11663 - Catalyst-Plugin-Static-Simple/trunk/t

[dnm at dev.catalyst.perl.org]

Author: dnm
Date: 2009-10-22 19:57:35 +0000 (Thu, 22 Oct 2009)
New Revision: 11663

Added:
   Catalyst-Plugin-Static-Simple/trunk/t/12check_error_scope.t
Log:
Ugly test script to verify $@ out-of-scope issue is fixed.



Added: Catalyst-Plugin-Static-Simple/trunk/t/12check_error_scope.t
===================================================================
--- Catalyst-Plugin-Static-Simple/trunk/t/12check_error_scope.t	                        (rev 0)
+++ Catalyst-Plugin-Static-Simple/trunk/t/12check_error_scope.t	2009-10-22 19:57:35 UTC (rev 11663)
@@ -0,0 +1,27 @@
+#!perl
+
+use strict;
+use warnings;
+no strict 'refs';
+no warnings 'redefine';
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 3;
+use Catalyst::Test 'TestApp';
+
+TestApp->config->{ static }->{ dirs } = [ qr{stuff/} ];
+my $orig_sub = *Catalyst::Plugin::Static::Simple::prepare_action{CODE};
+
+*Catalyst::Plugin::Static::Simple::prepare_action = sub {
+	my ($c) = @_;
+
+	eval { my $var = 1 / 0 };
+
+	ok ($@, '$@ has a value.');
+	return $orig_sub->( $c );
+};
+
+ok( my $res = request("http://localhost/"), 'request ok' );
+ok( $res->code == 200, q{Previous error doesn't crash static::simple} );