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

[amiri at dev.catalyst.perl.org]

Author: amiri
Date: 2010-05-20 23:18:24 +0100 (Thu, 20 May 2010)
New Revision: 9412

Modified:
   DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t
Log:
Added diag messages for tests in 105view_deps.



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-20 22:09:45 UTC (rev 9411)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t	2010-05-20 22:18:24 UTC (rev 9412)
@@ -14,22 +14,24 @@
 }
 
 my $view = DBIx::Class::ResultSource::View->new( { name => 'Upsilon' } );
+
 isa_ok( $view, 'DBIx::Class::ResultSource' );
 isa_ok( $view, 'DBIx::Class' );
 
 can_ok( $view, $_ ) for qw/new from depends_on/;
 
-diag( map {"$_\n"} @{ mro::get_linear_isa($view) } );
+#diag( map {"$_\n"} @{ mro::get_linear_isa($view) } );
 #diag( DwarnS $view);
 
 my $schema = ViewDeps->connect;
-ok($schema);
+ok($schema, 'Connected to ViewDeps schema OK');
 
 #diag(DwarnS $schema);
 
-#diag(DwarnS $schema->resultset('Bar')->result_source->depends_on);
-diag keys %{$schema->resultset('Bar')->result_source->depends_on};
+#diag keys %{$schema->resultset('Bar')->result_source->depends_on};
+
 my @dependencies = keys %{$schema->resultset('Bar')->result_source->depends_on};
-is($dependencies[0], 'mixin');
 
+is($dependencies[0], 'mixin', 'Bar is indeed reported to depend on mixin');
+
 done_testing;