From: John Napiorkowski Date: Tue, 29 May 2007 15:40:39 +0000 (+0000) Subject: removed meaningless warnings from test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9283388af0f1371479323d56d2424f6e61bd24c5;p=dbsrgits%2FDBIx-Class-Historic.git removed meaningless warnings from test --- diff --git a/t/101populate_rs.t b/t/101populate_rs.t index 7362397..5ea3a55 100644 --- a/t/101populate_rs.t +++ b/t/101populate_rs.t @@ -380,9 +380,7 @@ VOID_CONTEXT: { ## 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 @@ VOID_CONTEXT: { ## 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 @@ VOID_CONTEXT: { 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