Blame t/00_load_backport_pp.t
|
Packit |
a557cb |
use Test::More;
|
|
Packit |
a557cb |
use strict;
|
|
Packit |
a557cb |
BEGIN { plan tests => 5 };
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
BEGIN {
|
|
Packit |
a557cb |
use_ok('JSON');
|
|
Packit |
a557cb |
}
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
ok( exists $INC{ 'JSON/backportPP.pm' }, 'load backportPP' );
|
|
Packit |
a557cb |
ok( ! exists $INC{ 'JSON/PP.pm' }, q/didn't load PP/ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
ok( JSON->backend->isa('JSON::PP') );
|
|
Packit |
a557cb |
ok( JSON->backend->is_pp );
|