cmd/builtin/cut.rt

# 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