t/01-login.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4 require 't/lib/test_account.pl';
   5
   6 my($login, $password) = test_account_or_skip;
   7 plan tests => 2;
   8
   9 use_ok 'Net::GlobalPOPs::MediaServicesAPI';
  10
  11 my $gp = Net::GlobalPOPs::MediaServicesAPI->new('login'    => $login,
  12                                                 'password' => $password );
  13
  14 #eww.  what is the right, TEST_VERBOSE-aware way to do this
  15 warn Net::GlobalPOPs::MediaServicesAPI->errstr unless $gp;
  16
  17 ok( $gp, 'Login sucessful' );