use Test::Exception;
use Test::More;
+
+# I *strongly* suspect Oracle has an implicit stable output order when
+# dealing with HQs. So just punt on the entire shuffle thing.
+BEGIN { $ENV{DBIC_SHUFFLE_UNORDERED_RESULTSETS} = 0 }
+
+
use DBIx::Class::Optional::Dependencies ();
use lib qw(t/lib);
-use DBICTest::RunMode;
$ENV{NLS_SORT} = "BINARY";
$ENV{NLS_COMP} = "BINARY";
plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('rdbms_oracle')
unless DBIx::Class::Optional::Dependencies->req_ok_for ('rdbms_oracle');
-use DBICTest::Schema::Artist;
-BEGIN {
+{
+ require DBICTest::Schema::Artist;
DBICTest::Schema::Artist->add_column('parentid');
DBICTest::Schema::Artist->has_many(
}
use DBICTest;
-use DBICTest::Schema;
-my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
+my $schema = DBICTest->connect_schema($dsn, $user, $pass);
note "Oracle Version: " . $schema->storage->_server_info->{dbms_version};