# regression tests for the POSIX ed utility

KEEP "*.dat"

function DATA

{

typeset f x=0123456789

integer i

typeset -i8 n

for f

do test -f $f && continue

case $f in

big.dat)for ((i = 0; i <= 10000; i++))

do print $i:$x$x$x$x$x$x$x$x$x$x

done

;;

dem.dat)for ((i = 512; i >= 0; i--))

do print $i

done

;;

med.dat)for ((i = 0; i <= 512; i++))

do print $i

done

;;

esac > $f

done

}

TEST 01 'file args'

DO DATA big.dat

EXEC

NOTE 'no input file'

EXEC file

NOTE 'empty input file'

INPUT file

OUTPUT - 0

EXEC big.dat

NOTE 'big input file'

INPUT - $'v/^10*:/d\n1,$s/:.*//\n,p\nQ'

OUTPUT - $'1058997\n1\n10\n100\n1000\n10000'

EXEC not_a_file

NOTE 'non-existent input file'

OUTPUT - '?'

EXIT '[12]'

TEST 02 '{ = # a c } commands'

EXEC file

NOTE '='

INPUT - g/./.=

INPUT file $'a\nb\nc'

OUTPUT - $'6\n1\n2\n3'

EXEC file

NOTE '# comments'

INPUT - $'#n\ng/./.=\n#comment'

EXEC file

NOTE 'a top'

INPUT - $'0a\nz\n.\nw\nq'

OUTPUT - $'6\n8'

OUTPUT file $'z\na\nb\nc'

EXEC file

NOTE 'a mid'

INPUT - $'2a\nz\n.\nw\nq'

OUTPUT file $'a\nb\nz\nc'

EXEC file

NOTE 'a bot'

INPUT - $'$a\nz\n.\nw\nq'

OUTPUT file $'a\nb\nc\nz'

EXEC file

NOTE 'c top'

INPUT - $'1c\nz\n.\nw\nq'

OUTPUT - $'6\n6'

OUTPUT file $'z\nb\nc'

EXEC file

NOTE 'c mid'

INPUT - $'2c\nz\n.\nw\nq'

OUTPUT file $'a\nz\nc'

EXEC file

NOTE 'c bot'

INPUT - $'$c\nz\n.\nw\nq'

OUTPUT file $'a\nb\nz'

TEST 03 '{ s } commands'

EXEC file

NOTE 'substitute'

INPUT file $'a\nb\nc'

INPUT - $'1,$s/./&&/\n1,$s/./&x/\n1,$s/./&y/2\n1,$s/./&z/4\nw\nq'

OUTPUT file $'axyaz\nbxybz\ncxycz'

OUTPUT - $'6\n18'

EXEC file

NOTE 'substitute g'

INPUT file $'abcabcabc\nabcabcabc\nabcabcabc\nabcabcabc\nabcabcabc\nabcabcabc\nabcabcabc\nabcabcabc\nabcabcabc'

INPUT - $'1s/a//g\n2s/b//g\n3s/c//g\n4s/a/X/g\n5s/b/X/g\n6s/c/X/g\n7s/a/XX/g\n8s/b/XX/g\n9s/c/XX/g\nw\nq'

OUTPUT file $'bcbcbc\nacacac\nababab\nXbcXbcXbc\naXcaXcaXc\nabXabXabX\nXXbcXXbcXXbc\naXXcaXXcaXXc\nabXXabXXabXX'

OUTPUT - $'90\n90'

EXEC file

NOTE 'substitute count'

INPUT - $'1s/a//2\n2s/b//2\n3s/c//2\n4s/a/X/2\n5s/b/X/2\n6s/c/X/2\n7s/a/XX/2\n8s/b/XX/2\n9s/c/XX/2\nw\nq'

OUTPUT file $'abcbcabc\nabcacabc\nabcababc\nabcXbcabc\nabcaXcabc\nabcabXabc\nabcXXbcabc\nabcaXXcabc\nabcabXXabc'

OUTPUT - $'90\n90'

EXEC file

NOTE 'substitute null g'

INPUT file $'123\naaa'

INPUT - $'1,$s/a*/x/g\nw\nq'

OUTPUT file $'x1x2x3x\nx'

OUTPUT - $'8\n10'

EXEC file

NOTE 'substitute splice'

INPUT file $'123\naaa'

INPUT - $'1,$s/a/&\\\nx/\nw\nq'

OUTPUT file $'123\na\nxaa'

OUTPUT - $'8\n10'

EXEC file

NOTE 'substitute previous'

INPUT file $'123\naaa'

INPUT - $'/aa/p\ns//zz/\nw\nq'

OUTPUT file $'123\nzza'

OUTPUT - $'8\naaa\n8'

TEST 04 'global commands'

EXEC file

NOTE 'global substitute splice'

INPUT file $'yyabcyy\n123yyxx\nfoo\nbaryy\nfooyybar'

INPUT - $'g/yy/s//ex/g\nw\nq'

OUTPUT file $'exabcex\n123exxx\nfoo\nbarex\nfooexbar'

OUTPUT - $'35\n35'

TEST 05 '{ t } commands'

DO DATA med.dat dem.dat

EXEC file

NOTE 'copy'

INPUT file $'1\n2\n3\n4'

INPUT - $'-2\n.t.\nw\nq'

OUTPUT file $'1\n2\n2\n3\n4'

OUTPUT - $'8\n2\n10'

EXEC med.dat

NOTE 'copy reverse'

INPUT - $'g/./.t0\n514,$d\nw file\nq'

SAME file dem.dat

OUTPUT - $'1942\n1942'

TEST 06 '! command'

EXEC -h file

NOTE 'no saved command'

INPUT file

OUTPUT - $'"file" 0 lines, 0 characters'

INPUT - $'!!'

ERROR - $'ed: no saved shell command'

EXIT 1

EXEC

NOTE 'empty command'

INPUT - $'!'

ERROR - $'ed: empty shell command'

EXEC

NOTE 'to stdout'

INPUT - $'!echo stdout\n!!'

OUTPUT - $'"file" 0 lines, 0 characters\nstdout\n!\necho stdout\nstdout\n!'

ERROR -

EXIT 0

EXEC

NOTE 'to stderr'

INPUT - $'!echo stderr >&2\n!!'

OUTPUT - $'"file" 0 lines, 0 characters\n!\necho stderr >&2\n!'

ERROR - $'stderr\nstderr'

TEST 07 'REs'

EXEC file

NOTE 'remembered RE'

INPUT file $'foo 1\nfoo 2\nfoo 3'

INPUT - $'/foo\n//\n/'

OUTPUT - $'18\nfoo 1\nfoo 2\nfoo 3'

TEST 08 '.'

EXEC file

NOTE '. before and after'

INPUT file $'1\n2\n3'

INPUT - $'.=\n1,$s/^/x/\n.=\n1\n1,$s/^/x/\n.=\ng/[12]/s/^/z/\n.=\nQ'

OUTPUT - $'6\n3\n3\nx1\n3\n2'