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 => 10;
5
use Test::More tests => 12;
6
use Test::MockModule;
6
use Test::MockModule;
7
7
8
BEGIN {
8
BEGIN {
Lines 35-37 is(C4::Context::db_scheme2dbi('mysql'), 'mysql', 'ask for mysql, get mysql'); Link Here
35
is(C4::Context::db_scheme2dbi('Pg'),    'Pg',    'ask for Pg, get Pg');
35
is(C4::Context::db_scheme2dbi('Pg'),    'Pg',    'ask for Pg, get Pg');
36
is(C4::Context::db_scheme2dbi('xxx'),   'mysql', 'ask for unsupported DBMS, get mysql');
36
is(C4::Context::db_scheme2dbi('xxx'),   'mysql', 'ask for unsupported DBMS, get mysql');
37
is(C4::Context::db_scheme2dbi(),        'mysql', 'ask for nothing, get mysql');
37
is(C4::Context::db_scheme2dbi(),        'mysql', 'ask for nothing, get mysql');
38
- 
38
39
my $oConnection = C4::Context->Zconn('biblioserver', 0);
40
isnt($oConnection->option('async'), 1, "ZOOM connection is synchronous");
41
$oConnection = C4::Context->Zconn('biblioserver', 1);
42
is($oConnection->option('async'), 1, "ZOOM connection is asynchronous");

Return to bug 11701