DESTROY_lock_issue.p6

#!/usr/bin/env perl6

use v6.c;
my $lock = Lock.new;
my $current-action;

sub atomic-action ($id) {
    $lock.protect: {
        $current-action = $id;
        
        sleep rand / 1000;
        
        die "\$current-action should be '$id' but is '$_'"
            if $_ ne $id given $current-action<>;
    }
    Nil
}

class A {
    submethod DESTROY { atomic-action "DESTROY" };
}

await ^1000 .map: {
    start {
        A.new;
        atomic-action "foo";
    }
}