### ----------------------------------------------------
### -- Slang::Forgiven
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: t/05-error.rakutest
### ----------------------------------------------------
use Test;
use Slang::Forgiven;

plan 1;

subtest "Parameterless forgiven" => {
    dies-ok {
        q:to/END/.EVAL;
        forgiven [4, 5, 6] {
            # Parameterless block is not forgiven; please use "for" instead
        }
        END
    }
}

done-testing;


