diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/e13_overloaded_eq.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/e13_overloaded_eq.t | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/e13_overloaded_eq.t b/chromium/third_party/JSON/JSON-2.59/t/e13_overloaded_eq.t deleted file mode 100644 index 2956aac0521..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/e13_overloaded_eq.t +++ /dev/null @@ -1,65 +0,0 @@ - -use strict; -use Test::More tests => 4; - -BEGIN { - $ENV{ PERL_JSON_BACKEND } = "JSON::backportPP"; -} - -use JSON; - -my $json = JSON->new->convert_blessed; - -my $obj = OverloadedObject->new( 'foo' ); -ok( $obj eq 'foo' ); -is( $json->encode( [ $obj ] ), q{["foo"]} ); - -# rt.cpan.org #64783 -my $foo = bless {}, 'Foo'; -my $bar = bless {}, 'Bar'; - -eval q{ $json->encode( $foo ) }; -ok($@); -eval q{ $json->encode( $bar ) }; -ok(!$@); - - -package Foo; - -use strict; -use overload ( - 'eq' => sub { 0 }, - '""' => sub { $_[0] }, - fallback => 1, -); - -sub TO_JSON { - return $_[0]; -} - -package Bar; - -use strict; -use overload ( - 'eq' => sub { 0 }, - '""' => sub { $_[0] }, - fallback => 1, -); - -sub TO_JSON { - return overload::StrVal($_[0]); -} - - -package OverloadedObject; - -use overload 'eq' => sub { $_[0]->{v} eq $_[1] }, '""' => sub { $_[0]->{v} }, fallback => 1; - - -sub new { - bless { v => $_[1] }, $_[0]; -} - - -sub TO_JSON { "$_[0]"; } - |