use Test::More tests => 7;
BEGIN { use_ok( 'P4' ); }
# Load test utils
unshift( @INC, "." );
unshift( @INC, "t" );
require_ok( "p4test" );
my $test = new P4::Test;
ok( defined( $test ) );
my $p4 = $test->InitClient();
ok( defined( $p4 ) );
ok( !$p4->IsConnected() );
ok( $p4->Connect() );
ok( $p4->IsConnected() );
| # | Change | User | Description | Committed | |
|---|---|---|---|---|---|
| #1 | 7615 | Robert Cowham | Bring to main | ||
| //guest/robert_cowham/perforce/API/p4perl/p4perl-2007.3/t/04-connect.t | |||||
| #1 | 7614 | Robert Cowham | P4Perl 2007.3 | ||