Test escaping quote characters in identifiers

[dbsrgits/DBIx-Class.git] / t / storage / quote_names.t

diff --git a/t/storage/quote_names.t b/t/storage/quote_names.t
index 6492f25..20eebac 100644 (file)
--- a/t/storage/quote_names.t
+++ b/t/storage/quote_names.t
@@ -130,9 +130,9 @@ for my $db (sort {
   # if something was produced - it better be quoted
   if ( my $ddl = try { $schema->deployment_statements } ) {
 
-    my $quoted_artist = $schema->storage->sql_maker->_quote('artist');
+    my $quoted_table = $schema->storage->sql_maker->_quote($schema->source('Quotes')->from);
 
-    like ($ddl, qr/^CREATE\s+TABLE\s+\Q$quoted_artist/msi, "$db DDL contains expected quoted table name");
+    like ($ddl, qr/^CREATE\s+TABLE\s+\Q$quoted_table/msi, "$db DDL contains expected quoted table name");
   }
 }