tests/cut/Test.pm

   1 # Test 'cut'.
   2
   3 # Copyright (C) 1996, 1997, 1998, 1999, 2003, 2004 Free Software
   4 # 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 2 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, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20
  21 package Test;
  22 require 5.002;
  23 use strict;
  24
  25 $Test::input_via_default = {REDIR => 0, FILE => 0, PIPE => 0};
  26
  27 my @tv = (
  28 # test flags            input           expected output expected return code
  29 #
  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],
  49 #
  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],
  68 # Errors
  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],
  73 # Empty field list
  74 ['empty-fl', '-f \'\'', ":\n",                  "",                     1],
  75 # Missing field list
  76 ['missing-fl', '-f',    ":\n",                  "",                     1],
  77 # Empty byte list
  78 ['empty-bl', '-b \'\'', ":\n",                  "",                     1],
  79 # Missing byte list
  80 ['missing-bl', '-b',    ":\n",                  "",                     1],
  81
  82 # This test fails with cut from textutils-1.22.
  83 ['empty-f1', '-f1',     "",                     "",                     0],
  84
  85 ['empty-f2', '-f2',     "",                     "",                     0],
  86
  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],
  91
  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],
  94
  95 # New functionality:
  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],
 108 #
 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],
 115
 116 );
 117
 118 # Don't use a pipe for failing tests.  Otherwise, sometimes they
 119 # fail so early they'd evoke the `Broken pipe' message.
 120 my $t;
 121 foreach $t (@tv)
 122   {
 123     my ($test_name, $flags, $in, $exp, $ret) = @$t;
 124     $Test::input_via{$test_name} = {REDIR => 0, FILE => 0} if $ret;
 125   }
 126
 127 sub test_vector
 128 {
 129   return @tv;
 130 }
 131
 132 1;