Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / Members / cardnumber.t

diff --git a/t/Members/cardnumber.t b/t/Members/cardnumber.t
old mode 100644 (file)
new mode 100755 (executable)
index af3a4bb..7fddc7e
--- a/t/Members/cardnumber.t
+++ b/t/Members/cardnumber.t
@@ -1,17 +1,27 @@
 #!/usr/bin/env perl
 
 use Modern::Perl;
-use Test::More tests => 25;
+use Module::Load::Conditional qw/check_install/;
+use Test::More;
+use Test::MockModule;
 
 use t::lib::Mocks;
 
-use Koha::Schema;
-use_ok('C4::Members');
+use_ok('C4::Members', qw( get_cardnumber_length checkcardnumber ));
 
 BEGIN {
-    t::lib::Mocks::mock_dbh;
+    if ( check_install( module => 'Test::DBIx::Class' ) ) {
+        plan tests => 25;
+    } else {
+        plan skip_all => "Need Test::DBIx::Class"
+    }
 }
 
+use Test::DBIx::Class;
+
+my $db = Test::MockModule->new('Koha::Database');
+$db->mock( _new_schema => sub { return Schema(); } );
+
 my $dbh = C4::Context->dbh;
 my $rs = [];