1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!perl -T
use Test::More tests => 1;
#use Test::More 'no_plan';
use lib 't';
use TestConfig;
login_myspace or die "Login Failed - can't run tests";
my $myspace = $CONFIG->{acct1}->{myspace}; # For sanity
my $ident = "wmyw" . int(rand(100000)) . "wmyw";
SKIP: {
skip "Not logged in", 1 unless $CONFIG->{login};
my $testing=1; $testing = 0 if ( $CONFIG->{fulltest} );
my $result = $myspace->post_blog(
subject => "Testing $ident",
message => "Hi there, sorry if you're reading this. $ident",
testing => $testing, # Skips confirmation so blog doesn't post.
);
if ( $myspace->error ) {
warn $myspace->error . "\n";
warn "\n\n".$myspace->current_page->content;
}
ok( $result, "post_blog returns positive success code" );
}
|
