Rewrite GenericSubQ from SQLA::L to be actually useful

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

diff --git a/t/lib/DBICTest/Schema/BooksInLibrary.pm b/t/lib/DBICTest/Schema/BooksInLibrary.pm
index ba6f94d..24d5657 100644 (file)
--- a/t/lib/DBICTest/Schema/BooksInLibrary.pm
+++ b/t/lib/DBICTest/Schema/BooksInLibrary.pm
@@ -1,28 +1,36 @@
-package # hide from PAUSE \r
-    DBICTest::Schema::BooksInLibrary;\r
-\r
-use base qw/DBIx::Class::Core/;\r
-\r
-__PACKAGE__->table('books');\r
-__PACKAGE__->add_columns(\r
-  'id' => {\r
-    data_type => 'integer',\r
-    is_auto_increment => 1,\r
-  },\r
-  'source' => {\r
-    data_type => 'varchar',\r
-    size      => '100',\r
-  },\r
-  'owner' => {\r
-    data_type => 'integer',\r
-  },\r
-  'title' => {\r
-    data_type => 'varchar',\r
-    size      => '100',\r
-  },\r
-);\r
-__PACKAGE__->set_primary_key('id');\r
-\r
-__PACKAGE__->resultset_attributes({where => { source => "Library" } });\r
-\r
-1;\r
+package # hide from PAUSE 
+    DBICTest::Schema::BooksInLibrary;
+
+use base qw/DBICTest::BaseResult/;
+
+__PACKAGE__->table('books');
+__PACKAGE__->add_columns(
+  'id' => {
+    data_type => 'integer',
+    is_auto_increment => 1,
+  },
+  'source' => {
+    data_type => 'varchar',
+    size      => '100',
+  },
+  'owner' => {
+    data_type => 'integer',
+  },
+  'title' => {
+    data_type => 'varchar',
+    size      => '100',
+  },
+  'price' => {
+    data_type => 'integer',
+    is_nullable => 1,
+  },
+);
+__PACKAGE__->set_primary_key('id');
+
+__PACKAGE__->add_unique_constraint (['title']);
+
+__PACKAGE__->resultset_attributes({where => { source => "Library" } });
+
+__PACKAGE__->belongs_to ( owner => 'DBICTest::Schema::Owners', 'owner' );
+
+1;