[Catalyst-commits] r11153 - in Catalyst-Runtime/5.80/trunk/t: . lib

[ferz at dev.catalyst.perl.org]

Author: ferz
Date: 2009-08-18 06:55:14 +0000 (Tue, 18 Aug 2009)
New Revision: 11153

Added:
   Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t
   Catalyst-Runtime/5.80/trunk/t/lib/TestAppClassExceptionSimpleTest.pm
Log:
Test case using Exception::Class


Added: Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/dead_test_class_exception.t	2009-08-18 06:55:14 UTC (rev 11153)
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+use Test::More tests => 1;
+use Test::Exception;
+
+lives_ok {
+    require TestAppClassExceptionSimpleTest;
+} 'Can load application';
+
+1;
+

Added: Catalyst-Runtime/5.80/trunk/t/lib/TestAppClassExceptionSimpleTest.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestAppClassExceptionSimpleTest.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestAppClassExceptionSimpleTest.pm	2009-08-18 06:55:14 UTC (rev 11153)
@@ -0,0 +1,85 @@
+package TestAppClassExceptionSimpleTest::Exceptions;
+
+use strict;
+use warnings;
+
+BEGIN {
+    $Catalyst::Exception::CATALYST_EXCEPTION_CLASS = 'TestAppClassExceptionSimpleTest::Exception';
+
+    my %classes = (
+        'TestAppClassExceptionSimpleTest::Exception' => {
+            description => 'Generic exception',
+            alias       => 'throw'
+        },
+    );
+
+    my @exports = grep { defined } map { $classes{ $_ }->{ alias } } keys %classes;
+
+    require Exception::Class;
+    require Sub::Exporter;
+
+    Exception::Class->import(%classes);
+    Sub::Exporter->import( -setup => { exports => \@exports  } );
+}
+
+package TestAppClassExceptionSimpleTest::Exception;
+
+## thank to Brian
+## http://bricas.vox.com/library/post/catalyst-exceptionclass.html
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+use HTTP::Headers ();
+use HTTP::Status  ();
+use Scalar::Util  qw( blessed );
+
+sub status {
+    return $_[0]->{status} ||= 500;
+}
+
+#########
+
+package TestAppClassExceptionSimpleTest;
+
+use strict;
+use warnings;
+use Scalar::Util ();
+use Catalyst::Runtime '5.80';
+
+use Catalyst qw/ -Debug /;
+
+our $VERSION = '0.02';
+
+# Start the application
+__PACKAGE__->setup;
+
+=head1 NAME
+
+TestAppClassExceptionSimpleTest - Catalyst based application
+
+=head1 SYNOPSIS
+
+    script/TestAppClassExceptionSipleTest_server.pl
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 SEE ALSO
+
+L<TestAppClassException::Controller::Root>, L<Catalyst>
+
+=head1 AUTHOR
+
+Ferruccio Zamuner
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;