check-file.p6

enum Results <success no-import hung crash>;

sub check-file($file) {
    # say "working on $file";
    
    my $proc = Proc::Async.new('utils/sat_nlib', $file);
    $proc.stdout(:bin).tap: { Nil }
    $proc.stderr(:bin).tap: { Nil }
    
    my $promise;
    await Promise.anyof($promise = $proc.start, Promise.at(now + 20));
    
    if $promise.status != Kept {
        $proc.kill;
        return Results::hung;
    }
    return Results::crash if $promise.result.signal > 0;
    return Results::no-import if $promise.result.exitcode > 0;
    return Results::success;
}