99-cleanup.t #2 

use Test::More tests => 3;

# Load test utils
unshift( @INC, "." );
unshift( @INC, "t" );
require_ok( "p4test" );

my $test = P4::Test->new();
ok( defined( $test ) );
if( defined $ENV{ 'KEEPTESTS' } )
{
    ok( 1 );
}
else
{
    ok( $test->CleanupTestTree() );
}
# Change User Description Committed
#2 19592 jmash Convert uses of indirect object construction syntax to use direct syntax in the test modules.
#1 19582 jmash Initial fork of P4Perl.
//guest/perforce_software/p4perl/main/t/99-cleanup.t
#1 15920 Matt Attaway Move p4perl files into the main directory
//guest/perforce_software/p4perl/t/99-cleanup.t
#1 8486 Paul Allen Initial population of P4PERL

from:
   //depot/main/p4-perl/...@565514
   //depot/main/p4-doc/user/p4perlnotes.txt@565514