t/db_dependent/lib/KohaTest/Context.pm

   1 package KohaTest::Context;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Context;
  10 sub testing_class { 'C4::Context' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw(
  16                         AUTOLOAD
  17                         boolean_preference
  18                         config
  19                         dbh
  20                         db_scheme2dbi
  21                         get_shelves_userenv
  22                         get_versions
  23                         import
  24                         KOHAVERSION
  25                         marcfromkohafield
  26                         ModZebrations
  27                         new
  28                         new_dbh
  29                         preference
  30                         read_config_file
  31                         restore_context
  32                         restore_dbh
  33                         set_context
  34                         set_dbh
  35                         set_shelves_userenv
  36                         set_userenv
  37                         stopwords
  38                         userenv
  39                         Zconn
  40                         zebraconfig
  41                         _common_config
  42                         _new_dbh
  43                         _new_marcfromkohafield
  44                         _new_stopwords
  45                         _new_userenv
  46                         _new_Zconn
  47                         _unset_userenv
  48                 );
  49
  50     can_ok( $self->testing_class, @methods );
  51 }
  52
  53 1;
  54