[Koha-patches] [PATCH] Bug 11480 Fix invalid assumptions in test

[Colin Campbell]

Tests for Output::JSON made the invalid assumption
that the hash keys of the modules internal structure
will always be returned in the same sequence.
A hash is an unordered structure. as of perl 5.18
this has beem reinforced by random seeding of the
hashing function. See the info in perldelta and
the doc for JSON

This patch changes the tests to be sequence neutral
where the previous test was testing that a new element
was added and an existing one was untouched these have
been separated into individual tests.
Some typos in the messages have been corrected
---
 t/Output_JSONStream.t | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t
index 1d0cf35..13702a6 100755
--- a/t/Output_JSONStream.t
+++ b/t/Output_JSONStream.t
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 
 BEGIN {
         use_ok('C4::Output::JSONStream');
@@ -17,14 +17,16 @@ is($json->output,'{}',"Making sure JSON output is blank just after its created."
 $json->param( issues => [ 'yes!', 'please', 'no' ] );
 is($json->output,'{"issues":["yes!","please","no"]}',"Making sure JSON output has added what we told it to.");
 $json->param( stuff => ['realia'] );
-is($json->output,'{"issues":["yes!","please","no"],"stuff":["realia"]}',"Making sure JSON output has added more params correctly.");
+like($json->output,'/"stuff":\["realia"\]/',"Making sure JSON output has added more params correctly.");
+like($json->output,'/"issues":\["yes!","please","no"\]/',"Making sure existing elements remain in JSON output");
 $json->param( stuff => ['fun','love'] );
-is($json->output,'{"issues":["yes!","please","no"],"stuff":["fun","love"]}',"Making sure JSON output can obverwrite params.");
+like($json->output,'/"stuff":\["fun","love"\]/',"Making sure JSON output can overwrite params.");
+like($json->output,'/"issues":\["yes!","please","no"\]/',"Making non overwitten elements remain in JSON output");
 
 eval{$json->param( die )};
 ok($@,'Dies');
 
 eval{$json->param( die => ['yes','sure','now'])};
-ok(!$@,'Dosent die.');
+ok(!$@,'Does not die.');
 eval{$json->param( die => ['yes','sure','now'], die2 =>)};
 ok($@,'Dies.');
-- 
1.8.4.2