1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!perl -T
use Test::More tests => 2;
#use Test::More 'no_plan';
use lib 't';
use TestConfig;
login_myspace or die "Login Failed - can't run tests";
SKIP: {
skip "Not logged in", 2 unless $CONFIG->{login};
# Make sure we've got two accounts and didn't accidentally use the
# same one twice.
cmp_ok( $CONFIG->{'acct1'}->{'myspace'}->my_friend_id, '!=',
$CONFIG->{'acct2'}->{'friend_id'}, 'Verify friend ID' );
# Check friendID method.
cmp_ok( $CONFIG->{'acct1'}->{'myspace'}->my_friend_id, '==',
$CONFIG->{'acct1'}->{'friend_id'}, 'Verify friend ID' );
}
|
