t9300: demonstrate bug with get-mark and empty orphan commits

diff --git a/t/t0019/parse_json.perl b/t/t0019/parse_json.perl
index ca4e5bfa7850ee5bc783cec7c0d18b8d76d66883..fea87fb81b62d4f1e9612094c60ee8dceebc07be 100644 (file)
--- a/t/t0019/parse_json.perl
+++ b/t/t0019/parse_json.perl
@@ -34,6 +34,9 @@ sub dump_item {
     } elsif (ref($value) eq 'HASH') {
        print "$label_in hash\n";
        dump_hash($label_in, $value);
+    } elsif (ref $value) {
+       my $bool = $value ? 1 : 0;
+       print "$label_in $bool\n";
     } elsif (defined $value) {
        print "$label_in $value\n";
     } else {