From 6c5fcdfbe3594b7311ab0bea417fc68f2eb9337d Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 14 Oct 2018 22:49:10 +0200 Subject: Revert "Bug 1495741 - memory issues: Avoid copying stuff in the webservice layer so much" Fix an "Unexpected Error" message when viewing a bug. This reverts commit 5688d0e712b85bc892ce405a1b79e3571f6d6d0f. Signed-off-by: Florian Pritz --- t/json-boxes.t | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 t/json-boxes.t (limited to 't/json-boxes.t') diff --git a/t/json-boxes.t b/t/json-boxes.t deleted file mode 100644 index 0fca3d997..000000000 --- a/t/json-boxes.t +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/perl -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This Source Code Form is "Incompatible With Secondary Licenses", as -# defined by the Mozilla Public License, v. 2.0. -use strict; -use warnings; -use 5.10.1; -use lib qw( . lib local/lib/perl5 ); - -use Scalar::Util qw(weaken); -use Mojo::JSON qw(encode_json); -use Scalar::Util qw(refaddr); -use Test2::V0; - -use ok 'Bugzilla::WebService::JSON'; - -my $json = Bugzilla::WebService::JSON->new; -my $ref = {foo => 1}; -is(refaddr $json->decode($json->encode($ref)), refaddr $ref); - -my $box = $json->encode($ref); - -is($json->decode(q[{"foo":1}]), {foo => 1}); -is($json->decode($box), {foo => 1}); - -is "$box", $box->label; - -$box->encode; - -is encode_json([$box]), encode_json([encode_json($box->value)]); -is "$box", q[{"foo":1}]; - -done_testing; -- cgit v1.2.3-24-g4f1b