16-streams.t #2

use Test::More tests => 7;
BEGIN { use_ok( 'P4' ); }                       ## test 1

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

my $test = P4::Test->new();
my $p4 = $test->InitClient();
$p4->SetStreams( 1 );
ok( $p4->IsStreams() );                        ## test 3
$p4->Connect();
ok( $p4->IsConnected() );                      ## test 4

my $spec = $p4->FetchDepot("streams");
$spec->{'Type'} = "stream";
$p4->SaveDepot($spec);

my @depots = $p4->RunDepots();
ok( scalar( @depots ) == 2 );                  ## test 5

my $stream = $p4->FetchStream("//streams/MAIN");
$stream->{'Type'} = "mainline";
$p4->SaveDepot($stream);

## look for 'extraTag' field names like 'firmerThanParent'
ok( $stream->{'firmerThanParent'} );           ## test 6

$p4->SetStreams( 0 );
ok( !$p4->IsStreams() );                       ## test 7

$p4->Disconnect();