edge_test.t #1

use P4::test;

# Create an edge server
my ( $edge, $e4 ) = newReplica RPL_TYPE => 'edge-server' otherOpts => { 'track' => 1, 'server' => 4 };

`p4 configure set track=1`;
`p4 configure set server=4`;

`p4 client -o | p4 client -i`;
# Files less than minFileSize or greater
write_file 'some_file', 'some content';
`p4 add *`;
`p4 submit -d foo`;

my $edgeRoot = $edge->{ serverRoot };
$msg = read_file "$edgeRoot/track.log";
like $msg , qr /pull/;