From 462fadc1c4dfc7ef1255d3dfd74820b7eaf3ff99 Mon Sep 17 00:00:00 2001 From: James E Keenan Date: Sun, 9 Dec 2012 08:26:21 -0500 Subject: [PATCH] t/op/filehandle.t: Provide descriptions for all tests. Remove misleading inline comment (dupe of comment in t/op/filetest.t). --- t/op/filehandle.t | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/t/op/filehandle.t b/t/op/filehandle.t index ca29069..a7621db 100644 --- a/t/op/filehandle.t +++ b/t/op/filehandle.t @@ -1,8 +1,5 @@ #!./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'; @@ -15,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'"; -- 2.7.4