# -*- perl -*-
use
DBSchema;
use
RunTests;
use
Test::More;
my
(
$dsn
,
$user
,
$pass
) =
@ENV
{
map
{
"DBICTEST_PG_${_}"
}
qw/DSN USER PASS/
};
plan
skip_all
=>
'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
.
' (note: creates and tables!)'
unless
(
$dsn
&&
$user
);
my
$schema
= DBSchema::get_test_schema(
$dsn
,
$user
,
$pass
);
run_tests(
$schema
);