delroth/hydra
0
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

JSON -> JSON::MaybeXS

Browse source
This commit is contained in:
Graham Christensen 2021-12-13 16:36:26 -05:00
parent 30a7f068b7
commit fc49a7129d
7 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
t/Controller/Admin/clear-queue-non-current.t
View file

@ -1,7 +1,7 @@
use strict; use strict;
use warnings; use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON::MaybeXS qw(decode_json encode_json);
use File::Copy; use File::Copy;
my %ctx = test_init( my %ctx = test_init(

2
t/Controller/Build/cancel.t
View file

@ -2,7 +2,7 @@ use feature 'unicode_strings';
use strict; use strict;
use warnings; use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON::MaybeXS qw(decode_json encode_json);
my %ctx = test_init(); my %ctx = test_init();

2
t/Controller/Build/restart.t
View file

@ -2,7 +2,7 @@ use feature 'unicode_strings';
use strict; use strict;
use warnings; use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON::MaybeXS qw(decode_json encode_json);
my %ctx = test_init(); my %ctx = test_init();

2
t/Controller/JobsetEval/cancel.t
View file

@ -2,7 +2,7 @@ use feature 'unicode_strings';
use strict; use strict;
use warnings; use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON::MaybeXS qw(decode_json encode_json);
my %ctx = test_init(); my %ctx = test_init();

2
t/Controller/JobsetEval/restart.t
View file

@ -2,7 +2,7 @@ use feature 'unicode_strings';
use strict; use strict;
use warnings; use warnings;
use Setup; use Setup;
use JSON qw(decode_json encode_json); use JSON::MaybeXS qw(decode_json encode_json);
my %ctx = test_init(); my %ctx = test_init();

2
t/Controller/Root/narinfo.t
View file

@ -2,7 +2,7 @@ use strict;
use warnings; use warnings;
use Setup; use Setup;
use Data::Dumper; use Data::Dumper;
use JSON qw(decode_json); use JSON::MaybeXS qw(decode_json);
my %ctx = test_init( my %ctx = test_init(
# Without this, the test will fail because a `file:` store is not treated as a # Without this, the test will fail because a `file:` store is not treated as a
# local store by `isLocalStore` in src/lib/Hydra/Helper/Nix.pm, and any # local store by `isLocalStore` in src/lib/Hydra/Helper/Nix.pm, and any

4
t/plugins/RunCommand/basic.t
View file

@ -1,7 +1,7 @@
use feature 'unicode_strings'; use feature 'unicode_strings';
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON::MaybeXS;
use Setup; use Setup;
my %ctx = test_init( my %ctx = test_init(
@ -42,7 +42,7 @@ my $dat = do {
open(my $json_fh, "<", $filename) open(my $json_fh, "<", $filename)
or die("Can't open \"$filename\": $!\n"); or die("Can't open \"$filename\": $!\n");
local $/; local $/;
my $json = JSON->new; my $json = JSON::MaybeXS->new;
$json->decode(<$json_fh>) $json->decode(<$json_fh>)
}; };