mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-04-13 15:26:48 +02:00
0dac1e107c
have names that are distinct even on filesystems on which file names are case insensitive.
107 lines
4.4 KiB
Perl
Executable File
107 lines
4.4 KiB
Perl
Executable File
package Test;
|
|
require 5.002;
|
|
use strict;
|
|
|
|
$Test::input_via_stdin = 1;
|
|
|
|
my @tv = (
|
|
# test flags 1 or 2 strings input expected output expected return code
|
|
#
|
|
['1', q|'abcd' '[]*]'|, 'abcd', ']]]]', 0],
|
|
['2', q|'abc' '[%*]xyz'|, 'abc', 'xyz', 0],
|
|
['3', q|'' '[.*]'|, 'abc', 'abc', 0],
|
|
# Test --truncate-set1 behavior when string1 is longer than string2
|
|
['4', '-t ' . q|'abcd' 'xy'|, 'abcde', 'xycde', 0],
|
|
# Test bsd behavior (the default) when string1 is longer than string2
|
|
['5', q|'abcd' 'xy'|, 'abcde', 'xyyye', 0],
|
|
# Do it the posix way
|
|
['6', q|'abcd' 'x[y*]'|, 'abcde', 'xyyye', 0],
|
|
#
|
|
['7', '-s ' . q|'a-p' '%[.*]$'|, 'abcdefghijklmnop', '%.$', 0],
|
|
['8', '-s ' . q|'a-p' '[.*]$'|, 'abcdefghijklmnop', '.$', 0],
|
|
['9', '-s ' . q|'a-p' '%[.*]'|, 'abcdefghijklmnop', '%.', 0],
|
|
['a', '-s ' . q|'[a-z]'|, 'aabbcc', 'abc', 0],
|
|
['b', '-s ' . q|'[a-c]'|, 'aabbcc', 'abc', 0],
|
|
['c', '-s ' . q|'[a-b]'|, 'aabbcc', 'abcc', 0],
|
|
['d', '-s ' . q|'[b-c]'|, 'aabbcc', 'aabc', 0],
|
|
['e', '-s ' . q|'[\0-\5]'|,
|
|
"\0\0a\1\1b\2\2\2c\3\3\3d\4\4\4\4e\5\5",
|
|
"\0a\1b\2c\3d\4e\5", 0],
|
|
# tests of delete
|
|
['f', '-d ' . q|'[=[=]'|, '[[[[[[[]]]]]]]]', ']]]]]]]]', 0],
|
|
['g', '-d ' . q|'[=]=]'|, '[[[[[[[]]]]]]]]', '[[[[[[[', 0],
|
|
['h', '-d ' . q|'[:xdigit:]'|, '0123456789acbdefABCDEF', '', 0],
|
|
['i', '-d ' . q|'[:xdigit:]'|, 'w0x1y2z3456789acbdefABCDEFz', 'wxyzz', 0],
|
|
['j', '-d ' . q|'[:digit:]'|, '0123456789', '', 0],
|
|
['k', '-d ' . q|'[:digit:]'|, 'a0b1c2d3e4f5g6h7i8j9k', 'abcdefghijk', 0],
|
|
['l', '-d ' . q|'[:lower:]'|, 'abcdefghijklmnopqrstuvwxyz', '', 0],
|
|
['m', '-d ' . q|'[:upper:]'|, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', '', 0],
|
|
['n', '-d ' . q|'[:lower:][:upper:]'|,
|
|
'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ', '', 0],
|
|
['o', '-d ' . q|'[:alpha:]'|,
|
|
'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ', '', 0],
|
|
['p', '-d ' . q|'[:alnum:]'|,
|
|
'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789', '', 0],
|
|
['q', '-d ' . q|'[:alnum:]'|,
|
|
'.abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.', '..', 0],
|
|
['r', '-ds ' . q|'[:alnum:]' '.'|,
|
|
'.abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.', '.', 0],
|
|
|
|
# The classic example, with string2 BSD-style
|
|
['s', '-cs ' . q|'[:alnum:]' '\n'|,
|
|
'The big black fox jumped over the fence.',
|
|
"The\nbig\nblack\nfox\njumped\nover\nthe\nfence\n", 0],
|
|
|
|
# The classic example, POSIX-style
|
|
['t', '-cs ' . q|'[:alnum:]' '[\n*]'|,
|
|
'The big black fox jumped over the fence.',
|
|
"The\nbig\nblack\nfox\njumped\nover\nthe\nfence\n", 0],
|
|
['u', '-ds ' . q|'b' 'a'|, 'aabbaa', 'a', 0],
|
|
['v', '-ds ' . q|'[:xdigit:]' 'Z'|,
|
|
'ZZ0123456789acbdefABCDEFZZ', 'Z', 0],
|
|
|
|
# Try some data with 8th bit set in case something is mistakenly sign-extended.
|
|
['w', '-ds ' . q|'\350' '\345'|,
|
|
"\300\301\377\345\345\350\345",
|
|
"\300\301\377\345", 0],
|
|
['x', '-s ' . q|'abcdefghijklmn' '[:*016]'|, 'abcdefghijklmnop', ':op', 0],
|
|
['y', '-d ' . q|'a-z'|, 'abc $code', ' $', 0],
|
|
['z', '-ds ' . q|'a-z' '$.'|, 'a.b.c $$$$code\\', '. $\\', 0],
|
|
|
|
# Make sure that a-a is accepted, even though POSIX 1001.2 says it is illegal.
|
|
['range-a-a', q|'a-a' 'z'|, 'abc', 'zbc', 0],
|
|
#
|
|
['null', q|'a' ''''|, '', '', 1],
|
|
['upcase',q|'[:lower:]' '[:upper:]'|, 'abcxyzABCXYZ', 'ABCXYZABCXYZ', 0],
|
|
['dncase', q|'[:upper:]' '[:lower:]'|, 'abcxyzABCXYZ', 'abcxyzabcxyz', 0],
|
|
#
|
|
['rep-cclass', q|'a[=*2][=c=]' 'xyyz'|, 'a=c', 'xyz', 0],
|
|
['rep-1', q|'[:*3][:digit:]' 'a-m'|, ':1239', 'cefgm', 0],
|
|
['rep-2', q|'a[b*512]c' '1[x*]2'|, 'abc', '1x2', 0],
|
|
['rep-3', q|'a[b*513]c' '1[x*]2'|, 'abc', '1x2', 0],
|
|
['esc', q|'a\-z' 'A-Z'|, 'abc-z', 'AbcBC', 0],
|
|
|
|
|
|
|
|
|
|
#
|
|
# From Ross
|
|
['ross-0a', '-cs ' . q|'[:upper:]' 'X[Y*]'|, '', '', 1],
|
|
['ross-0b', '-cs ' . q|'[:cntrl:]' 'X[Y*]'|, '', '', 1],
|
|
['ross-1a', '-cs ' . q|'[:upper:]' '[X*]'|, 'AMZamz123.-+AMZ', 'AMZXAMZ', 0],
|
|
['ross-1b', '-cs ' . q|'[:upper:][:digit:]' '[Z*]'|, '', '', 0],
|
|
['ross-2', '-dcs ' . q|'[:lower:]' 'n-rs-z'|, 'amzAMZ123.-+amz', 'amzamz', 0],
|
|
['ross-3', '-ds ' . q|'[:xdigit:]' '[:alnum:]'|,
|
|
'.ZABCDEFGzabcdefg.0123456788899.GG', '.ZGzg..G', 0],
|
|
['ross-4', '-dcs ' . q|'[:alnum:]' '[:digit:]'|, '', '', 0],
|
|
['ross-5', '-dc ' . q|'[:lower:]'|, '', '', 0],
|
|
['ross-6', '-dc ' . q|'[:upper:]'|, '', '', 0],
|
|
);
|
|
|
|
sub test_vector
|
|
{
|
|
return @tv;
|
|
}
|
|
|
|
1;
|