diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-08-26 15:05:30 +0100 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-08-26 15:05:30 +0100 |
commit | 0e45fa27e4bc857f61b71f6c121a61e08e54cb6a (patch) | |
tree | 7e83c50825819b60a9a73f16c4d4f0a4ff247650 /t/open311/endpoint/spark.t | |
parent | c1178ea85d1879d6533ac09e2a3c813441554b43 (diff) | |
parent | a09c61c807d8d6b50227c9d8aa687f1eb22bad00 (diff) |
Merge branch 'stevenage-open311'
Diffstat (limited to 't/open311/endpoint/spark.t')
-rw-r--r-- | t/open311/endpoint/spark.t | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/t/open311/endpoint/spark.t b/t/open311/endpoint/spark.t deleted file mode 100644 index 015876c94..000000000 --- a/t/open311/endpoint/spark.t +++ /dev/null @@ -1,62 +0,0 @@ -use strict; use warnings; - -use Test::More; - -use Open311::Endpoint; -use Data::Dumper; - -my $endpoint = Open311::Endpoint->new; - -subtest "Spark test" => sub { - my $spark = $endpoint->spark; - my $struct = { - foo => { - service_requests => [ 1,2,3 ], - quxes => [ - { - values => [1,2], - }, - { - values => [3,4], - }, - ], - }, - }; - is_deeply $spark->process_for_json($struct), - { - service_requests => [ 1,2,3 ], - quxes => [ - { - values => [1,2], - }, - { - values => [3,4], - }, - ], - }; - - my $xml_struct = $spark->process_for_xml($struct); - is_deeply $xml_struct, - { - foo => { - service_requests => { request => [ 1,2,3 ] }, - quxes => { - quxe => [ - { - values => { - value => [1,2], - }, - }, - { - values => { - value => [3,4], - }, - }, - ] - }, - } - } - or warn Dumper($xml_struct); -}; - -done_testing; |