fix t/23dumpmore.t

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 6ea127f..5a50691 100644 (file)
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -842,7 +842,7 @@ EOF
 Could not eval expression '$result_namespace' for result_namespace from
 $filename: $@
 EOF
-    $result_namespace = $ds;
+    $result_namespace = $ds || '';
 
     if ($load_classes && (not defined $self->use_namespaces)) {
         warn <<"EOF"  unless $ENV{SCHEMA_LOADER_BACKCOMPAT};

diff --git a/t/23dumpmore.t b/t/23dumpmore.t
index a6f5445..2091871 100644 (file)
--- a/t/23dumpmore.t
+++ b/t/23dumpmore.t
@@ -361,9 +361,9 @@ $t->dump_test(
     schema => [
       qr/package DBICTest::DumpMore::1;/,
       qr/->load_namespaces/,
-      qr/result_namespace => 'Res'/,
-      qr/resultset_namespace => 'RSet'/,
-      qr/default_resultset_class => 'RSetBase'/,
+      qr/result_namespace => "Res"/,
+      qr/resultset_namespace => "RSet"/,
+      qr/default_resultset_class => "RSetBase"/,
     ],
     'Res/Foo' => [
       qr/package DBICTest::DumpMore::1::Res::Foo;/,
@@ -397,9 +397,9 @@ $t->dump_test(
     schema => [
       qr/package DBICTest::DumpMore::1;/,
       qr/->load_namespaces/,
-      qr/result_namespace => '\+DBICTest::DumpMore::1::Res'/,
-      qr/resultset_namespace => 'RSet'/,
-      qr/default_resultset_class => 'RSetBase'/,
+      qr/result_namespace => "\+DBICTest::DumpMore::1::Res"/,
+      qr/resultset_namespace => "RSet"/,
+      qr/default_resultset_class => "RSetBase"/,
       qr/use base 'My::SchemaBaseClass'/,
     ],
     'Res/Foo' => [