Add tests for the deprecated local_request
Florian Ragwitz [Sun, 27 Mar 2011 10:40:00 +0000 (11:40 +0100)]
t/aggregate/deprecated_test_unimported.t [new file with mode: 0644]

diff --git a/t/aggregate/deprecated_test_unimported.t b/t/aggregate/deprecated_test_unimported.t
new file mode 100644 (file)
index 0000000..3548ae2
--- /dev/null
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use TestApp;
+use Catalyst::Test ();
+
+{
+    like do {
+        my $warning;
+        local $SIG{__WARN__} = sub { $warning = $_[0] };
+        isa_ok Catalyst::Test::local_request('TestApp', '/'), 'HTTP::Response';
+        $warning;
+    }, qr/deprecated/, 'local_request is deprecated';
+}
+
+done_testing;