[Bast-commits] r8198 - branches/DBIx-Class-Schema-Loader/skip_load_external/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-12-31 02:19:13 +0000 (Thu, 31 Dec 2009)
New Revision: 8198

Modified:
   branches/DBIx-Class-Schema-Loader/skip_load_external/t/20invocations.t
Log:
minor test cleanup

Modified: branches/DBIx-Class-Schema-Loader/skip_load_external/t/20invocations.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/skip_load_external/t/20invocations.t	2009-12-31 02:00:47 UTC (rev 8197)
+++ branches/DBIx-Class-Schema-Loader/skip_load_external/t/20invocations.t	2009-12-31 02:19:13 UTC (rev 8198)
@@ -135,6 +135,11 @@
     test_schema($style, &$subref);
 }
 
-is($DBICTest::Schema::13::Foo::skip_me, "bad mojo", "skip_load_external_1 skip_me");
-is($DBICTest::Schema::14::Foo::skip_me, undef,      "skip_load_external_2 skip_me");
+{
+    no warnings 'once';
 
+    is($DBICTest::Schema::13::Foo::skip_me, "bad mojo",
+        "external content loaded");
+    is($DBICTest::Schema::14::Foo::skip_me, undef,
+        "external content not loaded with skip_load_external => 1");
+}