tests/sort/Test.pm

   1 # -*-perl-*-
   2 package Test;
   3 require 5.002;
   4 use strict;
   5
   6 @Test::t = (
   7 #test   options   input   expected-output   expected-return-code
   8 #
   9 ["01a", '', "A\nB\nC\n", "A\nB\nC\n", 0],
  10 #
  11 ["02a", '-c', "A\nB\nC\n", '', 0],
  12 ["02b", '-c', "A\nC\nB\n", '', 1],
  13 # This should fail because there are duplicate keys
  14 ["02c", '-cu', "A\nA\n", '', 1],
  15 ["02d", '-cu', "A\nB\n", '', 0],
  16 ["02e", '-cu', "A\nB\nB\n", '', 1],
  17 ["02f", '-cu', "B\nA\nB\n", '', 1],
  18 #
  19 ["03a", '-k1', "B\nA\n", "A\nB\n",  0],
  20 ["03b", '-k1,1', "B\nA\n", "A\nB\n",  0],
  21 ["03c", '-k1 -k2', "A b\nA a\n", "A a\nA b\n",  0],
  22 # FIXME: fail with a diagnostic when -k specifies field == 0
  23 ["03d", '-k0', "", "",  2],
  24 # FIXME: fail with a diagnostic when -k specifies character == 0
  25 ["03e", '-k1.0', "", "",  2],
  26 ["03f", '-k1.1,-k0', "", "",  2],
  27 # This is ok.
  28 ["03g", '-k1.1,1.0', "", "",  0],
  29 # This is equivalent to 3f.
  30 ["03h", '-k1.1,1', "", "",  0],
  31 # This too, is equivalent to 3f.
  32 ["03i", '-k1,1', "", "",  0],
  33 #
  34 ["04a", '-nc', "2\n11\n", "",  0],
  35 ["04b", '-n', "11\n2\n", "2\n11\n", 0],
  36 ["04c", '-k1n', "11\n2\n", "2\n11\n", 0],
  37 ["04d", '-k1', "11\n2\n", "11\n2\n", 0],
  38 ["04e", '-k2', "ignored B\nz-ig A\n", "z-ig A\nignored B\n", 0],
  39 #
  40 ["05a", '-k1,2', "A B\nA A\n", "A A\nA B\n", 0],
  41 ["05b", '-k1,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  42 ["05c", '-k1 -k2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  43 ["05d", '-k2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  44 ["05e", '-k2,2', "A B Z\nA A A\n", "A A A\nA B Z\n", 0],
  45 ["05f", '-k2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  46 #
  47 ["06a", '-k 1,2', "A B\nA A\n", "A A\nA B\n", 0],
  48 ["06b", '-k 1,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  49 ["06c", '-k 1 -k 2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  50 ["06d", '-k 2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  51 ["06e", '-k 2,2', "A B Z\nA A A\n", "A A A\nA B Z\n", 0],
  52 ["06f", '-k 2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0],
  53 #
  54 ["07a", '-k 2,3', "9 a b\n7 a a\n", "7 a a\n9 a b\n", 0],
  55 ["07b", '-k 2,3', "a a b\nz a a\n", "z a a\na a b\n", 0],
  56 ["07c", '-k 2,3', "y k b\nz k a\n", "z k a\ny k b\n", 0],
  57 ["07d", '+1 -3', "y k b\nz k a\n", "z k a\ny k b\n", 0],
  58 #
  59 # report an error for `.' without following char spec
  60 ["08a", '-k 2.,3', "", "", 2],
  61 # report an error for `,' without following POS2
  62 ["08b", '-k 2,', "", "", 2],
  63 #
  64 # Test new -g option.
  65 ["09a", '-g', "1e2\n2e1\n", "2e1\n1e2\n", 0],
  66 # Make sure -n works how we expect.
  67 ["09b", '-n', "1e2\n2e1\n", "1e2\n2e1\n", 0],
  68 ["09c", '-n', "2e1\n1e2\n", "1e2\n2e1\n", 0],
  69 ["09d", '-k2g', "a 1e2\nb 2e1\n", "b 2e1\na 1e2\n", 0],
  70 #
  71 # Bug reported by Roger Peel" <R.Peel@ee.surrey.ac.uk>
  72 ["10a", '-t : -k 2.2,2.2', ":ba\n:ab\n", ":ba\n:ab\n", 0],
  73 # Equivalent to above, but using obsolescent `+pos -pos' option syntax.
  74 ["10b", '-t : +1.1 -1.2', ":ba\n:ab\n", ":ba\n:ab\n", 0],
  75 #
  76 # The same as the preceding two, but with input lines reversed.
  77 ["10c", '-t : -k 2.2,2.2', ":ab\n:ba\n", ":ba\n:ab\n", 0],
  78 # Equivalent to above, but using obsolescent `+pos -pos' option syntax.
  79 ["10d", '-t : +1.1 -1.2', ":ab\n:ba\n", ":ba\n:ab\n", 0],
  80 # Try without -t...
  81 # But note that we have to count the delimiting space at the beginning
  82 # of each field that has it.
  83 ["10a0", '-k 2.3,2.3', "z ba\nz ab\n", "z ba\nz ab\n", 0],
  84 ["10a1", '-k 1.2,1.2', "ba\nab\n", "ba\nab\n", 0],
  85 ["10a2", '-b -k 2.2,2.2', "z ba\nz ab\n", "z ba\nz ab\n", 0],
  86 #
  87 # An even simpler example demonstrating the bug.
  88 ["10e", '-k 1.2,1.2', "ab\nba\n", "ba\nab\n", 0],
  89 #
  90 # The way sort works on these inputs (10f and 10g) seems wrong to me.
  91 # See May 30 ChangeLog entry.  POSIX doesn't seem to say one way or
  92 # the other, but that's the way all other sort implementations work.
  93 ["10f", '-t : -k 1.3,1.3', ":ab\n:ba\n", ":ba\n:ab\n", 0],
  94 ["10g", '-k 1.4,1.4', "a ab\nb ba\n", "b ba\na ab\n", 0],
  95 #
  96 # Exercise bug re using -b to skip trailing blanks.
  97 ["11a", '-t: -k1,1b -k2,2', "a\t:a\na :b\n", "a\t:a\na :b\n", 0],
  98 ["11b", '-t: -k1,1b -k2,2', "a :b\na\t:a\n", "a\t:a\na :b\n", 0],
  99 ["11c", '-t: -k2,2b -k3,3', "z:a\t:a\na :b\n", "z:a\t:a\na :b\n", 0],
 100 ["11d", '-t: -k2,2b -k3,3', "z:a :b\na\t:a\n", "a\t:a\nz:a :b\n", 0],
 101 #
 102 # Exercise bug re comparing `-' and integers.
 103 ["12a", '-n -t: +1', "a:1\nb:-\n", "b:-\na:1\n", 0],
 104 ["12b", '-n -t: +1', "b:-\na:1\n", "b:-\na:1\n", 0],
 105 # Try some other (e.g. `X') invalid character.
 106 ["12c", '-n -t: +1', "a:1\nb:X\n", "b:X\na:1\n", 0],
 107 ["12d", '-n -t: +1', "b:X\na:1\n", "b:X\na:1\n", 0],
 108 # From Karl Heuer
 109 ["13a", '+0.1n', "axx\nb-1\n", "b-1\naxx\n", 0],
 110 ["13b", '+0.1n', "b-1\naxx\n", "b-1\naxx\n", 0],
 111 #
 112 # From Carl Johnson <carlj@cjlinux.home.org>
 113 ["14a", '-d -u', "mal\nmal-\nmala\n", "mal\nmala\n", 0],
 114 # Be sure to fix the (translate && ignore) case in keycompare.
 115 ["14b", '-f -d -u', "mal\nmal-\nmala\n", "mal\nmala\n", 0],
 116 #
 117 # Experiment with -i.
 118 ["15a", '-i -u', "a\na\1\n", "a\n", 0],
 119 ["15b", '-i -u', "a\n\1a\n", "a\n", 0],
 120 ["15c", '-i -u', "a\1\na\n", "a\1\n", 0],
 121 ["15d", '-i -u', "\1a\na\n", "\1a\n", 0],
 122 ["15e", '-i -u', "a\n\1\1\1\1\1a\1\1\1\1\n", "a\n", 0],
 123
 124 # From Erick Branderhorst -- fixed around 1.19e
 125 ["16a", '-f',
 126  "éminence\nüberhaupt\n's-Gravenhage\naëroclub\nAag\naagtappels\n",
 127  "'s-Gravenhage\nAag\naagtappels\naëroclub\néminence\nüberhaupt\n",
 128  0],
 129
 130 );
 131
 132 1;