Adapted for new mk-script.pl.

diff --git a/tests/join/Test.pm b/tests/join/Test.pm
index 32297d0ba2db2dadb5fcf51f96433da0b3f8c2ce..1af0cf04805ae0df7c153e236364b65a0d0eacaa 100644 (file)
--- a/tests/join/Test.pm
+++ b/tests/join/Test.pm
@@ -7,105 +7,92 @@ my $nl = "\n";
 # test name
 #     flags       file-1 file-2    expected output   expected return code
 #
-['1a', '-a1',      "a 1\n", "b\n",   "a 1\n",          0],
-['1b', '-a2',      "a 1\n", "b\n",   "b\n",            0], # Got "\n"
-['1c', '-a1 -a2',  "a 1\n", "b\n",   "a 1\nb\n",       0], # Got "a 1\n\n"
-['1d', '-a1',      "a 1\nb\n", "b\n",   "a 1\nb\n",    0],
-['1e', '-a2',      "a 1\nb\n", "b\n",   "b\n",         0],
-['1f', '-a2',      "b\n", "a\nb\n", "a\nb\n",          0],
+['1a', '-a1',      ["a 1\n", "b\n"],   "a 1\n",          0],
+['1b', '-a2',      ["a 1\n", "b\n"],   "b\n",            0], # Got "\n"
+['1c', '-a1 -a2',  ["a 1\n", "b\n"],   "a 1\nb\n",       0], # Got "a 1\n\n"
+['1d', '-a1',      ["a 1\nb\n", "b\n"],   "a 1\nb\n",    0],
+['1e', '-a2',      ["a 1\nb\n", "b\n"],   "b\n",         0],
+['1f', '-a2',      ["b\n", "a\nb\n"], "a\nb\n",          0],
 
-['2a', '-a1 -e .',  "a\nb\nc\n", "a x y\nb\nc\n", "a x y\nb\nc\n", 0],
-['2b', '-a1 -e . -o 2.1,2.2,2.3',  "a\nb\nc\n", "a x y\nb\nc\n",
+['2a', '-a1 -e .',  ["a\nb\nc\n", "a x y\nb\nc\n"], "a x y\nb\nc\n", 0],
+['2b', '-a1 -e . -o 2.1,2.2,2.3',  ["a\nb\nc\n", "a x y\nb\nc\n"],
  "a x y\nb . .\nc . .\n", 0],
-['2c', '-a1 -e . -o 2.1,2.2,2.3',  "a\nb\nc\nd\n", "a x y\nb\nc\n",
+['2c', '-a1 -e . -o 2.1,2.2,2.3',  ["a\nb\nc\nd\n", "a x y\nb\nc\n"],
  "a x y\nb . .\nc . .\n. . .\n", 0],
 
-['3a', '-t:', "a:1\nb:1\n", "a:2:\nb:2:\n", "a:1:2:\nb:1:2:\n", 0],
+['3a', '-t:', ["a:1\nb:1\n", "a:2:\nb:2:\n"], "a:1:2:\nb:1:2:\n", 0],
 
 # Just like -a1 and -a2 when there are no pairable lines
-['4a', '-v 1', "a 1\n", "b\n",   "a 1\n",          0],
-['4b', '-v 2', "a 1\n", "b\n",   "b\n",            0],
+['4a', '-v 1', ["a 1\n", "b\n"],   "a 1\n",          0],
+['4b', '-v 2', ["a 1\n", "b\n"],   "b\n",            0],
 
-['4c', '-v 1', "a 1\nb\n", "b\n",        "a 1\n",       0],
-['4d', '-v 2', "a 1\nb\n", "b\n",        "",            0],
-['4e', '-v 2', "b\n",      "a 1\nb\n",   "a 1\n",       0],
+['4c', '-v 1', ["a 1\nb\n", "b\n"],        "a 1\n",       0],
+['4d', '-v 2', ["a 1\nb\n", "b\n"],        "",            0],
+['4e', '-v 2', ["b\n",      "a 1\nb\n"],   "a 1\n",       0],
 ['5a', '-a1 -e - -o 1.1 2.2',
- "a 1\nb 2\n",  "a 11\nb\n", "a 11\nb -\n", 0],
+ ["a 1\nb 2\n",  "a 11\nb\n"], "a 11\nb -\n", 0],
 ['5b', '-a1 -e - -o 1.1 2.2',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\nfeb 15",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\nfeb 15"],
  "apr 06\naug 14\ndec -\nfeb 15\n", 0],
 ['5c', '-a1 -e - -o 1.1 2.2',
- "aug 20\ndec 18\n",
- "aug 14\ndate\nfeb 15",
+ ["aug 20\ndec 18\n", "aug 14\ndate\nfeb 15"],
  "aug 14\ndec -\n", 0],
