[Bast-commits] r4650 - in DBIx-Class-Tree-NestedSet/t: . lib lib/FailSchema

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-26 00:19:58 +0100 (Sat, 26 Jul 2008)
New Revision: 4650

Added:
   DBIx-Class-Tree-NestedSet/t/exception.t
   DBIx-Class-Tree-NestedSet/t/lib/FailSchema.pm
   DBIx-Class-Tree-NestedSet/t/lib/FailSchema/
   DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MissingCols.pm
   DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MultiPK.pm
Log:
Test some exceptions.

Added: DBIx-Class-Tree-NestedSet/t/exception.t
===================================================================
--- DBIx-Class-Tree-NestedSet/t/exception.t	                        (rev 0)
+++ DBIx-Class-Tree-NestedSet/t/exception.t	2008-07-25 23:19:58 UTC (rev 4650)
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Test::Exception;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use FailSchema;
+
+throws_ok(sub {
+    FailSchema->load_classes(qw/MultiPK/);
+}, qr/single column primary key/, 'multi column primary keys');
+
+throws_ok(sub {
+    FailSchema->load_classes(qw/MissingCols/);
+}, qr/required param/, 'missing params');

Added: DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MissingCols.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MissingCols.pm	                        (rev 0)
+++ DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MissingCols.pm	2008-07-25 23:19:58 UTC (rev 4650)
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+
+package FailSchema::MissingCols;
+
+use parent 'DBIx::Class';
+
+__PACKAGE__->load_components(qw/Tree::NestedSet::Multi Core/);
+__PACKAGE__->table('zomtec');
+
+__PACKAGE__->add_columns(qw/affe/);
+__PACKAGE__->set_primary_key(qw/affe/);
+
+__PACKAGE__->tree_columns({
+    left_column => 'affe',
+});
+
+1;

Added: DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MultiPK.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MultiPK.pm	                        (rev 0)
+++ DBIx-Class-Tree-NestedSet/t/lib/FailSchema/MultiPK.pm	2008-07-25 23:19:58 UTC (rev 4650)
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+
+package FailSchema::MultiPK;
+
+use parent 'DBIx::Class';
+
+__PACKAGE__->load_components(qw/Tree::NestedSet::Multi Core/);
+
+__PACKAGE__->set_primary_key(qw/foo bar/);
+
+1;

Added: DBIx-Class-Tree-NestedSet/t/lib/FailSchema.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/t/lib/FailSchema.pm	                        (rev 0)
+++ DBIx-Class-Tree-NestedSet/t/lib/FailSchema.pm	2008-07-25 23:19:58 UTC (rev 4650)
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package FailSchema;
+
+use parent 'DBIx::Class::Schema';
+
+1;