1#@!#!123s

32759 1#@!#!123s
: / home / .cpan / build / JSON-4.10-0 / t /
Filename : 120_incr_parse_truncated.t
back
use strict;
use warnings;
use Test::More;
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }

use JSON;
plan skip_all => "not for older version of JSON::PP" if JSON->backend->isa('JSON::PP') && JSON->backend->VERSION < 4.09;

plan tests => 19 * 3 + 1 * 6;

sub run_test {
    my ($input, $sub) = @_;
    $sub->($input);
}

run_test('{"one": 1}', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok ($res, "curly braces okay -- '$input'");
    ok (!$e, "no error -- '$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error");
});

run_test('{"one": 1]', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "unbalanced curly braces -- '$input'");
    ok ($e, "got error -- '$input'");
    like ($e, qr/, or \} expected while parsing object\/hash/, "'} expected' json string error");
});

run_test('"', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('[', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('}', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok ($e, "no error for input='$input'");
    like ($e, qr/malformed JSON string/, "'malformed JSON string' json string error for input='$input'");
});

run_test(']', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok ($e, "no error for input='$input'");
    like ($e, qr/malformed JSON string/, "'malformed JSON string' json string error for input='$input'");
});

run_test('1', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok ($res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/malformed JSON string/, "'malformed JSON string' json string error for input='$input'");
});

run_test('1', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(0);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok ($e, "no error for input='$input'");
    like ($e, qr/JSON text must be an object or array/, "'JSON text must be an object or array' json string error for input='$input'");
});

run_test('"1', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/malformed JSON string/, "'malformed JSON string' json string error for input='$input'");
});

run_test('\\', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok ($e, "no error for input='$input'");
    like ($e, qr/malformed JSON string/, "'malformed JSON string' json string error for input='$input'");
});

run_test('{"one": "', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": {', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": [', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": t', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": \\', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": ', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": 1', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");
});

run_test('{"one": {"two": 2', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated '$input'");
    ok (!$e, "no error -- '$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error -- $input");
});

# Test Appending Closing '}' Curly Bracket
run_test('{"one": 1', sub {
    my $input = shift;
    my $coder = JSON->new->allow_nonref(1);
    my $res = eval { $coder->incr_parse($input) };
    my $e = $@; # test more clobbers $@, we need it twice
    ok (!$res, "truncated input='$input'");
    ok (!$e, "no error for input='$input'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input'");

    $res = eval { $coder->incr_parse('}') };
    $e = $@; # test more clobbers $@, we need it twice
    ok ($res, "truncated input='$input' . '}'");
    ok (!$e, "no error for input='$input' . '}'");
    unlike ($e, qr/, or \} expected while parsing object\/hash/, "No '} expected' json string error for input='$input' . '}'");
});