[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