[Bast-commits] r3432 - branches/DBIx-Class-current/t
jnapiorkowski at dev.catalyst.perl.org
jnapiorkowski at dev.catalyst.perl.org
Tue May 29 16:40:40 GMT 2007
Author: jnapiorkowski
Date: 2007-05-29 16:40:39 +0100 (Tue, 29 May 2007)
New Revision: 3432
Modified:
branches/DBIx-Class-current/t/101populate_rs.t
Log:
removed meaningless warnings from test
Modified: branches/DBIx-Class-current/t/101populate_rs.t
===================================================================
--- branches/DBIx-Class-current/t/101populate_rs.t 2007-05-29 01:47:07 UTC (rev 3431)
+++ branches/DBIx-Class-current/t/101populate_rs.t 2007-05-29 15:40:39 UTC (rev 3432)
@@ -380,9 +380,7 @@
## Test from a belongs_to perspective, should create artist first,
## then CD with artistid.
-
- diag("Starting Void Context BelongsTO with No PKs");
-
+
my $cds = [
{
title => 'Some CD3BB',
@@ -419,8 +417,6 @@
## This first group of tests checks to make sure we can call populate
## with the parent having many children and let the keys be automatic
-
- diag("Starting Void Context Has Many with No PKs");
my $artists = [
{
@@ -489,37 +485,8 @@
ok($cd1, "Got a got CD");
ok($cd2, "Got a got CD");
-
- SKIP:{
-
- skip "Can't Test CD because we failed to create it", 1 unless $cd1;
- ok( $cd1->title eq "VOID_My First CD", "Got Expected CD Title");
- }
-
- SKIP:{
-
- skip "Can't Test CD because we failed to create it", 1 unless $cd2;
- ok( $cd2->title eq "VOID_Yet More Tweeny-Pop crap", "Got Expected CD Title");
- }
+ ok( $cd1->title eq "VOID_My First CD", "Got Expected CD Title");
+ ok( $cd2->title eq "VOID_Yet More Tweeny-Pop crap", "Got Expected CD Title");
}
-}
-
-__END__
-## ----------------------------------------------------------------------------
-## Error cases
-## ----------------------------------------------------------------------------
-
-SHOULD_CAUSE_ERRORS: {
-
- ## bad or missing PKs
- ## changing columns
- ## basically errors for non well formed data
- ## check for the first incomplete problem
-}
-
-
-
-
-
-
+}
\ No newline at end of file
More information about the Bast-commits
mailing list