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

Spectre/Workflow.t needed a JSON update, too

Browse source
This commit is contained in:
Colin Kuskie 2008-04-23 04:05:38 +00:00
parent 16eaf6d434
commit f04e42ec55
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Spectre/Workflow.t
View file

@ -88,12 +88,12 @@ SKIP: {
undef $remote;
# first test the data structure returned for all sites
ok($allSitesStructure = jsonToObj($allSitesResult), 'workflow/getJsonStatus for all sites returns a proper JSON data structure');
ok($allSitesStructure = from_json($allSitesResult), 'workflow/getJsonStatus for all sites returns a proper JSON data structure');
isa_ok($allSitesStructure, 'HASH', 'workflow/getJsonStatus for all sites returns a JSON structure parseable into a Perl hashref');
ok(exists $allSitesStructure->{$sitename}, "$sitename exists in all sites result structure");
# 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');
ok($oneSiteStructure = from_json($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');
}