# regression tests for the cut utility

# some from gnu textutils

UNIT cut

TEST '-d -f'

DATA f1 $'a:b:c'

EXEC -d: -f1,3- f1

EXEC -d: -f1,3- f1

EXEC -d: -f2- f1

EXEC -d: -f4 f1

EXEC -d: -f4 f1

TEST 02 '-c'

DATA f1

EXEC -c4 f1

DATA f1 $'123'

EXEC -c4 f1

EXEC -c4 f1

DATA f1 $'123\n1'

EXEC -c4 f1

DATA f2 $'1234567890'

EXEC -c-5 f2

EXEC -c1-5 f2

EXEC -c5- f2

EXEC -c5-10 f2

TEST 03 '-d -f -s'

DATA f1 $'abc'

EXEC -s -d: -f2,3 f1

DATA f1 $'a:b:c'

EXEC -s -d: -f3- f1

EXEC -s -d: -f3-4 f1

EXEC -s -d: -f3,4 f1

EXEC -s -d: -f2,3 f1

EXEC -s -d: -f1,3 f1

TEST 04 '-d -f'

DATA f1 $':::'

EXEC -d: -f1-3 f1

DATA f1 $':::'

EXEC -d: -f1-4 f1

EXEC -d: -f2-3 f1

EXEC -d: -f2-4 f1

DATA f5 $'1 2 3 4 5'

EXEC -d' ' -f1-5 f5

EXEC -d' ' -f1 f5

EXEC -d' ' -f2 f5

EXEC -d' ' -f3 f5

EXEC -d' ' -f4 f5

EXEC -d' ' -f5 f5

EXEC -d' ' -f1,2 f5

EXEC -d' ' -f1,3 f5

EXEC -d' ' -f1,4 f5

EXEC -d' ' -f1,5 f5

EXEC -d' ' -f2,3 f5

EXEC -d' ' -f2,4 f5

EXEC -d' ' -f2,5 f5

EXEC -d' ' -f2,4 f5

EXEC -d' ' -f3,5 f5

EXEC -d' ' -f4,5 f5

TEST 05 '-d -f -s'

DATA f1 $':::'

EXEC -s -d: -f1-3 f1

DATA f1 $':::'

EXEC -s -d: -f1-4 f1

DATA f1 $':::'

EXEC -s -d: -f2-3 f1

DATA f1 $':::'

EXEC -s -d: -f2-4 f1

DATA f1 $':::\n:'

EXEC -s -d: -f2-4 f1

DATA f1 $':::\n:1'

EXEC -s -d: -f2-4 f1

DATA f1 $':::\n:a'

EXEC -s -d: -f1-4 f1

DATA f1 $':::\n:1'

EXEC -s -d: -f3- f1

TEST 07 'no fields'

DATA f1

EXEC -f3- f1

EXEC -s -f3- f1

EXEC -b 1 f1

TEST 08 'two empty fields'

DATA f1 $':'

EXEC -s -d: -f2-4 f1

TEST 09 'fixed length records'

DATA -n f1 $'abcdefghij'

EXEC -r5 -b2-4 f1

EXEC -N -r5 -b2-4 f1

TEST 10 'misc errors'

DIAGNOSTICS

EXEC

EXEC -b

EXEC -f

DATA f1 $':'

EXEC f1

EXEC -b '' f1

EXEC -f '' f1

EXEC -s -b4 f1

TEST 11 'multibyte UTF-8 -- off-by-oners doomed here'

EXPORT LC_CTYPE=C.UTF-8

DATA a.dat $'\303\237\342\202\254\342\202\254f2\342\202\254\303\274'

EXEC -d $'\342\202\254' -f1 a.dat

DATA b.dat $'\303\237\342\202\254\342\202\254\146\062\342\202\254\303\274'

DATA c.dat $'\303\237\342\202\254\342\202\254\146\062\342\202\254\303\274\012'

for ((i = 1; i < 16; i++))

do for ((j = i + 1; j <= 16; j++))

do

for n in '' -n

do

for f in b c

do

EXEC $n -b $i-$j $f.dat

done

done

done

done

TEST 12 'multibyte euc'

EXPORT LC_CTYPE=ja_JP.eucJP

DATA a.dat $'\xa4\xa2\xa4\xa4\xa4\xa4\xa4\xa6\xa4\xa8'

EXEC -d $'\xa4\xa4' -f1 a.dat