view release on metacpan or  search on metacpan

xt/fuzz.t  view on Meta::CPAN

    my $insert_ok = ($? == 0);

    open my $count_fh, '-|', 'clickhouse-client', '--port', $port,
        '--query', 'select count() from fuzz_test'
        or die "count query: $!";
    my $count = do { local $/; <$count_fh> };
    close $count_fh;
    chomp $count;

    if (!$insert_ok || $count != $nrows) {
        my $err = do { local (@ARGV, $/) = '/tmp/fuzz.err'; <> };
        fail("iter $iter: CH rejected our buffer (got $count rows, expected $nrows)");
        diag("schema: $col_defs");
        diag("error:  $err") if $err;
    } else {
        pass("iter $iter: $ncols cols × $nrows rows accepted");
    }
}

system("clickhouse-client --port $port --query 'drop table if exists fuzz_test' >/dev/null 2>&1");