oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI::Test::waitForAllForks optionally taking a number of seconds to wait;

Browse source 
t/AssetHelper/Copy.t using this as one of its tests; this creates a test failure out of a test suite deadlock for me
This commit is contained in:
Scott Walters 2011-05-02 18:25:21 -04:00
parent 6e12a8f78a
commit ee212a16f3
2 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/AssetHelper/Copy.t
View file

@ -22,6 +22,8 @@ use WebGUI::Asset;
use WebGUI::AssetHelper::Copy;
use WebGUI::Test::Mechanize;
$SIG{HUP} = sub { use Carp; confess "hup"; };
#----------------------------------------------------------------------------
# Init
my $session = WebGUI::Test->session;
@ -30,7 +32,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 2; # Increment this number for each test you create
plan tests => 3; # Increment this number for each test you create
#----------------------------------------------------------------------------
# put your tests here
@ -51,9 +53,12 @@ my $root = WebGUI::Asset->getRoot($session);
},
'AssetHelper/Copy forks a process'
);
addToCleanup( 'WebGUI::Fork' => $output->{forkId} );
}
WebGUI::Test->waitForAllForks;
ok(WebGUI::Test->waitForAllForks(10), "Forks finished");
$session->cache->clear;
my $clippies = $root->getLineage(["descendants"], {statesToInclude => [qw{clipboard clipboard-limbo}], returnObjects => 1,});
is @{ $clippies }, 1, '... only copied 1 asset to the clipboard, no children';