[svn:dbi] r15588 - dbi/trunk/t

[hmb...@cvs.perl.org]

Author: hmbrand
Date: Mon Mar 25 10:37:27 2013
New Revision: 15588

Modified:
dbi/trunk/t/90sql_type_cast.t

Log:
Ignore space issues of JSON formatting

The tests are about quotation of the value. Strip all leading/trailing
whitespace that is not part of the test, treating '[99]' identical to
' [ 99 ] ' or '[99 ]'

reason is that the layout is not part of the test, and formatters are
free to add/remove leading/trailing whitespace

These tests are only run if JSON::XS is installed.

Modified: dbi/trunk/t/90sql_type_cast.t
==============================================================================
--- dbi/trunk/t/90sql_type_cast.t (original)
+++ dbi/trunk/t/90sql_type_cast.t Mon Mar 25 10:37:27 2013
@@ -118,6 +118,11 @@

my $json = JSON::XS->new->encode([$val]);
#diag(neat($val), ",", $json);
+ # This test is about quotation of the value, not about the
+ # style/formatting of JSON. Strip all leading/trailing
+ # whitespace that is not part of the test, treating '[99]'
+ # identical to ' [ 99 ] ' or '[99 ]'
+ $json =~ s{^\s*\[\s*(.*?)\s*\]\s*$}{[$1]};
is($json, $test->[5], "json $test->[0]");
};
}