t/01-login.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -w

use Test::More;
require 't/lib/test_account.pl';

my($login, $password) = test_account_or_skip;
plan tests => 2;

use_ok 'Net::GlobalPOPs::MediaServicesAPI';

my $gp = Net::GlobalPOPs::MediaServicesAPI->new('login'    => $login,
                                                'password' => $password );

#eww.  what is the right, TEST_VERBOSE-aware way to do this
warn Net::GlobalPOPs::MediaServicesAPI->errstr unless $gp;

ok( $gp, 'Login sucessful' );