t/load_config.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use App::Clifton::ConfigLoader;
   5
   6 my $cl = App::Clifton::ConfigLoader->new;
   7
   8 my $conf = $cl->config_from_file('t/test.conf');
   9
  10 ok(
  11   my $h = $conf->bridges->get({ name => 'example' }),
  12   'example bridge exists'
  13 );
  14
  15 is($h->jabber->server, 'example.org', 'property on bridge ok');
  16
  17 ok(
  18   my $u = $conf->users->get({ name => 'mst@example.org' }),
  19   'example user exists'
  20 );
  21
  22 is_deeply($u->allow, [ 'example' ], 'property on user ok');
  23
  24 done_testing;