Test escaping quote characters in identifiers

[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / Quotes.pm

diff --git a/t/lib/DBICTest/Schema/Quotes.pm b/t/lib/DBICTest/Schema/Quotes.pm
new file mode 100644 (file)
index 0000000..a6fe246
--- /dev/null
+++ b/t/lib/DBICTest/Schema/Quotes.pm
@@ -0,0 +1,20 @@
+package # hide from PAUSE
+    DBICTest::Schema::Quotes;
+
+use warnings;
+use strict;
+
+use base 'DBICTest::BaseResult';
+
+# Include all the common quote characters
+__PACKAGE__->table('`with` [some] "quotes"');
+
+__PACKAGE__->add_columns(
+  '`has` [more] "quotes"' => {
+    data_type => 'integer',
+    is_auto_increment => 1,
+    accessor => 'has_more_quotes',
+  },
+);
+
+1;