We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 63c21a9 commit ef757e0Copy full SHA for ef757e0
t/03-test_connectivity.t
@@ -4,6 +4,7 @@ BEGIN {
4
use Test::More;
5
6
plan skip_all => "\$ENV{AUTHOR_TESTING} required for these tests" if(!$ENV{AUTHOR_TESTING});
7
+ plan skip_all => "t/test_config.cfg required for connectivity tests" if(! -f 't/test_config.cfg');
8
}
9
10
use Net::Jabber::Bot;
@@ -15,8 +16,7 @@ plan tests => 7;
15
16
# Load config file (simple INI parser, replaces Config::Std).
17
my $config_file = 't/test_config.cfg';
18
my %config_file_hash;
-{
19
- open my $fh, '<', $config_file or die "Can't open $config_file: $!";
+if (open my $fh, '<', $config_file) {
20
my $section = '';
21
while (my $line = <$fh>) {
22
chomp $line;
0 commit comments