From f04e42ec55db9a14062bec93504825b974310df6 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Wed, 23 Apr 2008 04:05:38 +0000 Subject: [PATCH] Spectre/Workflow.t needed a JSON update, too --- t/Spectre/Workflow.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/Spectre/Workflow.t b/t/Spectre/Workflow.t index aee8fd004..3314266a2 100755 --- a/t/Spectre/Workflow.t +++ b/t/Spectre/Workflow.t @@ -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'); }