tests/misc/head.pl

   1 #!/usr/bin/perl
   2 # test head
   3
   4 # Copyright (C) 2008-2013 Free Software Foundation, Inc.
   5
   6 # This program is free software: you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation, either version 3 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 use strict;
  20
  21 my $prog = 'head';
  22
  23 # Turn off localization of executable's output.
  24 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
  25
  26 my $in = join ('', map { "$_\n" } 0..600);
  27 my $in_1024 = substr $in, 0, 1024;
  28
  29 # FIXME: set this properly
  30 my $x32_bit_long = 0;
  31
  32 my @Tests =
  33 (
  34   ['idem-0', {IN=>''}, {OUT=>''}],
  35   ['idem-1', {IN=>'a'}, {OUT=>'a'}],
  36   ['idem-2', {IN=>"\n"}, {OUT=>"\n"}],
  37   ['idem-3', {IN=>"a\n"}, {OUT=>"a\n"}],
  38
  39   ['basic-10',
  40    {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"},
  41    {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"}],
  42
  43   ['basic-09',
  44    {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n"},
  45    {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n"}],
  46
  47   ['basic-11',
  48    {IN=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\nb\n"},
  49    {OUT=>"1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n"}],
  50
  51   ['obs-0', '-1', {IN=>"1\n2\n"}, {OUT=>"1\n"}],
  52   ['obs-1', '-1c', {IN=>''}, {OUT=>''}],
  53   ['obs-2', '-1c', {IN=>'12'}, {OUT=>'1'}],
  54   ['obs-3', '-14c', {IN=>'1234567890abcdefg'}, {OUT=>'1234567890abcd'}],
  55   ['obs-4', '-2b', {IN=>$in}, {OUT=>$in_1024}],
  56   ['obs-5', '-1k', {IN=>$in}, {OUT=>$in_1024}],
  57
  58   # This test fails for textutils-1.22, because head let 4096m overflow to 0
  59   # and did not fail.  Now head fails with a diagnostic.
  60   # Disable this test because it fails on systems with 64-bit uintmax_t.
  61   # ['fail-0', qw(-n 4096m), {IN=>"a\n"}, {EXIT=>1}],
  62
  63   # In spite of its name, this test passes -- just to contrast with the above.
  64   ['fail-1', qw(-n 2048m), {IN=>"a\n"}, {OUT=>"a\n"}],
  65
  66   # Make sure we don't break like AIX 4.3.1 on files with \0 in them.
  67   ['null-1', {IN=>"a\0a\n"}, {OUT=>"a\0a\n"}],
  68
  69   # Make sure counts are interpreted as decimal.
  70   # Before 2.0f, these would have been interpreted as octal
  71   ['no-oct-1', '-08',  {IN=>"\n"x12}, {OUT=>"\n"x8}],
  72   ['no-oct-2', '-010', {IN=>"\n"x12}, {OUT=>"\n"x10}],
  73   ['no-oct-3', '-n 08', {IN=>"\n"x12}, {OUT=>"\n"x8}],
  74   ['no-oct-4', '-c 08', {IN=>"\n"x12}, {OUT=>"\n"x8}],
  75 );
  76
  77 @Tests = triple_test \@Tests;
  78
  79 my $save_temps = $ENV{DEBUG};
  80 my $verbose = $ENV{VERBOSE};
  81
  82 my $fail = run_tests ($prog, $prog, \@Tests, $save_temps, $verbose);
  83 exit $fail;