-['5d', '-a1 -e - -o 1.1 2.2', "dec 18\n",  "", "dec -\n", 0],
+['5d', '-a1 -e - -o 1.1 2.2',
+ ["dec 18\n",  ""], "dec -\n", 0],
 ['5e', '-a2 -e - -o 1.1 2.2',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\nfeb 15\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\nfeb 15\n"],
  "apr 06\naug 14\n- -\nfeb 15\n", 0],
 ['5f', '-a2 -e - -o 2.2 1.1',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\nfeb 15\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\nfeb 15\n"],
  "06 apr\n14 aug\n- -\n15 feb\n", 0],
 ['5g', '-a1 -e - -o 2.2 1.1',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\nfeb 15\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\nfeb 15\n"],
  "06 apr\n14 aug\n- dec\n15 feb\n", 0],
 
 ['5h', '-a1 -e - -o 2.2 1.1',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\n"],
  "06 apr\n14 aug\n- dec\n- feb\n", 0],
 ['5i', '-a1 -e - -o 1.1 2.2',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\n"],
  "apr 06\naug 14\ndec -\nfeb -\n", 0],
 
 ['5j', '-a2 -e - -o 2.2 1.1',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
- "apr 06\naug 14\ndate\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\n"],
  "06 apr\n14 aug\n- -\n", 0],
 ['5k', '-a2 -e - -o 2.2 1.1',
- "apr 15\naug 20\ndec 18\nfeb 05\n",
-   "apr 06\naug 14\ndate\n",
+ ["apr 15\naug 20\ndec 18\nfeb 05\n", "apr 06\naug 14\ndate\n"],
   "06 apr\n14 aug\n- -\n", 0],
 
 ['5l', '-a1 -e - -o 2.2 1.1',
-  "apr 15\naug 20\ndec 18\n",
-   "apr 06\naug 14\ndate\nfeb 15\n",
+ ["apr 15\naug 20\ndec 18\n", "apr 06\naug 14\ndate\nfeb 15\n"],
   "06 apr\n14 aug\n- dec\n", 0],
 ['5m', '-a2 -e - -o 2.2 1.1',
-  "apr 15\naug 20\ndec 18\n",
-   "apr 06\naug 14\ndate\nfeb 15\n",
+ ["apr 15\naug 20\ndec 18\n", "apr 06\naug 14\ndate\nfeb 15\n"],
   "06 apr\n14 aug\n- -\n15 -\n", 0],
 
 ['6a', '-e -',
- "a 1\nb 2\nd 4\n",
- "a 21\nb 22\nc 23\nf 26\n",
+ ["a 1\nb 2\nd 4\n", "a 21\nb 22\nc 23\nf 26\n"],
  "a 1 21\nb 2 22\n", 0],
 ['6b', '-a1 -e -',
- "a 1\nb 2\nd 4\n",
- "a 21\nb 22\nc 23\nf 26\n",
+ ["a 1\nb 2\nd 4\n", "a 21\nb 22\nc 23\nf 26\n"],
  "a 1 21\nb 2 22\nd 4\n", 0],
 ['6c', '-a1 -e -',
- "a 21\nb 22\nc 23\nf 26\n",
- "a 1\nb 2\nd 4\n",
+ ["a 21\nb 22\nc 23\nf 26\n", "a 1\nb 2\nd 4\n"],
  "a 21 1\nb 22 2\nc 23\nf 26\n", 0],
 
-['7a', '-a1 -e . -o 2.7',  "a\nb\nc\n", "a x y\nb\nc\n", ".\n.\n.\n", 0],
+['7a', '-a1 -e . -o 2.7',
+ ["a\nb\nc\n", "a x y\nb\nc\n"], ".\n.\n.\n", 0],
 
 ['8a', '-a1 -e . -o 0,1.2',
- "a\nb\nc\nd G\n",
- "a x y\nb\nc\ne\n",
+ ["a\nb\nc\nd G\n", "a x y\nb\nc\ne\n"],
  "a .\nb .\nc .\nd G\n", 0],
 ['8b', '-a1 -a2 -e . -o 0,1.2',
- "a\nb\nc\nd G\n",
- "a x y\nb\nc\ne\n",
+ ["a\nb\nc\nd G\n", "a x y\nb\nc\ne\n"],
  "a .\nb .\nc .\nd G\ne .\n", 0],
 
 # From David Dyck
-['9a', '',  " a 1\n b 2\n", " a Y\n b Z\n", "a 1 Y\nb 2 Z\n", 0],
+['9a', '',
+ [" a 1\n b 2\n", " a Y\n b Z\n"], "a 1 Y\nb 2 Z\n", 0],
 );
 
 1;