From: Rafael Kitover <rkitover@cpan.org>
Date: Tue, 2 Feb 2010 13:48:11 +0000 (+0000)
Subject: test blobs, they work, didn't have to do anything
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b341186f0b95201b2f4f8b8526094270e5eec481;p=dbsrgits%2FDBIx-Class-Historic.git

test blobs, they work, didn't have to do anything
---

diff --git a/t/749sybase_asa.t b/t/749sybase_asa.t
index f18a3d3..9731985 100644
--- a/t/749sybase_asa.t
+++ b/t/749sybase_asa.t
@@ -6,12 +6,12 @@ use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;
 
-my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_ASA_${_}" } qw/DSN USER PASS/};
+# tests stolen from 748informix.t
 
-#warn "$dsn $user $pass";
+my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_ASA_${_}" } qw/DSN USER PASS/};
 
 plan skip_all => 'Set $ENV{DBICTEST_SYBASE_ASA_DSN}, _USER and _PASS to run this test'
-  unless ($dsn && $user);
+  unless ($dsn);
 
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
 
@@ -72,11 +72,44 @@ is( $lim->next->artistid, 101, "iterator->next ok" );
 is( $lim->next->artistid, 102, "iterator->next ok" );
 is( $lim->next, undef, "next past end of resultset ok" );
 
+# test blobs (stolen from 73oracle.t)
+eval { $dbh->do('DROP TABLE bindtype_test') };
+$dbh->do(qq[
+CREATE TABLE bindtype_test
+(
+  id    INT          NOT NULL PRIMARY KEY,
+  bytea INT          NULL,
+  blob  LONG BINARY  NULL,
+  clob  LONG VARCHAR NULL
+)
+],{ RaiseError => 1, PrintError => 1 });
+
+my %binstr = ( 'small' => join('', map { chr($_) } ( 1 .. 127 )) );
+$binstr{'large'} = $binstr{'small'} x 1024;
+
+my $maxloblen = length $binstr{'large'};
+local $dbh->{'LongReadLen'} = $maxloblen;
+
+my $rs = $schema->resultset('BindType');
+my $id = 0;
+
+foreach my $type (qw( blob clob )) {
+  foreach my $size (qw( small large )) {
+    $id++;
+
+    lives_ok { $rs->create( { 'id' => $id, $type => $binstr{$size} } ) }
+    "inserted $size $type without dying";
+
+    ok($rs->find($id)->$type eq $binstr{$size}, "verified inserted $size $type" );
+  }
+}
 
 done_testing;
 
 # clean up our mess
 END {
     my $dbh = eval { $schema->storage->_dbh };
-    $dbh->do("DROP TABLE artist") if $dbh;
+    if ($dbh) {
+        $dbh->do("DROP TABLE $_") for qw/artist bindtype_test/;
+    }
 }