From: Jim Meyering <jim@meyering.net>
Date: Thu, 16 Nov 2000 14:19:00 +0000 (+0000)
Subject: (8-bit-t): New test for the above fix.
X-Git-Tag: FILEUTILS-4_0_33~111
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=b77cb259352640d627c91cf76057d5f466c0018d;p=thirdparty%2Fcoreutils.git

(8-bit-t): New test for the above fix.
---

diff --git a/tests/join/Test.pm b/tests/join/Test.pm
index 563f431c31..1f567917b2 100644
--- a/tests/join/Test.pm
+++ b/tests/join/Test.pm
@@ -2,6 +2,13 @@ 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
@@ -105,6 +112,11 @@ my @tv = (
 # 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],
+
 );