Skip Menu |
 

This queue is for tickets about the Jabber-SimpleSend CPAN distribution.

Report information
The Basics
Id: 24690
Status: new
Priority: 0/
Queue: Jabber-SimpleSend

People
Owner: Nobody in particular
Requestors: stennie [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: (no value)
Fixed in: (no value)



Subject: syntax error in t/Jabber-SimpleSend.t (Jabber::SimpleSend 0.02)
Download (untitled) / with headers
text/plain 190b
There's a syntax error in the test script (which is mostly commented out, in any case!). Corrected version attached, with the line comments change to a pod comment instead. Cheers, Stephen
Subject: Jabber-SimpleSend.t
Download Jabber-SimpleSend.t
text/x-perl 978b
#!perl use strict; use Test::More tests => 1; BEGIN { use_ok( 'Jabber::SimpleSend',qw( send_jabber_message ) ) } =FOR the_developer_only use Sys::Hostname; use LWP; BEGIN { die "Cannot run tests with test_config" unless (-f 't/test_config'); } open(FILE,'< t/test_config'); my $user = <FILE>; chomp $user; my $password = <FILE>; chomp $password; my $string = hostname().join(':',localtime(time())); send_jabber_message({ user => $user, password => $password, target => 'jsst@jabber.mccarroll.org.uk', subject => 'testing', message => $string}); print STDERR "\nSleeping for 5 seconds to allow the bot to do its work\n"; sleep 5; # give it some my $url = 'http://www.mccarroll.org.uk/~gem/jsst'; my $ua = LWP::UserAgent->new; my $response = $ua->get($url); my $results = {}; ok($response->is_success); ok($response->content =~ m/$string/); =END


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.