mirror of
https://git.freebsd.org/ports.git
synced 2025-06-03 03:46:30 -04:00
34 lines
979 B
Perl
34 lines
979 B
Perl
--- t/06bytea.t.orig Sun Mar 20 10:47:38 2005
|
|
+++ t/06bytea.t Thu Aug 4 22:34:26 2005
|
|
@@ -9,7 +9,7 @@
|
|
$|=1;
|
|
|
|
if (defined $ENV{DBI_DSN}) {
|
|
- plan tests => 3;
|
|
+ plan tests => 6;
|
|
} else {
|
|
plan skip_all => 'Cannot run test unless DBI_DSN is defined. See the README file';
|
|
}
|
|
@@ -22,12 +22,21 @@
|
|
|
|
$sth = $dbh->prepare(qq{INSERT INTO dbd_pg_test (id,bytetest) VALUES (?,?)});
|
|
$sth->bind_param(2, undef, { pg_type => DBD::Pg::PG_BYTEA });
|
|
-$sth->execute(400, "a\0b");
|
|
+ok($sth->execute(400, "a\0b", 'execute 401');
|
|
+ok($sth->execute(401, '\''), 'execute 401');
|
|
+ok($sth->execute(402, '\''), 'execute 402');
|
|
+
|
|
+
|
|
$sth = $dbh->prepare(qq{SELECT bytetest FROM dbd_pg_test WHERE id=?});
|
|
$sth->execute(400);
|
|
|
|
my $byte = $sth->fetchall_arrayref()->[0][0];
|
|
ok($byte eq "a\0b", "text from BYTEA column looks corect");
|
|
+
|
|
+$sth->execute(402);
|
|
+$byte = $sth->fetchall_arrayref()->[0][0];
|
|
+is($byte, '\'', 'text from BYTEA column with quote');
|
|
+
|
|
$sth->finish();
|
|
|
|
$dbh->rollback();
|