[Bast-commits] r8422 - branches/DBIx-Class-Schema-Loader/current/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-01-24 12:10:39 +0000 (Sun, 24 Jan 2010)
New Revision: 8422

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t
Log:
add external content and skip_load_external tests to 23dumpmore.t

Modified: branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t	2010-01-23 22:03:28 UTC (rev 8421)
+++ branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t	2010-01-24 12:10:39 UTC (rev 8422)
@@ -125,6 +125,40 @@
 
 rmtree($DUMP_PATH, 1, 1);
 
+# test loading external content
+do_dump_test(
+    classname => 'DBICTest::Schema::13',
+    options => { },
+    error => '',
+    warnings => [
+        qr/Dumping manual schema for DBICTest::Schema::13 to directory /,
+        qr/Schema dump completed/,
+    ],
+    regexes => {
+        Foo => [
+qr/package DBICTest::Schema::13::Foo;\nour \$skip_me = "bad mojo";\n1;/
+        ],
+    },
+);
+
+# test skipping external content
+do_dump_test(
+    classname => 'DBICTest::Schema::14',
+    options => { skip_load_external => 1 },
+    error => '',
+    warnings => [
+        qr/Dumping manual schema for DBICTest::Schema::14 to directory /,
+        qr/Schema dump completed/,
+    ],
+    neg_regexes => {
+        Foo => [
+qr/package DBICTest::Schema::14::Foo;\nour \$skip_me = "bad mojo";\n1;/
+        ],
+    },
+);
+
+rmtree($DUMP_PATH, 1, 1);
+
 # test out the POD
 
 do_dump_test(