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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#!perl -T
use Test::More tests => 1;
#use Test::More 'no_plan';
use lib 't';
use TestConfig;
use WWW::Myspace::Comment;
login_myspace or die "Login Failed - can't run tests";
SKIP: {
skip "Not logged in", 1 unless $CONFIG->{login};
my $myspace1 = $CONFIG->{'acct1'}->{'myspace'};
my $myspace2 = $CONFIG->{'acct2'}->{'myspace'};
my $comment = new WWW::Myspace::Comment( $myspace1 );
# Generate "random" seed.
my $ident = "wmyw" . int(rand(100000)) . "wmyw";
# Post a comment. We use post_all because it tests two
# methods at once.
$comment->noisy(0);
$comment->ignore_duplicates(1);
$comment->cache_file( "comexcl" );
$comment->delay_time(0);
warn "Posting comment with ident $ident\n";
my $status =
$comment->post_all( 'Just thought I\'d comment you.\n\n- Perl\n'.${ident},
$CONFIG->{'acct2'}->{'friend_id'} );
die $myspace1->error if $myspace1->error;
SKIP: {
skip "Got CAPTCHA, skipping post_all comment test\n", 1 if
( $status eq 'CAPTCHA' );
# Now see if we posted that comment.
my $res = $myspace1->get_profile( $CONFIG->{'acct2'}->{'friend_id'} );
if ( $res->decoded_content =~ /${ident}/ ) {
pass( 'post_all posted comment' );
} else {
fail( 'post_all posted comment' );
}
}
# Test commenting all of Perl 2's friends (checks defaults)
#my $comment2 = new WWW::Myspace::Comment( $myspace2 );
#$comment2->noisy(0);
#$comment2->ignore_duplicates(1);
#$comment2->cache_file( "comexcl" );
#$comment2->delay_time(0);
#$res = $comment2->post_comments( 'Just posting a test comment - thanks for helping!\n\n- Perl 2\n'.${ident} );
#cmp_ok( $res, 'eq', 'DONE', 'Post Perl 2 friends' );
$comment->reset_exclusions('all');
}
|
