Couple of test file comments

diff --git a/t/op/select.t b/t/op/select.t
index d61c373..3e29c39 100644 (file)
--- a/t/op/select.t
+++ b/t/op/select.t
@@ -1,5 +1,8 @@
 #!./perl
 
+# This file is for testing select() with one argument.  Four-argument
+# select() is tested in sselect.t.
+
 BEGIN {
     chdir 't' if -d 't';
     require './test.pl';

diff --git a/t/op/sselect.t b/t/op/sselect.t
index a2507c7..fedbfc7 100644 (file)
--- a/t/op/sselect.t
+++ b/t/op/sselect.t
@@ -1,5 +1,7 @@
 #!./perl
 
+# Four-argument select
+
 my $hires;
 BEGIN {
     chdir 't' if -d 't';