Index: third_party/JSON/JSON-2.59/t/e90_misc.t |
diff --git a/third_party/JSON/JSON-2.59/t/e90_misc.t b/third_party/JSON/JSON-2.59/t/e90_misc.t |
new file mode 100644 |
index 0000000000000000000000000000000000000000..a5a68182dcbd75e117117ccef28d636fa21b9f92 |
--- /dev/null |
+++ b/third_party/JSON/JSON-2.59/t/e90_misc.t |
@@ -0,0 +1,18 @@ |
+ |
+use strict; |
+use Test::More tests => 4; |
+ |
+BEGIN { |
+ $ENV{ PERL_JSON_BACKEND } = $ARGV[0] || 'JSON::backportPP'; |
+} |
+ |
+use JSON; |
+ |
+# reported by https://rt.cpan.org/Public/Bug/Display.html?id=68359 |
+ |
+eval { JSON->to_json( 5, { allow_nonref => 1 } ) }; |
+ok($@); |
+ |
+is( q{"5"}, JSON::to_json( "5", { allow_nonref => 1 } ) ); |
+is( q{5}, JSON::to_json( 5, { allow_nonref => 1 } ) ); |
+is( q{"JSON"}, JSON::to_json( 'JSON', { allow_nonref => 1 } ) ); |