xref: /openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/120_incr_parse_truncated.t (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)

use strict;
use warnings;
use Test::More;
use JSON::PP;

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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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::PP->new;
    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' . '}'");
});