3 # Copyright (C) 1996, 1997, 1998, 1999, 2003, 2004 Free Software
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 2 of the License, or
9 # (at your option) any later version.
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.
16 # You should have received a copy of the GNU General Public License
17 # along with this program; if not, write to the Free Software
18 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25 $Test::input_via_default = {REDIR => 0, FILE => 0, PIPE => 0};
28 # test flags input expected output expected return code
30 ['1', '-d: -f1,3-', "a:b:c\n", "a:c\n", 0],
31 ['2', '-d: -f1,3-', "a:b:c\n", "a:c\n", 0],
32 ['3', '-d: -f2-', "a:b:c\n", "b:c\n", 0],
33 ['4', '-d: -f4', "a:b:c\n", "\n", 0],
34 ['5', '-d: -f4', "", "", 0],
35 ['6', '-c4', "123\n", "\n", 0],
36 ['7', '-c4', "123", "\n", 0],
37 ['8', '-c4', "123\n1", "\n\n", 0],
38 ['9', '-c4', "", "", 0],
39 ['a', '-s -d: -f3-', "a:b:c\n", "c\n", 0],
40 ['b', '-s -d: -f2,3', "a:b:c\n", "b:c\n", 0],
41 ['c', '-s -d: -f1,3', "a:b:c\n", "a:c\n", 0],
42 # Trailing colon should not be output
43 ['d', '-s -d: -f1,3', "a:b:c:\n", "a:c\n", 0],
44 ['e', '-s -d: -f3-', "a:b:c:\n", "c:\n", 0],
45 ['f', '-s -d: -f3-4', "a:b:c:\n", "c:\n", 0],
46 ['g', '-s -d: -f3,4', "a:b:c:\n", "c:\n", 0],
47 # Make sure -s suppresses non-delimited lines
48 ['h', '-s -d: -f2,3', "abc\n", "", 0],
50 ['i', '-d: -f1-3', ":::\n", "::\n", 0],
51 ['j', '-d: -f1-4', ":::\n", ":::\n", 0],
52 ['k', '-d: -f2-3', ":::\n", ":\n", 0],
53 ['l', '-d: -f2-4', ":::\n", "::\n", 0],
54 ['m', '-s -d: -f1-3', ":::\n", "::\n", 0],
55 ['n', '-s -d: -f1-4', ":::\n", ":::\n", 0],
56 ['o', '-s -d: -f2-3', ":::\n", ":\n", 0],
57 ['p', '-s -d: -f2-4', ":::\n", "::\n", 0],
58 ['q', '-s -d: -f2-4', ":::\n:\n", "::\n\n", 0],
59 ['r', '-s -d: -f2-4', ":::\n:1\n", "::\n1\n", 0],
60 ['s', '-s -d: -f1-4', ":::\n:a\n", ":::\n:a\n", 0],
61 ['t', '-s -d: -f3-', ":::\n:1\n", ":\n\n", 0],
62 # Make sure it handles empty input properly, with and without -s.
63 ['u', '-s -f3-', "", "", 0],
64 ['v', '-f3-', "", "", 0],
65 # Make sure it handles empty input properly.
66 ['w', '-b 1', "", "", 0],
67 ['x', '-s -d: -f2-4', ":\n", "\n", 0],
69 # -s may be used only with -f
70 ['y', '-s -b4', ":\n", "", 1],
71 # You must specify bytes or fields (or chars)
72 ['z', '', ":\n", "", 1],
74 ['empty-fl', '-f \'\'', ":\n", "", 1],
76 ['missing-fl', '-f', ":\n", "", 1],
78 ['empty-bl', '-b \'\'', ":\n", "", 1],
80 ['missing-bl', '-b', ":\n", "", 1],
82 # This test fails with cut from textutils-1.22.
83 ['empty-f1', '-f1', "", "", 0],
85 ['empty-f2', '-f2', "", "", 0],
87 ['o-delim', '-d: -f2,3 --out=_', "a:b:c\n", "b_c\n", 0],
88 ['nul-idelim', "-d '' -f2,3 --out=_", "a\0b\0c\n", "b_c\n", 0],
89 ['nul-odelim', "-d: -f2,3 --out=", "a:b:c\n", "b\0c\n", 0],
90 ['multichar-od', "-d: -f2,3 --out=_._", "a:b:c\n", "b_._c\n", 0],
92 # Prior to 1.22i, you couldn't use a delimiter that would sign-extend.
93 ['8bit-delim', "'-d\255' -f2,3 --out=_", "a\255b\255c\n", "b_c\n", 0],
96 ['out-delim1', '-c1-3,5- --output-d=:', "abcdefg\n", "abc:efg\n", 0],
97 # A totally overlapped field shouldn't change anything:
98 ['out-delim2', '-c1-3,2,5- --output-d=:', "abcdefg\n", "abc:efg\n", 0],
99 # Partial overlap: index `2' is not at the start of a range.
100 ['out-delim3', '-c1-3,2-4,6 --output-d=:', "abcdefg\n", "abcd:f\n", 0],
101 ['out-delim3a', '-c1-3,2-4,6- --output-d=:', "abcdefg\n", "abcd:fg\n", 0],
102 # Ensure that the following two commands produce the same output.
103 # Before an off-by-one fix, the output from the former would not contain a `:'.
104 ['out-delim4', '-c4-,2-3 --output-d=:', "abcdefg\n", "bc:defg\n", 0],
105 ['out-delim5', '-c2-3,4- --output-d=:', "abcdefg\n", "bc:defg\n", 0],
106 # This test would fail for cut from coreutils-5.0.1 and earlier.
107 ['out-delim6', '-c2,1-3 --output-d=:', "abc\n", "abc\n", 0],
109 ['od-abut', '-b1-2,3-4 --output-d=:', "abcd\n", "ab:cd\n", 0],
110 ['od-overlap', '-b1-2,2 --output-d=:', "abc\n", "ab\n", 0],
111 ['od-overlap2', '-b1-2,2- --output-d=:', "abc\n", "abc\n", 0],
112 ['od-overlap3', '-b1-3,2- --output-d=:', "abcd\n", "abcd\n", 0],
113 ['od-overlap4', '-b1-3,2-3 --output-d=:', "abcd\n", "abc\n", 0],
114 ['od-overlap5', '-b1-3,1-4 --output-d=:', "abcde\n", "abcd\n", 0],
118 # Don't use a pipe for failing tests. Otherwise, sometimes they
119 # fail so early they'd evoke the `Broken pipe' message.
123 my ($test_name, $flags, $in, $exp, $ret) = @$t;
124 $Test::input_via{$test_name} = {REDIR => 0, FILE => 0} if $ret;