From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 6 Feb 2006 01:47:02 +0000 (+0000)
Subject: missing svk add
X-Git-Tag: v0.05005~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=38a0b4ff620ef7405b5bd14ad81165cb91bde3b7;p=dbsrgits%2FDBIx-Class.git

missing svk add
---

diff --git a/t/lib/DBICTest/Schema/TreeLike.pm b/t/lib/DBICTest/Schema/TreeLike.pm
new file mode 100644
index 0000000..5b3835c
--- /dev/null
+++ b/t/lib/DBICTest/Schema/TreeLike.pm
@@ -0,0 +1,17 @@
+package DBICTest::Schema::TreeLike;
+
+use base qw/DBIx::Class/;
+
+__PACKAGE__->load_components(qw/PK::Auto::SQLite Core/);
+
+__PACKAGE__->table('treelike');
+__PACKAGE__->add_columns(
+  'id' => { data_type => 'integer', is_auto_increment => 1 },
+  'parent' => { data_type => 'integer' },
+  'name' => { data_type => 'varchar' },
+);
+__PACKAGE__->set_primary_key(qw/id/);
+__PACKAGE__->belongs_to('parent', 'TreeLike',
+                          { 'foreign.id' => 'self.parent' });
+
+1;