send "\177\177\177\177yes\r"
expect "Password for SYSDBA"
send "123\r"
- sleep 1
+ sleep 2
expect eof
'
# creating testdb
# FIXME - this step still fails from time to time >:(((
# has to do with the FB reconfiguration I suppose
# for now if it fails twice - simply skip FB testing
- for i in 1 2 ; do
+ for i in 1 2 3 ; do
run_or_err "Re-configuring Firebird" "
sync
+ sleep 5
DEBIAN_FRONTEND=text sudo expect -c '$EXPECT_FB_SCRIPT'
- sleep 1
- sync
- # restart the server for good measure
- sudo /etc/init.d/firebird2.5-super stop || true
- sleep 1
- sync
- sudo /etc/init.d/firebird2.5-super start
- sleep 1
- sync
"
if run_or_err "Creating Firebird TestDB" \
use Test::Exception;
use DBIx::Class::Optional::Dependencies ();
use Scope::Guard ();
+use List::Util 'shuffle';
use Try::Tiny;
use lib qw(t/lib);
use DBICTest;
my $schema;
-my @test_order = map { "DBICTEST_FIREBIRD$_" }
- DBICTest::RunMode->is_plain
- ? ('', '_INTERBASE', '_ODBC') # Least likely to fail
- : ('_ODBC', '_INTERBASE' , ''); # Most likely to fail
-
-for my $prefix (@test_order) { SKIP: {
+for my $prefix (shuffle keys %$env2optdep) { SKIP: {
skip ("Testing with ${prefix}_DSN needs " . DBIx::Class::Optional::Dependencies->req_missing_for( $env2optdep->{$prefix} ), 1)
unless DBIx::Class::Optional::Dependencies->req_ok_for($env2optdep->{$prefix});
- skip ("DBD::InterBase crashes if Firebird or ODBC are also loaded", 1)
- if $prefix eq 'DBICTEST_FIREBIRD_INTERBASE' and
- ($ENV{DBICTEST_FIREBIRD_DSN} or $ENV{DBICTEST_FIREBIRD_ODBC_DSN});
-
my ($dsn, $user, $pass) = map { $ENV{"${prefix}_$_"} } qw/DSN USER PASS/;
note "Testing with ${prefix}_DSN";