[Catalyst-commits] r10168 - in Catalyst-Runtime/5.80/trunk/t: . lib
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Fri May 15 12:53:11 GMT 2009
Author: t0m
Date: 2009-05-15 12:53:10 +0000 (Fri, 15 May 2009)
New Revision: 10168
Added:
Catalyst-Runtime/5.80/trunk/t/dead_no_unknown_error.t
Catalyst-Runtime/5.80/trunk/t/lib/TestAppUnknownError.pm
Log:
Woo, Emmanuel Quevillon's mailing list mail gave me enough clues to actually be able to write a sane test for unknown error, which currently fails
Added: Catalyst-Runtime/5.80/trunk/t/dead_no_unknown_error.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/dead_no_unknown_error.t (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/dead_no_unknown_error.t 2009-05-15 12:53:10 UTC (rev 10168)
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Test::More tests => 1;
+
+use Catalyst ();
+use Catalyst::Engine::HTTP;
+eval {
+ require TestAppUnknownError;
+};
+unlike($@, qr/Unknown error/, 'No unknown error');
+
+1;
+
Property changes on: Catalyst-Runtime/5.80/trunk/t/dead_no_unknown_error.t
___________________________________________________________________
Name: svn:executable
+ *
Added: Catalyst-Runtime/5.80/trunk/t/lib/TestAppUnknownError.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppUnknownError.pm (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppUnknownError.pm 2009-05-15 12:53:10 UTC (rev 10168)
@@ -0,0 +1,22 @@
+package TestApp;
+
+use strict;
+use warnings;
+
+use Catalyst::Runtime 5.70;
+
+use base qw/Catalyst/;
+
+use Catalyst;
+
+__PACKAGE__->setup();
+
+sub _test {
+ my $self = shift;
+ $self->_method_which_does_not_exist;
+}
+
+__PACKAGE__->_test;
+
+1;
+
More information about the Catalyst-commits
mailing list