Consolidate od tests.

* tests/misc/od: Perform od-zero-len's test here.
Include boilerplate code, so tests run in a subdirectory.
* tests/misc/od-zero-len: Remove this file.

1 files changed, 37 insertions, 1 deletions

diff --git a/tests/misc/od b/tests/misc/od
index aba847458..e5d0c59fd 100755
--- a/tests/misc/od
+++ b/tests/misc/od
@@ -20,6 +20,20 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
+pwd=`pwd`
+t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
+trap 'status=$?; cd "$pwd" && chmod -R u+rwx $t0 && rm -rf $t0 && exit $status' 0
+trap '(exit $?); exit $?' 1 2 13 15
+
+framework_failure=0
+mkdir -p $tmp || framework_failure=1
+cd $tmp || framework_failure=1
+
+if test $framework_failure = 1; then
+  echo "$0: failure in testing framework" 1>&2
+  (exit 1); exit 1
+fi
+
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
 $PERL -e 1 > /dev/null 2>&1 || {
@@ -28,7 +42,7 @@ $PERL -e 1 > /dev/null 2>&1 || {
   exit 77
 }
 
-exec $PERL -w -I$srcdir/.. -MCoreutils -- - <<\EOF
+exec $PERL -w -I$pwd/.. -MCoreutils -- - <<\EOF
 require 5.003;
 use strict;
 
@@ -37,6 +51,23 @@ use strict;
 # Turn off localisation of executable's ouput.
 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
 
+# Use a file in /proc whose size is not likely to
+# change between the wc and od invocations.
+my $proc_file = '/proc/version';
+-f $proc_file
+  or $proc_file = '/dev/null';
+
+# Count the bytes in $proc_file, _by reading_.
+my $len = 0;
+open FH, '<', $proc_file
+  or die "$program_name: can't open `$proc_file' for reading: $!\n";
+while (defined (my $line = <FH>))
+  {
+    $len += length $line;
+  }
+close FH;
+my $proc_file_byte_count = $len;
+
 my @Tests =
     (
      # Skip the exact length of the input file.
@@ -49,6 +80,11 @@ my @Tests =
      # Skip the sum of the lengths of the first three inputs, printing the 4th.
      ['j-bug4', '-c -j 3 -An', {IN=>{g=>'a'}}, {IN=>{h=>'b'}},
 			       {IN=>{i=>'c'}}, {IN=>{j=>'d'}}, {OUT=>"   d\n"}],
+
+     # Ensure that od -j doesn't fseek across a nonempty file in /proc,
+     # even if the kernel reports that the file has stat.st_size = 0.
+     ['j-proc', "-An -c -j $proc_file_byte_count $proc_file",
+                               {IN=>{f2=>'e'}}, {OUT=>"   e\n"}],
     );
 
 my $save_temps = $ENV{DEBUG};