use strict;
use warnings;
-use Test::More tests => 65;
+use Test::More tests => 67;
my %_re = (
bareword => sub { qr/^Bareword\s+['"]?\s*$_[0]\s*['"]?\s+not\s+allowed\s+while\s+["']?\s*strict\s+subs\s*['"]?\s+in\s+use\s+at\s+$_[1]\s+line\s+$_[2]/ },
is($buf, "hlagh\n", 'filehandles should\'t be touched');
close DONGS;
+seek DATA, 0, 1;
+my @fruits = <DATA>;
+chomp @fruits;
+is_deeply(\@fruits, [ qw/apple pear banana/ ], 'DATA filehandle ok');
+
eval { foo 7, 9, { } };
_got_ok('compiling to foo(7,9,{})');
is($foo, 16, 'foo really was executed');
eval { blech };
_got_undefined('blech', __LINE__-1);
+
+ok(-f $0 && -r _, '-X _');
+
+__DATA__
+apple
+pear
+banana