[Bast-commits] r6856 - in DBIx-Class/0.08/branches: . sybase/t table_name_ref/t

caelum at dev.catalyst.perl.org caelum at dev.catalyst.perl.org
Mon Jun 29 21:45:19 GMT 2009


Author: caelum
Date: 2009-06-29 21:45:19 +0000 (Mon, 29 Jun 2009)
New Revision: 6856

Removed:
   DBIx-Class/0.08/branches/on_connect_call/
Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
   DBIx-Class/0.08/branches/table_name_ref/t/76select.t
Log:
branch pushed, removing

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-06-29 21:42:11 UTC (rev 6855)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-06-29 21:45:19 UTC (rev 6856)
@@ -163,22 +163,18 @@
   my $rs = $schema->resultset('BindType');
   my $id = 0;
 
-  TODO: {
-#    local $TODO = 'TEXT/IMAGE columns don\'t work yet';
+  foreach my $type (qw(blob clob)) {
+    foreach my $size (qw(small large)) {
+      no warnings 'uninitialized';
+      $id++;
 
-    foreach my $type (qw(blob clob)) {
-      foreach my $size (qw(small large)) {
-        no warnings 'uninitialized';
-        $id++;
+      eval { $rs->create( { 'id' => $id, $type => $binstr{$size} } ) };
+      ok(!$@, "inserted $size $type without dying");
+      diag $@ if $@;
 
-        eval { $rs->create( { 'id' => $id, $type => $binstr{$size} } ) };
-        ok(!$@, "inserted $size $type without dying");
-        diag $@ if $@;
-
-        ok(eval {
-          $rs->search({ id=> $id }, { select => [$type] })->single->$type
-        } eq $binstr{$size}, "verified inserted $size $type" );
-      }
+      ok(eval {
+        $rs->search({ id=> $id }, { select => [$type] })->single->$type
+      } eq $binstr{$size}, "verified inserted $size $type" );
     }
   }
 }

Modified: DBIx-Class/0.08/branches/table_name_ref/t/76select.t
===================================================================
--- DBIx-Class/0.08/branches/table_name_ref/t/76select.t	2009-06-29 21:42:11 UTC (rev 6855)
+++ DBIx-Class/0.08/branches/table_name_ref/t/76select.t	2009-06-29 21:45:19 UTC (rev 6856)
@@ -64,6 +64,9 @@
 cmp_ok ($cds->count, '>', 2, 'Initially populated with more than 2 CDs');
 
 my $table = $cds->result_source->name;
+
+$DB::single = 1;
+
 my $subsel = $cds->search ({}, {
     columns => [qw/cdid title/],
     from => \ "(SELECT cdid, title FROM $table LIMIT 2) me",




More information about the Bast-commits mailing list