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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!perl -T
use strict;
use warnings;
use Test::More;
use WWW::Myspace;
plan tests => 18;
my $myspace = WWW::Myspace->new( auto_login => 0);
my $choclair = 78557157;
my $private_id = 13098613;
my $invalid_id = 140854226;
can_ok( $myspace, '_regex' );
can_ok( $myspace, '_apply_regex' );
can_ok( $myspace, 'is_private' );
can_ok( $myspace, 'is_invalid' );
foreach my $regex ('is_private', 'is_invalid', 'friend_id' ) {
ok ( $myspace->_regex( $regex ), "regex returned for $regex" );
}
cmp_ok ( $myspace->friend_url(13161064), 'eq', 'vilerichard', "returns correct friend_url");
ok ( $myspace->friend_id( 'http://www.myspace.com/tennysonbrooke78'), "gets friend_id on private profile");
my $is_private = $myspace->is_private(225973002);
if ( !$is_private ) {
pass("pimped profile not flagged as private");
}
else {
diag("this is not a profile we have control over. there may not actually be a problem here.")
}
# funky type of private profile page
ok ( $myspace->is_private( friend_id => 12471079 ), "finds corner cases in private profiles" );
ok ( $myspace->is_invalid( friend_id => $invalid_id ), "this profile disabled");
my $res = $myspace->get_profile( $choclair );
ok( $res, 'fetched Choclair page');
my $friend_id_regex = $myspace->_regex( 'friend_id' );
my $friend_id = undef;
if ( $res->decoded_content =~ $friend_id_regex ) {
$friend_id = $1;
}
cmp_ok ($friend_id, '==', $choclair, "friend_id regex returned friend_id");
ok ( !$myspace->is_invalid( page => $res ), "choclair page not disabled");
my $public = $myspace->is_private( page => $res );
ok ( !$public, "choclair profile isn't private");
my $private = $myspace->is_private( friend_id => $private_id );
unless ( $private ) {
diag("there might be a problem with the is_private method");
}
# reset the page in memory
$myspace->get_profile( $choclair );
my $friend_id_myspace = $myspace->friend_id;
cmp_ok ($friend_id_myspace, '==', $choclair, "correct friend_id returned by friend_id method");
my $friend_from_regex = $myspace->_apply_regex(
regex => 'friend_id',
page => $res,
);
cmp_ok ($friend_from_regex, '==', $choclair, "friend_id returned by _apply_regex");
|
