From: J. Shirley <jshirley@gmail.com>
Date: Thu, 12 Jul 2007 15:35:19 +0000 (+0000)
Subject: Adding missing files.
X-Git-Tag: v0.14~38
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c18b93ecf131ec0441e763a573dbd3fa504c5937;p=catagits%2FCatalyst-View-Email.git

Adding missing files.
---

diff --git a/t/06config.t b/t/06config.t
new file mode 100644
index 0000000..421478a
--- /dev/null
+++ b/t/06config.t
@@ -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');
diff --git a/t/lib/TestApp/View/Email/AppConfig.pm b/t/lib/TestApp/View/Email/AppConfig.pm
new file mode 100644
index 0000000..fd9e9a8
--- /dev/null
+++ b/t/lib/TestApp/View/Email/AppConfig.pm
@@ -0,0 +1,8 @@
+package # Hide from PAUSE
+    TestApp::View::Email::AppConfig;
+
+use Email::Send::Test;
+
+use base 'Catalyst::View::Email';
+
+1;