← Back to branch summary

~ubuntu-branches/ubuntu/maverick/libdbd-pg-perl/maverick-updates

« back to all changes in this revision

Viewing changes to t/02attribs.t

  • Committer: Bazaar Package Importer
  • Author(s): Gunnar Wolf, Gunnar Wolf, Jonathan Yu
  • Date: 2009-08-07 23:57:04 UTC
  • mfrom: (1.1.20 upstream) (4.2.4 sid)
  • Revision ID: james.westby@ubuntu.com-20090807235704-gwhfvbf4l1cs0oyj
Tags: 2.15.1-1
[ Gunnar Wolf ]
* New (very minor) upstream release. Merging changelog entry with
  Jonathan's, as previous version (2.15.0) has not been uploaded

[ Jonathan Yu ]
* New upstream release
  + Use PQexecPrepared even with no placeholders (RT#48155)
  + Allow execute_array and bind_param_array to take an odd number of items:
    DBI will make the missing ones undef (RT#39829)
  + Single quites around array literals when quoting arrays (RT#48420)

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/02attribs.t
414
414
        skip ('Encode module is needed for unicode tests', 5) if $@;
415
415
 
416
416
        my $server_encoding = $dbh->selectall_arrayref('SHOW server_encoding')->[0][0];
417
 
        skip ('Cannot test unicode with a LATIN1 database', 5)
418
 
                if $server_encoding eq 'LATIN1';
 
417
        skip ('Cannot reliably test unicode without a UTF8 database', 5)
 
418
                if $server_encoding ne 'UTF8';
419
419
 
420
420
        $SQL = 'SELECT id, pname FROM dbd_pg_test WHERE id = ?';
421
421
        $sth = $dbh->prepare($SQL);
1469
1469
 
1470
1470
        $t='Database handle attribute "ReadOnly" starts out undefined';
1471
1471
        $dbh->commit();
1472
 
        $dbh4 = connect_database();
 
1472
 
 
1473
        ## This fails on some boxes, so we pull back all information to display why
 
1474
        my ($helpconnect2, $connerror2);
 
1475
        ($helpconnect2, $connerror2, $dbh4) = connect_database();
 
1476
        if (! defined $dbh4) {
 
1477
                die "Database connection failed: helpconnect is $helpconnect2, error is $connerror2\n";
 
1478
        }
1473
1479
        $dbh4->trace(0);
1474
1480
        is ($dbh4->{ReadOnly}, undef, $t);
1475
1481