use warnings;
use strict;

use Test::More;

TODO: {
    local $TODO = '';
    is (1, 1, 'inside')
      and warn "*** unexpected pass at line " . __LINE__ ."\n";
}

done_testing();

##</code><code>##

ok 1 - inside
*** unexpected pass at line 9
1..1