t/helper/mapping.t

   1 use Test::More tests => 12;
   2
   3 use_ok 'SL::DB::Helper::ALL';
   4 use_ok 'SL::DB::Helper::Mappings', qw(db);
   5
   6 is db('part'), 'SL::DB::Part';
   7 is db('parts'), 'SL::DB::Manager::Part';
   8
   9 is db('order'), 'SL::DB::Order';
  10 is db('orders'), 'SL::DB::Manager::Order';
  11
  12 is db('gl'), 'SL::DB::GLTransaction';
  13 is db('gls'), 'SL::DB::Manager::GLTransaction';
  14
  15 is db('ar'), 'SL::DB::Invoice';
  16 is db('ars'), 'SL::DB::Manager::Invoice';
  17
  18 is db('Unit'), 'SL::DB::Unit';
  19 is db('Units'), 'SL::DB::Manager::Unit';