\Q-uote column/alias names in regexes in _resolve_aliastypes_from_select_args

[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
index a6fe246..0d84eb8 100644 (file)
--- a/t/lib/DBICTest/Schema/Quotes.pm
+++ b/t/lib/DBICTest/Schema/Quotes.pm
@@ -15,6 +15,15 @@ __PACKAGE__->add_columns(
     is_auto_increment => 1,
     accessor => 'has_more_quotes',
   },
+  'has # comment' => {
+    data_type => 'integer',
+    accessor => 'has_comment',
+  },
+  artistid => {
+    data_type => 'integer',
+  },
 );
 
+__PACKAGE__->belongs_to(artist => 'DBICTest::Schema::Artist', 'artistid');
+
 1;