[Bast-commits] r5925 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-21 09:53:35 +0100 (Tue, 21 Apr 2009)
New Revision: 5925

Modified:
   DBIx-Class/0.08/trunk/t/19quotes.t
   DBIx-Class/0.08/trunk/t/19quotes_newstyle.t
   DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t
   DBIx-Class/0.08/trunk/t/66relationship.t
   DBIx-Class/0.08/trunk/t/71mysql.t
   DBIx-Class/0.08/trunk/t/89inflate_datetime.t
Log:
t/ janitorial work

Modified: DBIx-Class/0.08/trunk/t/19quotes.t
===================================================================
--- DBIx-Class/0.08/trunk/t/19quotes.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/19quotes.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -19,7 +19,7 @@
 use_ok('DBIC::DebugObj');
 my $schema = DBICTest->init_schema();
 
-diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/));
+#diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/));
 
 $schema->storage->sql_maker->quote_char('`');
 $schema->storage->sql_maker->name_sep('.');

Modified: DBIx-Class/0.08/trunk/t/19quotes_newstyle.t
===================================================================
--- DBIx-Class/0.08/trunk/t/19quotes_newstyle.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/19quotes_newstyle.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -19,7 +19,7 @@
 
 my $schema = DBICTest->init_schema();
 
-diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/));
+#diag('Testing against ' . join(' ', map { $schema->storage->dbh->get_info($_) } qw/17 18/));
 
 my $dsn = $schema->storage->_dbi_connect_info->[0];
 $schema->connection(

Modified: DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t
===================================================================
--- DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -6,6 +6,25 @@
 
 use lib 't/lib';
 
+=begin
+
+How did this get back here? The test is borked, there is a branch with
+the correct test and a tentative fix - branches/subclassed_rsset
+
+Make sure to nuke this file when merging, it is only left here to make
+merging of the above branch easier.
+
+
+ribasushi
+
+
+=cut
+
+
+__END__
+
+
+
 plan tests => 15;
 
 sub _chk_warning {

Modified: DBIx-Class/0.08/trunk/t/66relationship.t
===================================================================
--- DBIx-Class/0.08/trunk/t/66relationship.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/66relationship.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -41,7 +41,7 @@
   } );
 
  SKIP:{
-    skip "Can't fix right now", 1 unless $DBIx::Class::VERSION >= '0.09';
+    skip "Can't fix right now", 1 if $DBIx::Class::VERSION < 0.09;
     lives_ok { $big_flop->genre} "Don't throw exception when col is not loaded after insert";
   };
 }

Modified: DBIx-Class/0.08/trunk/t/71mysql.t
===================================================================
--- DBIx-Class/0.08/trunk/t/71mysql.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/71mysql.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -108,7 +108,7 @@
     => 'Created an artist resultset of undef';
     
     TODO: {
-    	$TODO = "need to fix the row count =1 when select * from table where pk IS NULL problem";
+    	local $TODO = "need to fix the row count =1 when select * from table where pk IS NULL problem";
 	    is $artist2_rs->count, 0
 	    => 'got no rows';    	
     }

Modified: DBIx-Class/0.08/trunk/t/89inflate_datetime.t
===================================================================
--- DBIx-Class/0.08/trunk/t/89inflate_datetime.t	2009-04-21 08:51:59 UTC (rev 5924)
+++ DBIx-Class/0.08/trunk/t/89inflate_datetime.t	2009-04-21 08:53:35 UTC (rev 5925)
@@ -5,7 +5,10 @@
 use lib qw(t/lib);
 use DBICTest;
 
-DBICTest::Schema->load_classes('EventTZDeprecated');
+{
+  local $SIG{__WARN__} = sub { warn @_ if $_[0] !~ /extra \=\> .+? has been deprecated/ };
+  DBICTest::Schema->load_classes('EventTZDeprecated');
+}
 
 my $schema = DBICTest->init_schema();