t/Context.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use DBI;
   5 use Test::More tests => 3;
   6 use Test::MockModule;
   7
   8 BEGIN {
   9     use_ok('C4::Context');
  10 }
  11
  12 my $oConnection = C4::Context->Zconn('biblioserver', 0);
  13 isnt($oConnection->option('async'), 1, "ZOOM connection is synchronous");
  14 $oConnection = C4::Context->Zconn('biblioserver', 1);
  15 is($oConnection->option('async'), 1, "ZOOM connection is asynchronous");