View | Details | Raw Unified | Return to bug 11701
Collapse All | Expand All

(-)a/t/Context.t (-2 / +6 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use DBI;
4
use DBI;
5
use Test::More tests => 14;
5
use Test::More tests => 16;
6
use Test::MockModule;
6
use Test::MockModule;
7
7
8
BEGIN {
8
BEGIN {
Lines 45-47 is(C4::Context::db_scheme2dbi('mysql'), 'mysql', 'ask for mysql, get mysql'); Link Here
45
is(C4::Context::db_scheme2dbi('Pg'),    'Pg',    'ask for Pg, get Pg');
45
is(C4::Context::db_scheme2dbi('Pg'),    'Pg',    'ask for Pg, get Pg');
46
is(C4::Context::db_scheme2dbi('xxx'),   'mysql', 'ask for unsupported DBMS, get mysql');
46
is(C4::Context::db_scheme2dbi('xxx'),   'mysql', 'ask for unsupported DBMS, get mysql');
47
is(C4::Context::db_scheme2dbi(),        'mysql', 'ask for nothing, get mysql');
47
is(C4::Context::db_scheme2dbi(),        'mysql', 'ask for nothing, get mysql');
48
- 
48
49
my $oConnection = C4::Context->Zconn('biblioserver', 0);
50
isnt($oConnection->option('async'), 1, "ZOOM connection is synchronous");
51
$oConnection = C4::Context->Zconn('biblioserver', 1);
52
is($oConnection->option('async'), 1, "ZOOM connection is asynchronous");

Return to bug 11701