Commit | Line | Data |
73ebcfa8 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | use App::Clifton::ConfigLoader; |
5 | |
6 | my $cl = App::Clifton::ConfigLoader->new; |
7 | |
4e538e48 |
8 | my $conf = $cl->config_from_file('t/test.conf'); |
73ebcfa8 |
9 | |
4e538e48 |
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; |