summaryrefslogtreecommitdiff
path: root/tests/join
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2008-05-10 12:11:52 +0200
committerJim Meyering <meyering@redhat.com>2008-05-10 13:35:30 +0200
commit346dd8b5bf066749ca1cd2885e8298a75a104bf4 (patch)
tree8130457719cc4d9551260ce9b435e53046f4e70d /tests/join
parent65d65fe09457d465a3742ab7b17ca445c5dafbe3 (diff)
downloadcoreutils-346dd8b5bf066749ca1cd2885e8298a75a104bf4.tar.xz
tests: remove directory, tests/join/
* configure.ac (AC_CONFIG_FILES): Remove tests/join/Makefile. * tests/misc/join: New file, with tests from... * tests/join/Test.pm: ...here. Remove file. * tests/Makefile.am (SUBDIRS): Remove definition.
Diffstat (limited to 'tests/join')
-rw-r--r--tests/join/Test.pm186
1 files changed, 0 insertions, 186 deletions
diff --git a/tests/join/Test.pm b/tests/join/Test.pm
deleted file mode 100644
index 74fb32628..000000000
--- a/tests/join/Test.pm
+++ /dev/null
@@ -1,186 +0,0 @@
-# Test "join".
-
-# Copyright (C) 1996, 1999-2000, 2003-2004, 2008 Free Software Foundation, Inc.
-
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-package Test;
-require 5.002;
-use strict;
-
-my $delim = chr 0247;
-sub t_subst ($)
-{
- (my $s = $_[0]) =~ s/:/$delim/g;
- return $s;
-}
-
-my @tv = (
-# 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],
-
-['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"],
- "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],
-
-# 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],
-
-['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],
-['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 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 14\ndec -\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 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"],
- "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"],
- "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"],
- "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 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"],
- "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"],
- "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"],
- "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"],
- "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 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 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 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],
-
-['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", 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\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],
-
-# From Tim Smithers: fixed in 1.22l
-['trailing-sp', '-t: -1 1 -2 1', ["a:x \n", "a:y \n"], "a:x :y \n", 0],
-
-# From Paul Eggert: fixed in 1.22n
-['sp-vs-blank', '', ["\f 1\n", "\f 2\n"], "\f 1 2\n", 0],
-
-# From Paul Eggert: fixed in 1.22n (this would fail on Solaris7,
-# with LC_ALL set to en_US).
-# Unfortunately, that Solaris7's en_US local folds case (making
-# the first input file sorted) is not portable, so this test would
-# fail on e.g. Linux systems, because the input to join isn't sorted.
-# ['lc-collate', '', ["a 1a\nB 1B\n", "B 2B\n"], "B 1B 2B\n", 0],
-
-# Based on a report from Antonio Rendas. Fixed in 2.0.9.
-['8-bit-t', t_subst "-t:",
- [t_subst "a:1\nb:1\n", t_subst "a:2:\nb:2:\n"],
- t_subst "a:1:2:\nb:1:2:\n", 0],
-
-['bigfield', '-1 340282366920938463463374607431768211456 -2 2',
- ["a\n", "b\n"], " a b\n", 0],
-
-# FIXME: change this to ensure the diagnostic makes sense
-['invalid-j', '-j x', {}, "", 1],
-
-# With ordering check, inputs in order
-['chkodr-1', '--check-order',
- [" a 1\n b 2\n", " a Y\n b Z\n"], "a 1 Y\nb 2 Z\n", 0],
-
-# Without check, inputs in order
-['chkodr-2', '--nocheck-order',
- [" a 1\n b 2\n", " a Y\n b Z\n"], "a 1 Y\nb 2 Z\n", 0],
-
-# Without check, both inputs out of order (in fact, in reverse order)
-# but all pairable. Support for this is a GNU extension.
-['chkodr-3', '--nocheck-order',
- [" b 1\n a 2\n", " b Y\n a Z\n"], "b 1 Y\na 2 Z\n", 0],
-
-# The extension should work without --nocheck-order, since that is the
-# default.
-['chkodr-4', '',
- [" b 1\n a 2\n", " b Y\n a Z\n"], "b 1 Y\na 2 Z\n", 0],
-
-# With check, both inputs out of order (in fact, in reverse order)
-['chkodr-5', '--check-order',
- [" b 1\n a 2\n", " b Y\n a Z\n"], "", 1],
-
-# Without order check, both inputs out of order and some lines
-# unpairable. This is NOT supported by the GNU extension. All that
-# we really care about for this test is that the return status is
-# zero, since that is the only way to actually verify that the
-# --nocheck-order option had any effect. We don't actually want to
-# guarantee that join produces this output on stdout.
-['chkodr-6', '--nocheck-order',
- [" b 1\n a 2\n", " b Y\n c Z\n"], "b 1 Y\n", 0],
-
-# Before 6.10.143, this would mistakenly fail with the diagnostic:
-# join: File 1 is not in sorted order
-['chkodr-7', '-12', ["2 a\n1 b\n", ""], "", 0],
-)
-;
-
-
-sub test_vector
-{
- return @tv;
-}
-
-1;