diff options
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; |