X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F72pg_bytea.t;h=bf577a9769f40cdaeae4c71f072a40025c7a64d0;hb=ec493c373ede4f9ecf945eabe134127b39ab7b41;hp=9a6e4deee127ecaa0046b065f9378c3c8cadf3bc;hpb=c7e856308aeac1faa6f4d8ad59da096e009d70f4;p=dbsrgits%2FDBIx-Class.git diff --git a/t/72pg_bytea.t b/t/72pg_bytea.t index 9a6e4de..bf577a9 100644 --- a/t/72pg_bytea.t +++ b/t/72pg_bytea.t @@ -1,20 +1,15 @@ +use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_pg'; + use strict; use warnings; use Test::More; -use DBIx::Class::Optional::Dependencies (); use Try::Tiny; use lib qw(t/lib); use DBICTest; -plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('rdbms_pg') - unless DBIx::Class::Optional::Dependencies->req_ok_for ('rdbms_pg'); - my ($dsn, $dbuser, $dbpass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/}; -plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test' - unless ($dsn && $dbuser); - my $schema = DBICTest::Schema->connect($dsn, $dbuser, $dbpass, { AutoCommit => 1 }); if ($schema->storage->_server_info->{normalized_dbms_version} >= 9.0) { @@ -41,9 +36,7 @@ my $dbh = $schema->storage->dbh; id serial NOT NULL PRIMARY KEY, bytea bytea NULL, blob bytea NULL, - blob2 bytea NULL, clob text NULL, - clob2 text NULL, a_memo text NULL ); ],{ RaiseError => 1, PrintError => 1 });