diff options
Diffstat (limited to 'tests/head/Test.pm')
| -rw-r--r-- | tests/head/Test.pm | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/tests/head/Test.pm b/tests/head/Test.pm deleted file mode 100644 index 263ccaf..0000000 --- a/tests/head/Test.pm +++ /dev/null @@ -1,110 +0,0 @@ -# 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; |