view release on metacpan or  search on metacpan

t/100_config_no_network.t  view on Meta::CPAN

use strict;
use lib "lib";
use Test::More (tests => 1);
use App::Horris;

local @ARGV = qw(--configfile t/100_config_no_network.conf);
my $app = App::Horris->new_with_options();

eval {
    my $horris = Horris->new({ config => $app->config });
	$horris->run;
};
like($@, qr/No network specified for connection 'test'/);

t/101_config_override_network.t  view on Meta::CPAN

use strict;
use lib "lib";
use Test::More (tests => 2);
use App::Horris;

local @ARGV = qw(--configfile t/101_config_override_network.conf);
my $app = App::Horris->new_with_options();

my $horris = Horris->new({ config => $app->config });

is( $horris->connections->[0]->nickname, 'overridden' );
is( $horris->connections->[0]->username, 'overridden' );