4 require 't/lib/test_account.pl';
6 my($login, $password) = test_account_or_skip;
9 use_ok 'Net::VoIP_Innovations';
11 my $gp = Net::VoIP_Innovations->new('login' => $login,
12 'password' => $password );
14 #eww. what is the right, TEST_VERBOSE-aware way to do this
15 warn Net::VoIP_Innovations->errstr unless $gp;
17 ok( $gp, 'Login sucessful' );