p6.p6

subtest 'MAIN can take type-constrain using Enums' => {
    plan 3;

    my $code = Q:to/END/;
        enum Hand <Rock Paper Scissors>;
        sub MAIN (Hand $hand, Hand :$pos-hand) {
            print "pass";
        }
    END
    is_run $code, :args[<Rock>], { :out<pass>, :err('') }, 'positional works';
    is_run $code, :args[<Rock --pos-hand=Scissors>], { :out<pass>, :err('') }, 'named works';
    is_run $code, :args[<Hand>], { :out{not 'pass'}, :err(/'=<Hand>'/) },
        'name of enum itself is not valid and usage message prints the name of the enum';
}