diff options
author | Jim Meyering <jim@meyering.net> | 2000-11-16 14:19:00 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-11-16 14:19:00 +0000 |
commit | b77cb259352640d627c91cf76057d5f466c0018d (patch) | |
tree | af2c246605085caa13a1754b70e83fe259aa1b51 /tests | |
parent | ea9a4e4755517a939f6ea7aa717edb43641b61b7 (diff) | |
download | coreutils-b77cb259352640d627c91cf76057d5f466c0018d.tar.xz |
(8-bit-t): New test for the above fix.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/join/Test.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/join/Test.pm b/tests/join/Test.pm index 563f431c3..1f567917b 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], + ); |