X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=t%2F10-base.t;h=4d5840ac7b7de5e9756cd58abc26588fa4668f32;hp=da778e01dac1db3348681f157407c3d6b2e3271e;hb=a8e5fe66564dd0cbb6a4e6c06af39b79c4e56878;hpb=c31abfbd7888d62dabfd301cc5f7435d7897e63f

diff --git a/t/10-base.t b/t/10-base.t
index da778e0..4d5840a 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 65;
+use Test::More tests => 66;
 
 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]/ },
@@ -252,9 +252,19 @@ print DONGS "hlagh\n";
 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);
+
+__DATA__
+apple
+pear
+banana