diff options
Diffstat (limited to 'tests/head/Test.pm')
| -rw-r--r-- | tests/head/Test.pm | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/tests/head/Test.pm b/tests/head/Test.pm new file mode 100644 index 0000000..263ccaf --- /dev/null +++ b/tests/head/Test.pm @@ -0,0 +1,110 @@ +# Test "head". + +# Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2005 Free Software +# Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301, USA. + +package Test; +require 5.002; +use strict; + +my @tv = ( +# test name, options, input, expected output, expected return code +# +['idem-0', '', "", "", 0], +['idem-1', '', "a", "a", 0], +['idem-2', '', "\n", "\n", 0], +['idem-3', '', "a\n", "a\n", 0], + +['basic-0-10', '', + "1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n", + "1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n", 0], + +['basic-0-09', '', + "1\n2\n3\n4\n5\n6\n7\n8\n9\n", + "1\n2\n3\n4\n5\n6\n7\n8\n9\n", 0], + +['basic-0-11', '', + "1\n2\n3\n4\n5\n6\n7\n8\n9\n0\nb\n", + "1\n2\n3\n4\n5\n6\n7\n8\n9\n0\n", 0], + +['obs-0', '-1', "1\n2\n", "1\n", 0], +['obs-1', '-1c', "", "", 0], +['obs-2', '-1c', "12", "1", 0], +['obs-3', '-14c', "1234567890abcdefg", "1234567890abcd", 0], +['obs-4', '-2b', [\'in'], [\'in-1024'], 0], +['obs-5', '-1k', [\'in'], [\'in-1024'], 0], + +# This test fails for textutils-1.22, because head let 4096m overflow to 0 +# and did not fail. Now head fails with a diagnostic. + +# Disable this test because it fails on systems with 64-bit longs. +# ['fail-0', '-n 4096m', "a\n", "", 1], + +# In spite of its name, this test passes -- just to contrast with the above. +['fail-1', '-n 2048m', "a\n", "a\n", 0], + +# Make sure we don't break like AIX 4.3.1 on files with \0 in them. +['null-1', '', "a\0a\n", "a\0a\n", 0], + +# Make sure counts are interpreted as decimal. +# Before 2.0f, these would have been interpreted as octal +['no-oct-1', '-08', "\n"x12, "\n"x8, 0], +['no-oct-2', '-010', "\n"x12, "\n"x10, 0], +['no-oct-3', '-n 08', "\n"x12, "\n"x8, 0], +['no-oct-4', '-c 08', "\n"x12, "\n"x8, 0], + +); + +sub test_vector +{ + my @derived_tests; + foreach my $t (@tv) + { + my ($test_name, $flags, $in, $exp, $ret) = @$t; + + # Derive equivalent, posix-style tests from the obsolescent ones. + next if $test_name !~ /^obs-/; + + $test_name =~ s/^obs-/posix-/; + if ($flags =~ /-(\d+)$/) + { + $flags = "-n $1"; + } + elsif ($flags =~ /-(\d+)([cbk])$/) + { + my $suffix = $2; + $suffix = '' if $suffix eq 'c'; + $flags = "-c $1$suffix"; + } + else + { + $flags = "-l $`"; + } + push (@derived_tests, [$test_name, $flags, $in, $exp, $ret]); + } + + foreach my $t (@tv, @derived_tests) + { + my ($test_name) = @$t; + $Test::input_via{$test_name} = {REDIR => 0, FILE => 0, PIPE => 0} + } + + return (@tv, @derived_tests); +} + +1; |