[Catalyst-commits] r6524 - in trunk/Catalyst-View-Email/t: . lib/TestApp/View/Email

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-07-12 16:35:19 +0100 (Thu, 12 Jul 2007)
New Revision: 6524

Added:
   trunk/Catalyst-View-Email/t/06config.t
   trunk/Catalyst-View-Email/t/lib/TestApp/View/Email/AppConfig.pm
Log:
Adding missing files.

Added: trunk/Catalyst-View-Email/t/06config.t
===================================================================
--- trunk/Catalyst-View-Email/t/06config.t	                        (rev 0)
+++ trunk/Catalyst-View-Email/t/06config.t	2007-07-12 15:35:19 UTC (rev 6524)
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+use Email::Send::Test;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use_ok('Catalyst::Test', 'TestApp');
+
+my $response;
+my $time = time;
+ok( ($response = request("/email_app_config?time=$time"))->is_success, 'request ok');
+
+my @emails = Email::Send::Test->emails;
+
+is(@emails, 1, "got emails");
+isa_ok( $emails[0], 'Email::MIME', 'email is ok' );
+like($emails[0]->body, qr/$time/, 'Got our email');

Added: trunk/Catalyst-View-Email/t/lib/TestApp/View/Email/AppConfig.pm
===================================================================
--- trunk/Catalyst-View-Email/t/lib/TestApp/View/Email/AppConfig.pm	                        (rev 0)
+++ trunk/Catalyst-View-Email/t/lib/TestApp/View/Email/AppConfig.pm	2007-07-12 15:35:19 UTC (rev 6524)
@@ -0,0 +1,8 @@
+package # Hide from PAUSE
+    TestApp::View::Email::AppConfig;
+
+use Email::Send::Test;
+
+use base 'Catalyst::View::Email';
+
+1;