@@ -94,11 +94,11 @@ Net::Jabber::Bot - Automated Bot creation with safeties =head1 VERSION -Version 2.1.2 +Version 2.1.3 =cut -our $VERSION = '2.1.2'; +our $VERSION = '2.1.3'; =head1 SYNOPSIS lib/Net/Jabber/Bot.pm @@ -1,45 +1,52 @@ #!perl -T -use Test::More tests => 7; -use Test::NoWarnings; +BEGIN { + use Test::More; + + # Author tests - requires Config::Std + plan skip_all => "\$ENV{AUTHOR} required for these tests" if(!defined $ENV{AUTHOR}); + eval "use Config::Std"; + plan skip_all => "Optional Module Config::Std Required for these tests" if($@); +} + use Net::Jabber::Bot; use Log::Log4perl qw(:easy); - -SKIP:{ - skip "Set 'AUTHOR' and have a valid t/test_Config.cfg file", 6 unless(defined $ENV{AUTHOR}); - - - # Load config file. - use Config::Std; # Uses read_config to pull info from a config files. enhanced INI format. - my $config_file = 't/test_config.cfg'; - my %config_file_hash; - ok((read_config($config_file => %config_file_hash)), "Load config file"); - - my $alias = 'make_test_bot'; - my $loop_sleep_time = 5; - my $server_info_timeout = 5; - - my %forums_and_responses; - $forums_and_responses{$config_file_hash{'main'}{'test_forum1'}} = ["jbot:", ""]; - $forums_and_responses{$config_file_hash{'main'}{'test_forum2'}} = ["notjbot:"]; - - my $bot = Net::Jabber::Bot->new( - server => $config_file_hash{'main'}{'server'} - , conference_server => $config_file_hash{'main'}{'conference'} - , port => $config_file_hash{'main'}{'port'} - , username => $config_file_hash{'main'}{'username'} - , password => $config_file_hash{'main'}{'password'} - , alias => $alias - , forums_and_responses => \%forums_and_responses +use Test::NoWarnings; # This breaks the skips in CPAN. +# Otherwise it's 7 tests +plan tests => 7; + +# Load config file. +use Config::Std; # Uses read_config to pull info from a config files. enhanced INI format. +my $config_file = 't/test_config.cfg'; +my %config_file_hash; +ok((read_config($config_file => %config_file_hash)), "Load config file") + or die("Can't test without config file $config_file"); + +my $alias = 'make_test_bot'; +my $loop_sleep_time = 5; +my $server_info_timeout = 5; + +my %forums_and_responses; +$forums_and_responses{$config_file_hash{'main'}{'test_forum1'}} = ["jbot:", ""]; +$forums_and_responses{$config_file_hash{'main'}{'test_forum2'}} = ["notjbot:"]; + +my $bot = Net::Jabber::Bot->new( + server => $config_file_hash{'main'}{'server'} + , conference_server => $config_file_hash{'main'}{'conference'} + , port => $config_file_hash{'main'}{'port'} + , username => $config_file_hash{'main'}{'username'} + , password => $config_file_hash{'main'}{'password'} + , alias => $alias + , forums_and_responses => \%forums_and_responses ); - isa_ok($bot, "Net::Jabber::Bot"); +isa_ok($bot, "Net::Jabber::Bot"); + +ok(defined $bot->Process(), "Bot connected to server"); +sleep 5; +ok($bot->Disconnect() > 0, "Bot successfully disconnects"); # Disconnects +is($bot->Disconnect(), undef, "Bot fails to disconnect cause it already is"); # If already disconnected, we get a negative number + +eval{Net::Jabber::Bot->Disconnect()}; +like($@, qr/^\QCan't use string ("Net::Jabber::Bot") as a HASH ref while "strict refs" in use\E/, "Error when trying to disconnect not as an object"); - ok(defined $bot->Process(), "Bot connected to server"); - sleep 5; - ok($bot->Disconnect() > 0, "Bot successfully disconnects"); # Disconnects - is($bot->Disconnect(), undef, "Bot fails to disconnect cause it already is"); # If already disconnected, we get a negative number - - eval{Net::Jabber::Bot->Disconnect()}; - like($@, qr/^\QCan't use string ("Net::Jabber::Bot") as a HASH ref while "strict refs" in use\E/, "Error when trying to disconnect not as an object"); -} t/03-test_connectivity.t 34f4cfe280ff7d699a76f486de8479391b54348e todd.e.rinaldo todd.e.rinaldo@0a4183e2-4043-0410-8c03-cd5d52198443 http://github.com/toddr/perl-net-jabber-bot/commit/efe7486fc3f281830fe553cc531f7b55ab1d6f0c efe7486fc3f281830fe553cc531f7b55ab1d6f0c 2009-06-02T16:30:26-07:00 2009-06-02T16:30:26-07:00 t/03-test_connectivity.t failing if Config::Std not available on host 288bef2f219364ff5e1809aed312debd44697e09 todd.e.rinaldo todd.e.rinaldo@0a4183e2-4043-0410-8c03-cd5d52198443