[Bast-commits] r9414 - DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t

amiri at dev.catalyst.perl.org amiri at dev.catalyst.perl.org
Fri May 21 13:02:39 GMT 2010


Author: amiri
Date: 2010-05-21 14:02:39 +0100 (Fri, 21 May 2010)
New Revision: 9414

Modified:
   DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t
Log:
Tidy test file



Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t	2010-05-21 12:42:27 UTC (rev 9413)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t	2010-05-21 13:02:39 UTC (rev 9414)
@@ -6,21 +6,22 @@
 use Test::More;
 use Test::Exception;
 use lib qw(t/lib);
-use Devel::Dwarn;
 use ViewDeps;
 
 BEGIN {
     use_ok('DBIx::Class::ResultSource::View');
 }
 
+### SANITY
+
 my $view = DBIx::Class::ResultSource::View->new( { name => 'Quux' } );
 
-isa_ok( $view, 'DBIx::Class::ResultSource' );
-isa_ok( $view, 'DBIx::Class' );
+isa_ok( $view, 'DBIx::Class::ResultSource', 'A new view');
+isa_ok( $view, 'DBIx::Class', 'A new view also');
 
 can_ok( $view, $_ ) for qw/new from depends_on/;
 
-#################################
+### DEPS
 
 my $schema = ViewDeps->connect;
 ok( $schema, 'Connected to ViewDeps schema OK' );
@@ -40,10 +41,15 @@
     'DBIx::Class::ResultSource::View',
     'though Foo'
 );
-#diag($schema->resultset('Baz')->result_source->table_class);
-isa_ok($schema->resultset('Baz')->result_source, 'DBIx::Class::ResultSource::Table', "Baz on the other hand");
-dies_ok {  ViewDeps::Result::Baz->result_source_instance->depends_on(
-        { ViewDeps::Result::Mixin->result_source_instance->name => 1 }
-    ) } "...and you cannot use depends_on with that";
+isa_ok(
+    $schema->resultset('Baz')->result_source,
+    'DBIx::Class::ResultSource::Table',
+    "Baz on the other hand"
+);
+dies_ok {
+    ViewDeps::Result::Baz->result_source_instance->depends_on(
+        { ViewDeps::Result::Mixin->result_source_instance->name => 1 } );
+}
+"...and you cannot use depends_on with that";
 
 done_testing;




More information about the Bast-commits mailing list