perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
1use v5.34;
2use warnings;
3
4use Config ();
5use FindBin qw($Bin);
6use File::Spec;
7use Test::More;
8
9BEGIN {
10 require lib;
11 my $root = File::Spec->rel2abs(File::Spec->catdir($Bin, '..'));
12 lib->import(
13 File::Spec->catdir($root, 'lib'),
14 File::Spec->catdir($root, 'local', 'lib', 'perl5'),
15 File::Spec->catdir($root, 'local', 'lib', 'perl5', $Config::Config{archname}),
16 );
17}
18
19plan skip_all => 'set PERLSKY_RUN_REFERENCE_DIFF=1 to run the official PLC differential harness'
20 unless $ENV{PERLSKY_RUN_REFERENCE_DIFF};
21
22my $root = File::Spec->rel2abs(File::Spec->catdir($Bin, '..'));
23my $script = File::Spec->catfile($root, 'script', 'differential-validate');
24
25local $ENV{PERLSKY_DIFF_ACCOUNT_DID_METHOD} = 'did:plc';
26my $output = qx{$^X $script 2>&1};
27my $code = $? >> 8;
28
29diag($output) if $code;
30is($code, 0, 'reference PLC differential harness exits successfully');
31
32done_testing;