[urisagit/Stem.git] / t / config / test_stem_bug.pl

#!/usr/bin/env perl

use strict ;
use warnings ;
use Test::More tests => 2;
use Test::Exception;

use_ok( 'Stem' );

my @config = (
    {	class 	=> 	'Foobar', 			},
	{	class	=>	'Stem::Console', 	},
) ;


lives_ok( sub { Stem::Conf::configure( \@config ) }, 'load config from data structure' );

package Foobar ;

sub foobar_cmd { return "FOOBAR!!!\n" }
Commit	Line	Data
8029a6ab	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