This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/filehandle.t: Provide descriptions for all tests.
[perl5.git] / t / op / filehandle.t
index 408c670..a7621db 100644 (file)
@@ -1,12 +1,10 @@
 #!./perl
 
-# There are few filetest operators that are portable enough to test.
-# See pod/perlport.pod for details.
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
+    skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
 }
 
 plan 4;
@@ -14,12 +12,12 @@ use FileHandle;
 
 my $str = "foo";
 open my $fh, "<", \$str;
-is <$fh>, "foo";
+is <$fh>, "foo", "open fh to reference to string: got expected content";
 
 eval {
    $fh->seek(0, 0);
-   is $fh->tell, 0;
-   is <$fh>, "foo";
+   is $fh->tell, 0, "after 'seek' and 'tell', got expected current fh position in bytes";
+   is <$fh>, "foo", "after 'seek' and 'tell', still got expected content";
 };
 
-is $@, '';
+is $@, '', "no errors after 'seek' or 'tell'";