tests/pr/pr-tests

   1 #!/usr/bin/perl
   2 # Test pr.
   3
   4 # Copyright (C) 2008-2012 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 # Turn off localization of executable's output.
  22 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
  23
  24 my $prog = 'pr';
  25
  26 my @tv = (
  27
  28 # -b option is no longer an official option. But it's still working to
  29 # get a downward compatibility. Now (version 1.19m or newer) -COLUMN
  30 # only is equivalent to -b -COLUMN.
  31 #
  32 # test_name options input-file-name(s) expected-output-group-file-name
  33 #                                                         expected-return-code
  34 # -------------------------------------------------------------------------
  35 # Following tests with "FF set" don't contain a complete set of all
  36 # combinations of options and FF-arrangements
  37 #
  38 # One FF at start of file (one empty page)
  39 # ['1a', '', [\'0Ft'], [\'0F'], 0],
  40 ['1b', '', [\'0Fnt'], [\'0F'], 0],
  41 ['1c', '+3', [\'0Ft'], [\'3-0F'], 0],
  42 ['1d', '+3 -f', [\'0Ft'], [\'3f-0F'], 0],
  43 ['1e', '-a -3', [\'0Ft'], [\'a3-0F'], 0],
  44 ['1f', '-a -3 -f', [\'0Ft'], [\'a3f-0F'], 0],
  45 ['1g', '-a -3 -f', [\'0Fnt'], [\'a3f-0F'], 0],
  46 ['1h', '+3 -a -3 -f', [\'0Ft'], [\'3a3f-0F'], 0],
  47 ['1i', '-b -3', [\'0Ft'], [\'b3-0F'], 0],
  48 ['1j', '-b -3 -f', [\'0Ft'], [\'b3f-0F'], 0],
  49 ['1k', '-b -3 -f', [\'0Fnt'], [\'b3f-0F'], 0],
  50 ['1l', '+3 -b -3 -f', [\'0Ft'], [\'3b3f-0F'], 0],
  51 # Two FF at start of file (two empty page)
  52 ['2a', '', [\'0FFt'], [\'0FF'], 0],
  53 ['2b', '', [\'0FnFnt'], [\'0FF'], 0],
  54 ['2c', '-a -3 -f', [\'0FFt'], [\'a3f-0FF'], 0],
  55 ['2d', '-a -3 -f', [\'0FFnt'], [\'a3f-0FF'], 0],
  56 ['2e', '-b -3 -f', [\'0FFt'], [\'b3f-0FF'], 0],
  57 ['2f', '-b -3 -f', [\'0FFnt'], [\'b3f-0FF'], 0],
  58 ['2g', '-b -3 -f', [\'0FnFt'], [\'b3f-0FF'], 0],
  59 ['2h', '-b -3 -f', [\'0FnFnt'], [\'b3f-0FF'], 0],
  60 ['2i', '+3 -b -3 -f', [\'0FFt'], [\'3b3f-0FF'], 0],
  61 ['2j', '+3 -b -3 -f', [\'0FFnt'], [\'3b3f-0FF'], 0],
  62 #
  63 # FFs in text (none / one / two empty page(s))
  64 ['3a', '', [\'FFn'], [\'FF'], 0],
  65 ['3b', '', [\'FnFn'], [\'FF'], 0],
  66 ['3c', '+3', [\'FFn'], [\'3-FF'], 0],
  67 ['3d', '+3 -f', [\'FFn'], [\'3f-FF'], 0],
  68 ['3e', '-a -3 -f', [\'FFn'], [\'a3f-FF'], 0],
  69 ['3f', '-a -3 -f', [\'FFtn'], [\'a3f-FF'], 0],
  70 ['3g', '-b -3 -f', [\'FFn'], [\'b3f-FF'], 0],
  71 ['3h', '-b -3 -f', [\'FFtn'], [\'b3f-FF'], 0],
  72 ['3i', '-b -3 -f', [\'FnFn'], [\'b3f-FF'], 0],
  73 ['3j', '-b -3 -f', [\'tFFn'], [\'b3f-FF'], 0],
  74 ['3k', '-b -3 -f', [\'tFnFt'], [\'b3f-FF'], 0],
  75 ['3l', '+3 -b -3 -f', [\'FFn'], [\'3b3f-FF'], 0],
  76 ['3m', '+3 -b -3 -f', [\'FFtn'], [\'3b3f-FF'], 0],
  77 # A full page printed (lines_left_on_page = 0) without a FF found.
  78 # Avoid an extra empty page if a FF follows in the next input line.
  79 ['3la', '-l 24', [\'FFn'], [\'l24-FF'], 0],
  80 ['3lb', '-l 24', [\'FFtn'], [\'l24-FF'], 0],
  81 ['3lc', '-l 24', [\'FnFn'], [\'l24-FF'], 0],
  82 ['3ld', '-l 24', [\'tFFn'], [\'l24-FF'], 0],
  83 ['3le', '-l 24', [\'tFnFt'], [\'l24-FF'], 0],
  84 ['3lf', '-l 24', [\'tFFt'], [\'l24-FF'], 0],
  85 ['3aa', '-a -2 -l 17', [\'FFn'], [\'a2l17-FF'], 0],
  86 ['3ab', '-a -2 -l 17', [\'FFtn'], [\'a2l17-FF'], 0],
  87 ['3ac', '-a -2 -l 17', [\'FnFn'], [\'a2l17-FF'], 0],
  88 ['3ad', '-a -2 -l 17', [\'tFFn'], [\'a2l17-FF'], 0],
  89 ['3ae', '-a -2 -l 17', [\'tFnFt'], [\'a2l17-FF'], 0],
  90 ['3af', '-a -2 -l 17', [\'tFFt'], [\'a2l17-FF'], 0],
  91 ['3ag', '-a -2 -l 15', [\'FFn'], [\'a2l15-FF'], 0],
  92 ['3ah', '-a -2 -l 15', [\'FFtn'], [\'a2l15-FF'], 0],
  93 ['3ai', '-a -2 -l 15', [\'FnFn'], [\'a2l15-FF'], 0],
  94 ['3aj', '-a -2 -l 15', [\'tFFn'], [\'a2l15-FF'], 0],
  95 ['3ak', '-a -2 -l 15', [\'tFnFt'], [\'a2l15-FF'], 0],
  96 ['3ba', '-b -2 -l 17', [\'FFn'], [\'b2l17-FF'], 0],
  97 ['3bb', '-b -2 -l 17', [\'FFtn'], [\'b2l17-FF'], 0],
  98 ['3bc', '-b -2 -l 17', [\'FnFn'], [\'b2l17-FF'], 0],
  99 ['3bd', '-b -2 -l 17', [\'tFFn'], [\'b2l17-FF'], 0],
 100 ['3be', '-b -2 -l 17', [\'tFnFt'], [\'b2l17-FF'], 0],
 101 ['3bf', '-b -2 -l 17', [\'tFFt'], [\'b2l17-FF'], 0],
 102 ['3bg', '-b -2 -l 15', [\'FFn'], [\'b2l15-FF'], 0],
 103 ['3bh', '-b -2 -l 15', [\'FFtn'], [\'b2l15-FF'], 0],
 104 ['3bi', '-b -2 -l 15', [\'FnFn'], [\'b2l15-FF'], 0],
 105 ['3bj', '-b -2 -l 15', [\'tFFn'], [\'b2l15-FF'], 0],
 106 ['3bk', '-b -2 -l 15', [\'tFnFt'], [\'b2l15-FF'], 0],
 107 ['3Pa', '+4 -l 24', [\'FFn'], [\'4l24-FF'], 0],
 108 ['3Pb', '+4 -l 24', [\'FFtn'], [\'4l24-FF'], 0],
 109 ['3Pc', '+4 -l 24', [\'FnFn'], [\'4l24-FF'], 0],
 110 ['3Pd', '+4 -l 24', [\'tFFn'], [\'4l24-FF'], 0],
 111 ['3Pe', '+4 -l 24', [\'tFnFt'], [\'4l24-FF'], 0],
 112 ['3Pf', '+4 -l 24', [\'tFFt'], [\'4l24-FF'], 0],
 113 ['3Pg', '+4:7 -l 24', [\'tFFt'], [\'4-7l24-FF'], 0],
 114 ['3Paa', '+3 -a -2 -l 17', [\'FFn'], [\'3a2l17-FF'], 0],
 115 ['3Pab', '+3 -a -2 -l 17', [\'FFtn'], [\'3a2l17-FF'], 0],
 116 ['3Pac', '+3 -a -2 -l 17', [\'FnFn'], [\'3a2l17-FF'], 0],
 117 ['3Pad', '+3 -a -2 -l 17', [\'tFFn'], [\'3a2l17-FF'], 0],
 118 ['3Pae', '+3 -a -2 -l 17', [\'tFnFt'], [\'3a2l17-FF'], 0],
 119 ['3Paf', '+3 -a -2 -l 17', [\'tFFt'], [\'3a2l17-FF'], 0],
 120 ['3Pba', '+3 -b -2 -l 17', [\'FFn'], [\'3b2l17-FF'], 0],
 121 ['3Pbb', '+3 -b -2 -l 17', [\'FFtn'], [\'3b2l17-FF'], 0],
 122 ['3Pbc', '+3 -b -2 -l 17', [\'FnFn'], [\'3b2l17-FF'], 0],
 123 ['3Pbd', '+3 -b -2 -l 17', [\'tFFn'], [\'3b2l17-FF'], 0],
 124 ['3Pbe', '+3 -b -2 -l 17', [\'tFnFt'], [\'3b2l17-FF'], 0],
 125 ['3Pbf', '+3 -b -2 -l 17', [\'tFFt'], [\'3b2l17-FF'], 0],
 126 #
 127 # Without "FF set by hand"
 128 ['4a', '-l 24', [\'tn'], [\'l24-t'], 0],
 129 ['4b', '-l 24 -f', [\'tn'], [\'l24f-t'], 0],
 130 ['4c', '+3 -l 24', [\'tn'], [\'3l24-t'], 0],
 131 ['4d', '+3 -l 24 -f', [\'tn'], [\'3l24f-t'], 0],
 132 ['4e', '+3:5 -l 24 -f', [\'tn'], [\'3-5l24f-t'], 0],
 133 ['4f', '-a -3 -l 15', [\'tn'], [\'a3l15-t'], 0],
 134 ['4g', '-a -3 -l 15 -f', [\'tn'], [\'a3l15f-t'], 0],
 135 ['4h', '+3 -a -3 -l 15', [\'tn'], [\'3a3l15-t'], 0],
 136 ['4i', '+3 -a -3 -l 15 -f', [\'tn'], [\'3a3l15f-t'], 0],
 137 ['4j', '-b -3 -l 15', [\'tn'], [\'b3l15-t'], 0],
 138 ['4k', '-b -3 -l 15 -f', [\'tn'], [\'b3l15f-t'], 0],
 139 ['4l', '+3 -b -3 -l 15', [\'tn'], [\'3b3l15-t'], 0],
 140 ['4m', '+3 -b -3 -l 15 -f', [\'tn'], [\'3b3l15f-t'], 0],
 141 #
 142 # Merge input files (-m option)
 143 ['5a', '-m -l 24', [\'tn', \'tn'], [\'ml24-t'], 0],
 144 ['5b', '-m -l 24 -f', [\'tn', \'tn'], [\'ml24f-t'], 0],
 145 ['5c', '+3 -m -l 24', [\'tn', \'tn'], [\'3ml24-t'], 0],
 146 ['5d', '+3 -m -l 24 -f', [\'tn', \'tn'], [\'3ml24f-t'], 0],
 147 ['5e', '-m -l 24 -f', [\'0Ft', \'0Ft'], [\'ml24f-0F'], 0],
 148 ['5f', '-m -l 24 -f', [\'0Ft', \'0Fnt'], [\'ml24f-0F'], 0],
 149 ['5g', '-m -l 24 -f', [\'tn', \'0Ft'], [\'ml24f-t-0F'], 0],
 150 # A full page printed (lines_left_on_page = 0) without a FF found.
 151 # Avoid an extra empty page if a FF follows in the next input line.
 152 ['5ma', '-m -l 24', [\'tFFn', \'tFnFt'], [\'ml24-FF'], 0],
 153 ['5mb', '-m -l 24', [\'tFFn', \'FFn'], [\'ml24-FF'], 0],
 154 ['5mc', '-m -l 24', [\'tn', \'FFn'], [\'ml24-t-FF'], 0],
 155 ['5md', '-m -l 20', [\'FFn', \'tn'], [\'ml20-FF-t'], 0],
 156 ['5Pma', '+3 -m -l 24', [\'FFn', \'FnFn'], [\'3ml24-FF'], 0],
 157 ['5Pmb', '+3 -m -l 24', [\'tFFn', \'FFn'], [\'3ml24-FF'], 0],
 158 ['5Pmc', '+3 -m -l 24', [\'tn', \'FFn'], [\'3ml24-t-FF'], 0],
 159 #
 160 # Do not print header and footer but retain "FF set by Hand"
 161 # (-t option)
 162 ['6a', '-t -l 24', [\'tn'], [\'t-t'], 0],
 163 ['6b', '-t -l 24 -f', [\'tn'], [\'t-t'], 0],
 164 ['6c', '-t -l 24 -f', [\'tFFt-bl'], [\'t-bl'], 0],
 165 ['6d', '-t -l 24', [\'0FnFnt'], [\'t-0FF'], 0],
 166 ['6e', '-t -l 24', [\'FFn'], [\'t-FF'], 0],
 167 ['6f', '-t -l 24', [\'FnFn'], [\'t-FF'], 0],
 168 ['6g', '-t -l 24 -f', [\'FFn'], [\'t-FF'], 0],
 169 ['6aa', '-t -a -3', [\'0FnFnt'], [\'ta3-0FF'], 0],
 170 ['6ab', '-t -a -3', [\'FFn'], [\'ta3-FF'], 0],
 171 ['6ac', '-t -a -3 -l 24', [\'FnFn'], [\'ta3-FF'], 0],
 172 ['6ba', '-t -b -3', [\'0FnFnt'], [\'tb3-0FF'], 0],
 173 ['6bb', '-t -b -3', [\'FFn'], [\'tb3-FF'], 0],
 174 ['6bc', '-t -b -3 -l 24', [\'FnFn'], [\'tb3-FF'], 0],
 175 #
 176 # Do not print header and footer nor "FF set by Hand" (-T option)
 177 ['7a', '-T -l 24', [\'tn'], [\'tt-t'], 0],
 178 ['7b', '-T -l 24 -f', [\'tn'], [\'tt-t'], 0],
 179 ['7c', '-T -l 24 -f', [\'tFFt-bl'], [\'tt-bl'], 0],
 180 ['7d', '-T -l 24', [\'0FnFnt'], [\'tt-0FF'], 0],
 181 ['7e', '-T -l 24', [\'FFn'], [\'tt-FF'], 0],
 182 ['7f', '-T -l 24', [\'FnFn'], [\'tt-FF'], 0],
 183 ['7g', '-T -l 24 -f', [\'FFn'], [\'tt-FF'], 0],
 184 ['7aa', '-T -a -3', [\'0FnFnt'], [\'tta3-0FF'], 0],
 185 ['7ab', '-T -a -3', [\'FFn'], [\'tta3-FF'], 0],
 186 ['7ac', '-T -a -3 -l 24', [\'FnFn'], [\'tta3-FF'], 0],
 187 ['7ba', '-T -b -3', [\'0FnFnt'], [\'ttb3-0FF'], 0],
 188 ['7bb', '-T -b -3', [\'FFn'], [\'ttb3-FF'], 0],
 189 ['7bc', '-T -b -3 -l 24', [\'FnFn'], [\'ttb3-FF'], 0],
 190 #
 191 # lhs-truncation of header
 192 # pr-1.19m: Text line truncation only with column output
 193 #
 194 # numbering lines (-n  -N option)
 195 # skip pages (+FIRST_PAGE[:LAST_PAGE] option)
 196 ['9a', '-n.3 -l 24 -f', [\'tFFt-bl'], [\'nl24f-bl'], 0],
 197 ['9b', '-n.3 -N 15 -l 24 -f', [\'tFFt-bl'], [\'nN15l24f-bl'], 0],
 198 ['9Pa', '-n.3 +2 -l 24 -f', [\'tFFt-bl'], [\'n+2l24f-bl'], 0],
 199 ['9Pb', '-n.3 +3 -l 24 -f', [\'tFFt-bl'], [\'n+3l24f-bl'], 0],
 200 ['9Pc', '-n.3 -N 1 +3 -l 24 -f', [\'tFFt-bl'], [\'nN1+3l24f-bl'], 0],
 201 ['9Pe', '-n.3 +2 -l 24 -f', [\'0FFt'], [\'n+2l24f-0FF'], 0],
 202 ['9Pf', '-n.3 +2 -l 24 -f', [\'0FFnt'], [\'n+2l24f-0FF'], 0],
 203 ['9Pg', '-n.3 +2 -l 24 -f', [\'0FnFt'], [\'n+2l24f-0FF'], 0],
 204 ['9Ph', '-n.3 +2 -l 24 -f', [\'0FnFnt'], [\'n+2l24f-0FF'], 0],
 205 ['9Pi', '-n.3 +2:5 -l 24 -f', [\'0FFt'], [\'n+2-5l24f-0FF'], 0],
 206 ['9Pj', '-n.3 +3 -l 24 -f', [\'0FFt'], [\'n+3l24f-0FF'], 0],
 207 ['9Pk', '-n.3 +3 -l 24 -f', [\'0FFnt'], [\'n+3l24f-0FF'], 0],
 208 ['9Pl', '-n.3 +3 -l 24 -f', [\'0FnFt'], [\'n+3l24f-0FF'], 0],
 209 ['9Pm', '-n.3 +3 -l 24 -f', [\'0FnFnt'], [\'n+3l24f-0FF'], 0],
 210 ['9Pn', '-n.3 +7 -l 24', [\'FFn'], [\'n+7l24-FF'], 0],
 211 ['9Po', '-n.3 +7 -l 24', [\'FFtn'], [\'n+7l24-FF'], 0],
 212 ['9Pp', '-n.3 +7 -l 24', [\'FnFn'], [\'n+7l24-FF'], 0],
 213 ['9Pq', '-n.3 +3:7 -l 24', [\'FnFn'], [\'n+3-7l24-FF'], 0],
 214 ['9Pr', '-n.3 +8 -l 20', [\'tFFn'], [\'n+8l20-FF'], 0],
 215 ['9Ps', '-n.3 +8 -l 20', [\'tFnFt'], [\'n+8l20-FF'], 0],
 216 ['9Pt', '-n.3 +8 -l 20', [\'tFFt'], [\'n+8l20-FF'], 0],
 217 ['9Paa', '-n.3 +5 -a -3 -l 13 -f', [\'0FFt'], [\'n+5a3l13f-0FF'], 0],
 218 ['9Pab', '-n.3 +5 -a -3 -l 13 -f', [\'0FFnt'], [\'n+5a3l13f-0FF'], 0],
 219 ['9Pac', '-n.3 +5 -a -3 -l 13 -f', [\'0FnFt'], [\'n+5a3l13f-0FF'], 0],
 220 ['9Pad', '-n.3 +5 -a -3 -l 13 -f', [\'0FnFnt'], [\'n+5a3l13f-0FF'], 0],
 221 ['9Pae', '-n.3 +6 -a -2 -l 17', [\'FFn'], [\'n+6a2l17-FF'], 0],
 222 ['9Paf', '-n.3 +6 -a -2 -l 17', [\'FFtn'], [\'n+6a2l17-FF'], 0],
 223 ['9Pag', '-n.3 +6 -a -2 -l 17', [\'FnFn'], [\'n+6a2l17-FF'], 0],
 224 ['9Pah', '-n.3 +6 -a -2 -l 17', [\'tFFn'], [\'n+6a2l17-FF'], 0],
 225 ['9Pai', '-n.3 +6 -a -2 -l 17', [\'tFnFt'], [\'n+6a2l17-FF'], 0],
 226 ['9Paj', '-n.3 +6 -a -2 -l 17', [\'tFFt'], [\'n+6a2l17-FF'], 0],
 227 ['9Pak', '-n.3 +4:8 -a -2 -l 17', [\'tFFt'], [\'n+4-8a2l17-FF'], 0],
 228 ['9Pba', '-n.3 +4 -b -2 -l 17 -f', [\'0FFt'], [\'n+4b2l17f-0FF'], 0],
 229 ['9Pbb', '-n.3 +4 -b -2 -l 17 -f', [\'0FFnt'], [\'n+4b2l17f-0FF'], 0],
 230 ['9Pbc', '-n.3 +4 -b -2 -l 17 -f', [\'0FnFt'], [\'n+4b2l17f-0FF'], 0],
 231 ['9Pbd', '-n.3 +4 -b -2 -l 17 -f', [\'0FnFnt'], [\'n+4b2l17f-0FF'], 0],
 232 ['9Pbe', '-n.3 +6 -b -3 -l 13 -f', [\'FFn'], [\'n+6b3l13f-FF'], 0],
 233 ['9Pbf', '-n.3 +6 -b -3 -l 13 -f', [\'FFtn'], [\'n+6b3l13f-FF'], 0],
 234 ['9Pbg', '-n.3 +6 -b -3 -l 13 -f', [\'FnFn'], [\'n+6b3l13f-FF'], 0],
 235 ['9Pbh', '-n.3 +6 -b -3 -l 13 -f', [\'tFFn'], [\'n+6b3l13f-FF'], 0],
 236 ['9Pbi', '-n.3 +6 -b -3 -l 13 -f', [\'tFnFt'], [\'n+6b3l13f-FF'], 0],
 237 ['9Pbj', '-n.3 +6 -b -3 -l 13 -f', [\'tFFt'], [\'n+6b3l13f-FF'], 0],
 238 ['9Pbk', '-n.3 +5:8 -b -3 -l 17 -f', [\'FnFn'], [\'n+5-8b3l17f-FF'], 0],
 239 ['9Pma', '-n.3 +3 -m -l 20 -f', [\'tFFt-bl', \'FnFn'], [\'n+3ml20f-bl-FF'], 0],
 240 ['9Pmb', '-n.3 +3 -m -l 24 -f', [\'tFFt-bl', \'tn'], [\'n+3ml24f-bl-tn'], 0],
 241 ['9Pmc', '-n.3 +3 -m -l 24 -f', [\'tn', \'tFFt-bl'], [\'n+3ml24f-tn-bl'], 0],
 242 #
 243 # line truncation  column alignment; header line truncation
 244 # -w/W PAGE_WIDTH [-J] options
 245 ['10wa', '-W 72 -J -l24 -f', [\'tFFt-ll'], [\'W72Jl24f-ll'], 0],
 246 ['10wb', '-w 72 -J -l24 -f', [\'tFFt-ll'], [\'W72Jl24f-ll'], 0],
 247 ['10wc', '-W 72 -l24 -f', [\'tFFt-ll'], [\'W-72l24f-ll'], 0],
 248 ['10wd', '-w 72 -l24 -f', [\'tFFt-ll'], [\'w72l24f-ll'], 0],
 249 ['10we', '-W 28 -l24 -f', [\'tFFt-ll'], [\'W28l24f-ll'], 0],
 250 ['10wf', '-W 27 -l24 -f', [\'tFFt-ll'], [\'W27l24f-ll'], 0],
 251 ['10wg', '-W 26 -l24 -f', [\'tFFt-ll'], [\'W26l24f-ll'], 0],
 252 ['10wh', '-W 20 -l24 -f', [\'tFFt-ll'], [\'W20l24f-ll'], 0],
 253 ['10ma', '-m -l 24 -f', [\'tFFt-lm', \'loli'], [\'ml24f-lm-lo'], 0],
 254 ['10mb', '-W 35 -m -l 24 -f', [\'tFFt-lm', \'loli'], [\'W35ml24f-lm-lo'], 0],
 255 ['10mc', '-w 35 -m -l 24 -f', [\'tFFt-lm', \'loli'], [\'W35ml24f-lm-lo'], 0],
 256 ['10md', '-J -m -l 24 -f', [\'tFFt-lm', \'loli'], [\'Jml24f-lm-lo'], 0],
 257 ['10me', '-W 35 -J -m -l 24 -f', [\'tFFt-lm', \'loli'], [\'W35Jml24f-lmlo'], 0],
 258 ['10mf', '-w 35 -J -m -l 24 -f', [\'tFFt-lm', \'loli'], [\'W35Jml24f-lmlo'], 0],
 259 ['10mg', '-n.3 -J -m -l 24 -f', [\'tFFt-lm', \'tFFt-lm', \'loli'],
 260  [\'nJml24f-lmlmlo'], 0],
 261 ['10mh', '-n.3 -J -m -l 24 -f', [\'tFFt-lm', \'loli', \'tFFt-lm'],
 262  [\'nJml24f-lmlolm'], 0],
 263 ['10aa', '-a -3 -l 24 -f', [\'tFFt-lm'], [\'a3l24f-lm'], 0],
 264 ['10ab', '-W 35 -a -3 -l 24 -f', [\'tFFt-lm'], [\'W35a3l24f-lm'], 0],
 265 ['10ac', '-J -a -3 -l 24 -f', [\'tFFt-lm'], [\'Ja3l24f-lm'], 0],
 266 ['10ad', '-W 35 -J -a -3 -l 24 -f', [\'tFFt-lm'], [\'W35Ja3l24f-lm'], 0],
 267 ['10ba', '-b -3 -l 24 -f', [\'tFFt-lm'], [\'b3l24f-lm'], 0],
 268 ['10bb', '-W 35 -b -3 -l 24 -f', [\'tFFt-lm'], [\'W35b3l24f-lm'], 0],
 269 ['10bc', '-J -b -3 -l 24 -f', [\'tFFt-lm'], [\'Jb3l24f-lm'], 0],
 270 ['10bd', '-W 35 -J -b -3 -l 24 -f', [\'tFFt-lm'], [\'W35Jb3l24f-lm'], 0],
 271 #
 272 # merge files (-m option)  use separator string (-S option)
 273 ['11sa', '-n.3 -S:--: -m -l 20 -f', [\'tFFt-bl', \'FnFn'],
 274  [\'nSml20-bl-FF'], 0],
 275 ['11sb', '-n.3 -S:--: -m -l 24 -f', [\'tFFt-bl', \'FnFn'],
 276  [\'nSml24-bl-FF'], 0],
 277 ['11se', '-n.3 -S:--: -m -l 20 -f', [\'tn', \'tn', \'FnFn'],
 278  [\'nSml20-t-t-FF'], 0],
 279 ['11sf', '-n.3 -S:--: -m -l 24 -f', [\'tn', \'tn', \'FnFn'],
 280  [\'nSml24-t-t-FF'], 0],
 281 ['11sg', '-n.3 -S:--: -m -l 20 -f', [\'tn', \'tn', \'FnFn', \'FnFn'],
 282  [\'nSml20-t-tFFFF'], 0],
 283 ['11sh', '-n.3 -S:--: -m -l 24 -f', [\'tn', \'tn', \'FnFn', \'FnFn'],
 284  [\'nSml24-t-tFFFF'], 0],
 285 #
 286 # left margin (-o option) and separator string (-S option)
 287 ['12aa', '-o3 -a -3 -l24 -f', [\'tn'], [\'o3a3l24f-tn'], 0],
 288 ['12ab', '-o3 -a -3 -S:--: -l24 -f', [\'tn'], [\'o3a3Sl24f-tn'], 0],
 289 ['12ac', '-o3 -a -3 -S:--: -n. -l24 -f', [\'tn'], [\'o3a3Snl24f-tn'], 0],
 290 ['12ba', '-o3 -b -3 -l24 -f', [\'tn'], [\'o3b3l24f-tn'], 0],
 291 ['12bb', '-o3 -b -3 -S:--: -l24 -f', [\'tn'], [\'o3b3Sl24f-tn'], 0],
 292 ['12bc', '-o3 -b -3 -S:--: -n. -l24 -f', [\'tn'], [\'o3b3Snl24f-tn'], 0],
 293 ['12ma', '-o3 -m -l24 -f', [\'tFFt-bl', \'tn'], [\'o3ml24f-bl-tn'], 0],
 294 ['12mb', '-o3 -m -S:--: -l24 -f', [\'tFFt-bl', \'tn'], [\'o3mSl24f-bl-tn'], 0],
 295 ['12mc', '-o3 -m -S:--: -n. -l24 -f', [\'tFFt-bl', \'tn'],
 296  [\'o3mSnl24fbltn'], 0],
 297 ['12md', '-o3 -J -m -l24 -f', [\'tFFt-lm', \'loli'], [\'o3Jml24f-lm-lo'], 0],
 298 #
 299 #
 300 # Single column output: POSIX compliant, adapt other UNIXes (SunOS.5.5.1 e.g.)
 301 # number-separator TAB always an output TAB --> varying number/text-spacing
 302 ['13a', '-t -n -e8', [\'t_tab'], [\'tne8-t_tab'], 0],
 303 ['13b', '-t -n -e8 -o3', [\'t_tab'], [\'tne8o3-t_tab'], 0],
 304 #
 305 # POSIX compliant: multi-columns of equal width (unlike SunOS.5.5.1 e.g.)
 306 # text-tab handling
 307 ['13ba', '-t -n -2 -e8', [\'t_tab'], [\'tn2e8-t_tab'], 0],
 308 ['13bb', '-t -n: -2 -e8', [\'t_tab'], [\'tn_2e8-t_tab'], 0],
 309 ['13bc', '-t -n: -2 -e8 -S----', [\'t_tab'], [\'tn_2e8S-t_tab'], 0],
 310 ['13bd', '-t -n -2 -e8 -o3', [\'t_tab'], [\'tn2e8o3-t_tab'], 0],
 311 # number-separator TAB not treated as input text-tab, no '-e' expansion
 312 ['13be', '-t -n -2 -e5 -o3', [\'t_tab'], [\'tn2e5o3-t_tab'], 0],
 313 # input-tab-char ':' not equal default (text) TABs
 314 ['13bf', '-t -n -2 -e:8', [\'t_tab_'], [\'tn2e8-t_tab'], 0],
 315 #
 316 # options -w/-s: POSIX-compliant, means adapting the interference of -w/-s
 317 # with multi-column output from other UNIXes (SunOS e.g.);
 318 # columns, truncated = 72   /  separator = space :
 319 ['14a', '-2 -f', [\'t_notab'], [\'2f-t_notab'], 0],
 320 # full lines, no truncation /  separator = TAB :
 321 ['14b', '-2 -s -f', [\'t_notab'], [\'2sf-t_notab'], 0],
 322 # full lines, no truncation /  separator = ':' :
 323 ['14c', '-2 -s: -f', [\'t_notab'], [\'2s_f-t_notab'], 0],
 324 # columns, truncated = 60   /  separator = space :
 325 ['14d', '-2 -w60 -f', [\'t_notab'], [\'2w60f-t_notab'], 0],
 326 # columns, truncated = 60   /  no separator   (SunOS-BUG: line width to small):
 327 ['14e', '-2 -s -w60 -f', [\'t_notab'], [\'2sw60f-t_notab'], 0],
 328 # columns, truncated = 60   /  separator = ':'  (HP-UX.10.20-2-BUG:
 329 # ':' missing with -m option):
 330 ['14f', '-2 -s: -w60 -f', [\'t_notab'], [\'2s_w60f-t_nota'], 0],
 331 #
 332 # new long-options -W/-S/-J disentangle those options (see also No.'10*')
 333 # columns, truncated = 72   /  no separator :
 334 ['14g', '-2 -S -f', [\'t_notab'], [\'2-Sf-t_notab'], 0],
 335 # full lines, no truncation /  separator = TAB :  (Input: -S"<TAB>")
 336 ['14h', '-2 -S" " -J -f', [\'t_notab'], [\'2sf-t_notab'], 0],
 337 # columns, truncated = 72   /  separator ':' :
 338 ['14i', '-2 -S: -f', [\'t_notab'], [\'2-S_f-t_notab'], 0],
 339 # full lines, no truncation /  separator = ':' :
 340 ['14j', '-2 -S: -J -f', [\'t_notab'], [\'2s_f-t_notab'], 0],
 341 # columns, truncated = 60   /  separator = space:
 342 ['14k', '-2 -W60 -f', [\'t_notab'], [\'2w60f-t_notab'], 0],
 343 # columns, truncated = 60   /  no separator :
 344 ['14l', '-2 -S -W60 -f', [\'t_notab'], [\'2sw60f-t_notab'], 0],
 345 # columns, truncated = 60   /  separator = ':' :
 346 ['14m', '-2 -S: -W60 -f', [\'t_notab'], [\'2s_w60f-t_nota'], 0],
 347 #
 348 # Tabify multiple spaces, -i option
 349 # number of input spaces between a and b must not change; be careful
 350 # comparing with other UNIXes (some other SunOS examples are OK !?)
 351 # SunOS.5.5.1-BUG: 8 input spaces --> 11 output spaces between a and b;
 352 ['i-opt-a', '-tn -i5 -h ""', "a        b\n", "    1     a           b\n", 0],
 353 # SunOS.5.5.1-BUG: 8 input spaces -->  9 output spaces between a and b;
 354 ['i-opt-b', '-tn -i5 -o9 -h ""', "a        b\n",
 355  "                 1    a           b\n", 0],
 356 #
 357 # line number overflow not allowed: cut off leading digits;
 358 # don't adapt other UNIXes, no real standard to follow, a consequent
 359 # programming of column handling may change the GNU pr concept.
 360 ['ncut-a', '-tn2 -N98', "y\ny\ny\ny\ny\n",
 361  "98    y\n99   y\n00   y\n01   y\n02   y\n", 0],
 362 ['ncut-b', '-tn:2 -N98', "y\ny\ny\ny\ny\n",
 363  "98:y\n99:y\n00:y\n01:y\n02:y\n", 0],
 364
 365 ['margin-0', '-o 0', '', '', 0],
 366
 367 # BUG fixed: that leading space on 3rd line of output should not be there
 368 ['dbl-sp-a', '-d -l 14 -h ""', "1\n2\n",
 369  "\n\n-- Date/Time --                                                   "
 370  . "Page 1\n\n\n1\n\n2\n\n\n\n\n\n\n", 0],
 371 # This test failed with 1.22e and earlier.
 372 ['dbl-sp-b', '-d -t', "1\n2\n", "1\n\n2\n\n", 0],
 373
 374 # This test would segfault with 2.0f and earlier.
 375 ['narrow-1', '-W1 -t', "12345\n", "1\n", 0],
 376
 377 # This test would fail with textutils-2.1 and earlier.
 378 ['col-last', '-W3 -t2', "a\nb\nc\n", "a c\nb\n", 0],
 379
 380 # Make sure that -02 is treated just like -2.
 381 ['col-02', '-W3 -t -02',                "a\nb\nc\n", "a c\nb\n", 0],
 382 # The -2 must override preceding column-count-specifying options.
 383 ['col-2', '-W3 -t -4 --columns=1 -2', "a\nb\nc\n", "a c\nb\n", 0],
 384 # The --columns=2 must override preceding column-count-specifying options.
 385 ['col-long', '-W3 -t -1 --columns=2',     "a\nb\nc\n", "a c\nb\n", 0],
 386 # Make sure these fail.
 387 ['col-0', '-0', '', '', 1,
 388  "$prog: invalid number of columns: '0'\n"],
 389 ['col-inval', '-'.'9'x100, '', '', 1,
 390  "$prog: invalid number of columns: '". ('9'x100) ."'\n"],
 391
 392 # Before coreutils-5.3.1, --pages=1:-1 would be treated like
 393 # --pages=1:18446744073709551615.
 394 ['neg-page', '--pages=1:-1', '', '', 1,
 395  "$prog: invalid --pages argument '1:-1'\n"],
 396
 397 # Up to coreutils-6.10, this would cause pr to decrement its
 398 # internal "input_position" below zero and sometimes segfault.
 399 ['neg-inp-pos1', '-t -e', "\b\b\b\b\b\b\tx\n", "        x\n", 0],
 400 # NB: while there are 4 backspaces in the input, there are only 3 in the output
 401 ['neg-inp-pos2', '-t -e', "abc\b\b\b\b\tx", "abc\b\b\b        x\n", 0],
 402
 403 # This would clobber so much of the heap, it'd segfault or abort every time.
 404 ['smash-heap', '-t -e300', "a".("\b"x50)."\t", "a\b".(" "x300)."\n", 0],
 405 ['smash-heap8', '-t -e',   "a".("\b"x50)."\t", "a\b".(" "x  8)."\n", 0],
 406
 407 # Before coreutils-8.13 page numbers were not handled correctly when
 408 # headers were not printed (when -l <= 10 or -t or -T specified)
 409 ['page-range', '+1:1 -2 -l1 -s" "',  "a\nb\nc\n", "a b\n", 0],
 410 );
 411
 412 # Convert the above old-style test vectors to the newer
 413 # format used by Coreutils.pm.
 414
 415 my $pfx = "$ENV{abs_srcdir}/pr";
 416
 417 # Normalize otherwise-variable output page headers.
 418 my $common_option_prefix = '--date-format="-- Date/Time --" -h x';
 419
 420 my @Tests;
 421 foreach my $t (@tv)
 422   {
 423     my ($test_name, $flags, $in, $exp, $ret, $err_msg) = @$t;
 424     my $new_ent = [$test_name, $common_option_prefix, $flags];
 425     if (!ref $in)
 426       {
 427         push @$new_ent, {IN=>$in};
 428       }
 429     else
 430       {
 431         foreach my $e (@$in)
 432           {
 433             my $file_name = $$e;
 434             push @$new_ent, {IN=>{"$pfx/$file_name"=>undef}};
 435           }
 436       }
 437     if (!ref $exp)
 438       {
 439         push @$new_ent, {OUT=>$exp};
 440       }
 441     else
 442       {
 443         foreach my $e (@$exp)
 444           {
 445             my $file_name = $$e;
 446             push @$new_ent, {OUT=>{"$pfx/$file_name"=>undef}};
 447           }
 448       }
 449     $ret
 450       and push @$new_ent, {EXIT=>$ret}, {ERR=>$err_msg};
 451     push @Tests, $new_ent;
 452   }
 453
 454 @Tests = triple_test \@Tests;
 455
 456 my $save_temps = $ENV{DEBUG};
 457 my $verbose = $ENV{VERBOSE};
 458
 459 my $fail = run_tests ($prog, $prog, \@Tests, $save_temps, $verbose);
 460 exit $fail;