Commit | Line | Data |
---|---|---|
456e158d | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strict ; | |
4 | use warnings ; | |
5 | use Test::More tests => 2; | |
6 | use Test::Exception; | |
7 | ||
8 | use_ok( 'Stem' ); | |
9 | ||
10 | my @config = ( | |
11 | { class => 'Foobar', }, | |
12 | { class => 'Stem::Console', }, | |
13 | ) ; | |
14 | ||
15 | ||
16 | lives_ok( sub { Stem::Conf::configure( \@config ) }, 'load config from data structure' ); | |
17 | ||
18 | package Foobar ; | |
19 | ||
20 | sub foobar_cmd { return "FOOBAR!!!\n" } | |
21 | ||
22 |