diff options
author | Jay Berkenbilt <ejb@ql.org> | 2022-05-01 20:06:31 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2022-05-02 01:55:52 +0200 |
commit | 8d2a0eda5a76a341ae6b597f58e874d9e3bd571c (patch) | |
tree | ef5a23b3eb9115db14f37235f6b353eed50b6335 /libtests/qtest/json_parse.test | |
parent | f5dd63819d9f0cab89d8558b3b9c596e5056c9b7 (diff) | |
download | qpdf-8d2a0eda5a76a341ae6b597f58e874d9e3bd571c.tar.zst |
Add reactors to the JSON parser
Diffstat (limited to 'libtests/qtest/json_parse.test')
-rw-r--r-- | libtests/qtest/json_parse.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/libtests/qtest/json_parse.test b/libtests/qtest/json_parse.test index cdafb506..15b251cc 100644 --- a/libtests/qtest/json_parse.test +++ b/libtests/qtest/json_parse.test @@ -32,7 +32,7 @@ if ($^O ne 'msys') cleanup(); -my $good = 9; +my $good = 10; for (my $i = 1; $i <= $good; ++$i) { @@ -73,6 +73,11 @@ for (my $i = 1; $i <= $good; ++$i) {$td->FILE => "out.json"}, {$td->STRING => ""}); } + + $td->runtest("good $n reactor", + {$td->COMMAND => "json_parse good-$n.json --react"}, + {$td->FILE => "good-$n-react.out", $td->EXIT_STATUS => 0}, + $td->NORMALIZE_NEWLINES); } my @bad = ( @@ -127,7 +132,7 @@ foreach my $d (@bad) cleanup(); -$td->report((2 * $good) + scalar(@bad)); +$td->report((3 * $good) + scalar(@bad)); sub cleanup { |