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

Fix backwards compatability with existing code. Update the tests accordingly.

Browse source
This commit is contained in:
Chris Nehren 2007-11-05 20:10:42 +00:00
parent 8688604ea4
commit a7c0ff0dec
2 changed files with 43 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Spectre/Workflow.t
View file

@ -27,9 +27,8 @@ use WRE::Spectre;
use POE::Component::IKC::ClientLite;
use JSON;
use Config::JSON;
use Data::Dumper;
use Test::More tests => 20; # increment this value for each test you create
use Test::More tests => 19; # increment this value for each test you create
$|++;
@ -85,7 +84,6 @@ SKIP: {
# then check it for the old style, single site result structure
ok($oneSiteStructure = jsonToObj($oneSiteResult), 'workflow/getJsonStatus for one site returns a proper JSON data structure');
isa_ok($oneSiteStructure, 'HASH', 'workflow/getJsonStatus for one site returns a JSON structure parseable into a Perl hashref');
ok(exists $oneSiteStructure->{$sitename}, "$sitename exists in one site result structure");
}
# Not sure how to handle these; the problem is that there may or may not be
@ -98,7 +96,7 @@ TODO: {
ok(exists $allSitesStructure->{$sitename}{$key}, "$key exists for $sitename in all sites structure");
isa_ok($allSitesStructure->{$sitename}{$key}, 'ARRAY', "$key is an arrayref in the $sitename hash in all sites structure");
ok(exists $oneSiteStructure->{$sitename}{$key}, "$key exists for $sitename in one site structure");
isa_ok($oneSiteStructure->{$sitename}{$key}, 'ARRAY', "$key is an arrayref in the $sitename hash in one site structure");
ok(exists $oneSiteStructure->{$key}, "$key exists for $sitename in one site structure");
isa_ok($oneSiteStructure->{$key}, 'ARRAY', "$key is an arrayref in the $sitename hash in one site structure");
}
}