#!perl -T

use Test::More tests => 7;
no underscore;

my $dummy;

my %ok = (
    For => sub { for (<DATA>) { $dummy = ord } },
);

my %notok = (
    Assignment => sub { $_ = "Bad" },
    Reading    => sub { print },
    Matching   => sub { my $x = /badness/ },
    Chop       => sub { chop },
    Filetest   => sub { -x },
    While      => sub { while (<DATA>) { $dummy = ord } },
);

for my $t (sort keys %notok){
    eval { $notok{$t}->() };
    ok !!$@, "$t:$@";
}

for my $t (sort keys %ok){
    eval { $ok{$t}->() };
    ok !$@, $t;
}

# warn $dummy;
__DATA__
Pathologically
Eclectic
Rubbish
Lister