or
(not $dsn || $dsn2);
+DBICTest::Schema->load_classes('ArtistGUID');
+
# tests stolen from 748informix.t
plan skip_all => <<'EOF' unless $dsn || $dsn2;
_USER and _PASS to run these tests
EOF
-require DBICTest::Schema;
-DBICTest::Schema->load_classes('ArtistGUID');
-
my @info = (
[ $dsn, $user, $pass ],
[ $dsn2, $user2, $pass2 ],
id INT NOT NULL PRIMARY KEY,
bytea INT NULL,
blob LONG BINARY NULL,
- blob2 LONG BINARY NULL,
clob LONG VARCHAR NULL,
- clob2 LONG VARCHAR NULL,
a_memo INT NULL
)
],{ RaiseError => 1, PrintError => 1 });