Permalink
Browse files

renamed PPDev to PP in t/* files

  • Loading branch information...
1 parent b89fe9f commit dd265523857152a34f85be62463a0792e07eb712 @makamaka committed Dec 20, 2010
View
2 t/000_load.t
@@ -3,6 +3,6 @@ END {print "not ok 1\n" unless $loaded;}
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
$loaded = 1;
print "ok 1\n";
View
6 t/001_utf8.t
@@ -1,4 +1,4 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
@@ -13,14 +13,14 @@ BEGIN {
use utf8;
-use JSON::PPdev;
+use JSON::PP;
ok (JSON::PP->new->allow_nonref (1)->utf8 (1)->encode ("ü") eq "\"\xc3\xbc\"");
ok (JSON::PP->new->allow_nonref (1)->encode ("ü") eq "\"ü\"");
SKIP: {
- skip "UNICODE handling is disabale.", 7 unless $JSON::PPdev::can_handle_UTF16_and_utf8;
+ skip "UNICODE handling is disabale.", 7 unless $JSON::PP::can_handle_UTF16_and_utf8;
ok (JSON::PP->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000) eq '"\u8000"');
ok (JSON::PP->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402) eq "\"\\ud801\\udc02\"\n");
View
4 t/002_error.t
@@ -1,4 +1,4 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
@@ -12,7 +12,7 @@ BEGIN {
}
use utf8;
-use JSON::PPdev;
+use JSON::PP;
eval { JSON::PP->new->encode ([\-1]) }; ok $@ =~ /cannot encode reference/;
View
4 t/003_types.t
@@ -1,12 +1,12 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
BEGIN { plan tests => 76 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
ok (!defined JSON::PP->new->allow_nonref (1)->decode ('null'));
View
6 t/006_pc_pretty.t
@@ -1,15 +1,15 @@
#! perl
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
BEGIN { plan tests => 9 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my ($js,$obj,$json);
my $pc = new JSON::PP;
View
6 t/007_pc_esc.t
@@ -2,8 +2,8 @@
# このファイルのエンコーディングはUTF-8
#
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
@@ -19,7 +19,7 @@ BEGIN {
use utf8;
-use JSON::PPdev;
+use JSON::PP;
#########################
my ($js,$obj,$str);
View
8 t/008_pc_base.t
@@ -1,14 +1,14 @@
use Test::More;
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
BEGIN { plan tests => 20 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my ($js,$obj);
@@ -91,7 +91,7 @@ like($@, qr/JSON can only/i, 'invalid value (coderef)');
#$obj = { foo => bless {}, "Hoge" };
#eval q{ $js = $pc->encode($obj) };
-#like($@, qr/JSON::PPdev can only/i, 'invalid value (blessd object)');
+#like($@, qr/JSON::PP can only/i, 'invalid value (blessd object)');
$obj = { foo => \$js };
eval q{ $js = $pc->encode($obj) };
View
6 t/009_pc_extra_number.t
@@ -1,13 +1,13 @@
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
BEGIN { plan tests => 6 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
View
6 t/010_pc_keysort.t
@@ -1,13 +1,13 @@
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
BEGIN { plan tests => 1 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my ($js,$obj);
View
6 t/011_pc_expo.t
@@ -1,13 +1,13 @@
-# copied over from JSON::PPdev::PC and modified to use JSON::PPdev
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::PC and modified to use JSON::PP
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
BEGIN { plan tests => 8 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my ($js,$obj);
View
4 t/012_blessed.t
@@ -1,12 +1,12 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
BEGIN { plan tests => 16 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my $o1 = bless { a => 3 }, "XX";
View
2 t/013_limit.t
@@ -5,7 +5,7 @@ BEGIN { plan tests => 11 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my $def = 512;
View
6 t/014_latin1.t
@@ -1,4 +1,4 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
@@ -11,10 +11,10 @@ BEGIN {
use _unicode_handling;
}
-use JSON::PPdev;
+use JSON::PP;
SKIP: {
- skip "UNICODE handling is disabale.", 4 unless $JSON::PPdev::can_handle_UTF16_and_utf8;
+ skip "UNICODE handling is disabale.", 4 unless $JSON::PP::can_handle_UTF16_and_utf8;
my $xs = JSON::PP->new->latin1->allow_nonref;
View
4 t/015_prefix.t
@@ -1,9 +1,9 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
BEGIN { $| = 1; print "1..4\n"; }
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my $xs = JSON::PP->new->allow_nonref;
View
4 t/016_tied.t
@@ -1,12 +1,12 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
use Test::More;
BEGIN { plan tests => 2 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
use Tie::Hash;
use Tie::Array;
View
4 t/017_relaxed.t
@@ -1,4 +1,4 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
@@ -13,7 +13,7 @@ BEGIN {
}
use utf8;
-use JSON::PPdev;
+use JSON::PP;
my $json = JSON::PP->new->relaxed;
View
14 t/018_json_checker.t
@@ -1,9 +1,9 @@
#! perl
-# use the testsuite from http://www.json.org/JSON::PPdev_checker/
+# use the testsuite from http://www.json.org/JSON::PP_checker/
# except for fail18.json, as we do not support a depth of 20 (but 16 and 32).
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
#no warnings;
@@ -12,7 +12,7 @@ use Test::More;
BEGIN { plan tests => 39 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
my $json = JSON::PP->new->utf8->max_depth(32)->canonical;
@@ -36,7 +36,7 @@ for (;;) {
}
__DATA__
-"A JSON::PPdev payload should be an object or array, not a string."
+"A JSON::PP payload should be an object or array, not a string."
# fail1.json
{"Extra value after close": true} "misplaced quoted value"
# fail10.json
@@ -105,7 +105,7 @@ break"]
{"Extra comma": true,}
# fail9.json
[
- "JSON::PPdev Test Pattern pass1",
+ "JSON::PP Test Pattern pass1",
{"object with 1 member":["array with 1 element"]},
{},
[],
@@ -138,7 +138,7 @@ break"]
"array":[ ],
"object":{ },
"address": "50 St. James Street",
- "url": "http://www.JSON::PPdev.org/",
+ "url": "http://www.JSON::PP.org/",
"comment": "// /* <!-- --",
"# -- --> */": " ",
" s p a c e d " :[1,2 , 3
@@ -166,7 +166,7 @@ break"]
[[[[[[[[[[[[[[[[[[["Not too deep"]]]]]]]]]]]]]]]]]]]
# pass2.json
{
- "JSON::PPdev Test Pattern pass3": {
+ "JSON::PP Test Pattern pass3": {
"The outermost value": "must be an object or array.",
"In this test": "It is an object."
}
View
4 t/019_incr.t
@@ -1,6 +1,6 @@
#!/usr/bin/perl -w
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use strict;
@@ -9,7 +9,7 @@ BEGIN { plan tests => 697 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
if ( $] >= 5.006 ) {
View
2 t/020_unknown.t
@@ -8,7 +8,7 @@ BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
use strict;
-use JSON::PPdev;
+use JSON::PP;
my $json = JSON::PP->new;
View
2 t/021_evans_bugrep.t
@@ -11,7 +11,7 @@ BEGIN {
}
-use JSON::PPdev;
+use JSON::PP;
my $data = ["\x{3042}\x{3044}\x{3046}\x{3048}\x{304a}",
View
2 t/022_comment_at_eof.t
@@ -6,7 +6,7 @@ use Test::More tests => 13;
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
use Data::Dumper qw( Dumper );
View
6 t/099_binary.t
@@ -1,4 +1,4 @@
-# copied over from JSON::PPdev::XS and modified to use JSON::PPdev
+# copied over from JSON::PP::XS and modified to use JSON::PP
use Test::More;
use strict;
@@ -11,10 +11,10 @@ BEGIN {
use _unicode_handling;
}
-use JSON::PPdev;
+use JSON::PP;
SKIP: {
- skip "UNICODE handling is disabale.", 2432 unless $JSON::PPdev::can_handle_UTF16_and_utf8;
+ skip "UNICODE handling is disabale.", 2432 unless $JSON::PP::can_handle_UTF16_and_utf8;
sub test($) {
my $js;
View
2 t/104_sortby.t
@@ -3,7 +3,7 @@ use Test::More;
use strict;
BEGIN { plan tests => 3 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my ($js,$obj);
View
2 t/105_esc_slash.t
@@ -3,7 +3,7 @@ use Test::More;
use strict;
BEGIN { plan tests => 2 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my $json = JSON::PP->new->allow_nonref;
View
2 t/106_allow_barekey.t
@@ -3,7 +3,7 @@ use Test::More;
use strict;
BEGIN { plan tests => 2 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my $json = JSON::PP->new->allow_nonref;
View
2 t/107_allow_singlequote.t
@@ -3,7 +3,7 @@ use Test::More;
use strict;
BEGIN { plan tests => 4 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
#########################
my $json = JSON::PP->new->allow_nonref;
View
2 t/108_decode.t
@@ -8,7 +8,7 @@ BEGIN { plan tests => 6 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
BEGIN {
use lib qw(t);
View
2 t/109_encode.t
@@ -8,7 +8,7 @@ BEGIN { plan tests => 7 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
BEGIN {
use lib qw(t);
View
2 t/110_bignum.t
@@ -5,7 +5,7 @@ BEGIN { plan tests => 6 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
eval q| require Math::BigInt |;
View
4 t/112_upgrade.t
@@ -5,7 +5,7 @@ BEGIN { plan tests => 3 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
BEGIN {
use lib qw(t);
@@ -23,7 +23,7 @@ my $value = $json->decode( '"\\u00c8"' );
is( $value, chr 0xc8 );
SKIP: {
- skip "UNICODE handling is disabale.", 1 unless $JSON::PPdev::can_handle_UTF16_and_utf8;
+ skip "UNICODE handling is disabale.", 1 unless $JSON::PP::can_handle_UTF16_and_utf8;
ok( utf8::is_utf8( $value ) );
}
View
2 t/113_overloaded_eq.t
@@ -7,7 +7,7 @@ BEGIN {
$ENV{ PERL_JSON_BACKEND } = 0;
}
-use JSON::PPdev;
+use JSON::PP;
my $obj = OverloadedObject->new( 'foo' );
View
2 t/114_decode_prefix.t
@@ -7,7 +7,7 @@ BEGIN {
$ENV{ PERL_JSON_BACKEND } = 0;
}
-use JSON::PPdev;
+use JSON::PP;
my $json = JSON::PP->new;
View
2 t/115_tie_ixhash.t
@@ -5,7 +5,7 @@ BEGIN { plan tests => 2 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-use JSON::PPdev;
+use JSON::PP;
# from https://rt.cpan.org/Ticket/Display.html?id=25162
View
4 t/_unicode_handling.pm
@@ -11,10 +11,10 @@ package _unicode_handling;
sub utf8::unimport { }
|;
- $JSON::PPdev::can_handle_UTF16_and_utf8 = 0;
+ $JSON::PP::can_handle_UTF16_and_utf8 = 0;
}
else {
- $JSON::PPdev::can_handle_UTF16_and_utf8 = 1;
+ $JSON::PP::can_handle_UTF16_and_utf8 = 1;
if ($] > 5.007 and $] < 5.008003) {
# $JSON::can_handle_UTF16_and_utf8 = 0;

0 comments on commit dd26552

Please sign in to comment.