X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F72pg.t;h=cdf2178d9951c48400b4ca18676b542f360cce43;hb=4a339535906fa0d29a8f80700e58f61251e90e77;hp=951be49810dd71d897ee268a53cb8baa5d98f231;hpb=89869c75ac532068518bfc72e33468014bb68e43;p=dbsrgits%2FDBIx-Class.git diff --git a/t/72pg.t b/t/72pg.t index 951be49..cdf2178 100644 --- a/t/72pg.t +++ b/t/72pg.t @@ -38,13 +38,11 @@ use DBICTest; my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/}; -#warn "$dsn $user $pass"; - plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test '. '(note: This test drops and creates tables called \'artist\', \'casecheck\', \'array_test\' and \'sequence_test\''. ' as well as following sequences: \'pkid1_seq\', \'pkid2_seq\' and \'nonpkid_seq\''. ' as well as following schemas: \'testschema\'!)' - unless ($dsn && $user && $pass); + unless ($dsn && $user); plan tests => 37; @@ -132,10 +130,7 @@ like($artistid_defval, is_deeply($type_info, $test_type_info, 'columns_info_for - column data types'); -SKIP: { - skip "SQL::Abstract < 1.49 does not pass through arrayrefs", 3 - if $SQL::Abstract::VERSION < 1.49; - +{ lives_ok { $schema->resultset('ArrayTest')->create({ arrayfield => [1, 2], @@ -155,7 +150,7 @@ SKIP: { my $count; lives_ok { $count = $schema->resultset('ArrayTest')->search({ - arrayfield => \[ '= ?' => [3, 4] ], #TODO anything less ugly than this? + arrayfield => \[ '= ?' => [arrayfield => [3, 4]] ], #TODO anything less ugly than this? })->count; } 'comparing arrayref to pg array data does not blow up'; is($count, 1, 'comparing arrayref to pg array data gives correct result');