195168Sjmallett# $FreeBSD$
295168Sjmallett
398754SjmallettREGRESSION_START($1)
495168Sjmallett
5262959Sjmmvecho '1..26'
6137587Snik
7263227SjmmvREGRESSION_TEST(`G', `sed G <${SRCDIR}/regress.in')
8263227SjmmvREGRESSION_TEST(`P', `sed P <${SRCDIR}/regress.in')
9263227SjmmvREGRESSION_TEST(`psl', `sed \$!g\;P\;D <${SRCDIR}/regress.in')
10263227SjmmvREGRESSION_TEST(`bcb', `sed s/X/$(jot -n -bx -s "" 2043)\\\\zz/ <${SRCDIR}/regress.in')
1198881SjmallettREGRESSION_TEST(`y', `echo -n foo | sed y/o/O/')
12115829SfanfREGRESSION_TEST(`sg', `echo foo | sed s/,*/,/g')
13115829SfanfREGRESSION_TEST(`s3', `echo foo | sed s/,*/,/3')
14115829SfanfREGRESSION_TEST(`s4', `echo foo | sed s/,*/,/4')
15115829SfanfREGRESSION_TEST(`s5', `echo foo | sed s/,*/,/5')
16168211SyarREGRESSION_TEST(`c0', `sed ''`c\
17168211Syarfoo
18263227Sjmmv''`<${SRCDIR}/regress.in')
19168211SyarREGRESSION_TEST(`c1', `sed ''`4,$c\
20168211Syarfoo
21263227Sjmmv''`<${SRCDIR}/regress.in')
22168211SyarREGRESSION_TEST(`c2', `sed ''`3,9c\
23168211Syarfoo
24263227Sjmmv''`<${SRCDIR}/regress.in')
25168211SyarREGRESSION_TEST(`c3', `sed ''`3,/no such string/c\
26168211Syarfoo
27263227Sjmmv''`<${SRCDIR}/regress.in')
28168258SyarREGRESSION_TEST(`b2a', `sed ''`2,3b
29263227Sjmmv1,2d''` <${SRCDIR}/regress.in')
3095168Sjmallett
31168921Syar`
32168921Syarinplace_test()
33168921Syar{
34168921Syar	expr="$1"
35168921Syar	rc=0
36168921Syar	ns=$(jot 5)
37168921Syar	ins= outs= _ins=
38168921Syar	for n in $ns; do
39168921Syar		jot -w "l${n}_%d" 9 | tee lines.in.$n lines._in.$n | \
40168921Syar		    sed "$expr" > lines.out.$n
41168921Syar		ins="$ins lines.in.$n"
42168921Syar		outs="$outs lines.out.$n"
43168921Syar		_ins="$_ins lines._in.$n"
44168921Syar	done
45168921Syar	sed "$expr" $_ins > lines.out
46168921Syar
47168921Syar	sed -i "" "$expr" $ins
48168921Syar	sed -I "" "$expr" $_ins
49168921Syar
50168921Syar	for n in $ns; do
51168921Syar		diff -u lines.out.$n lines.in.$n || rc=1
52168921Syar	done
53168921Syar	cat $_ins | diff -u lines.out - || rc=1
54168921Syar	rm -f $ins $outs $_ins lines.out
55168921Syar
56168921Syar	return $rc
57168921Syar}
58168921Syar'
59168921Syar
60168921SyarREGRESSION_TEST_FREEFORM(`inplace1', `inplace_test 3,6d')
61168921SyarREGRESSION_TEST_FREEFORM(`inplace2', `inplace_test 8,30d')
62168921SyarREGRESSION_TEST_FREEFORM(`inplace3', `inplace_test 20,99d')
63168921SyarREGRESSION_TEST_FREEFORM(`inplace4', `inplace_test "{;{;8,30d;};}"')
64170608SyarREGRESSION_TEST_FREEFORM(`inplace5', `inplace_test "3x;6G"')
65168921Syar
66263227SjmmvREGRESSION_TEST(`icase1', `sed /SED/Id <${SRCDIR}/regress.in')
67263227SjmmvREGRESSION_TEST(`icase2', `sed s/SED/Foo/I <${SRCDIR}/regress.in')
68263227SjmmvREGRESSION_TEST(`icase3', `sed s/SED/Foo/ <${SRCDIR}/regress.in')
69263227SjmmvREGRESSION_TEST(`icase4', `sed s/SED/Foo/i <${SRCDIR}/regress.in')
70171206Sssouhlal
71263227SjmmvREGRESSION_TEST(`hanoi', `echo ":abcd: : :" | sed -f ${SRCDIR}/hanoi.sed')
72263227SjmmvREGRESSION_TEST(`math', `echo "4+7*3+2^7/3" | sed -f ${SRCDIR}/math.sed')
73184852SddsREGRESSION_TEST(`not', `echo foo | sed "1!!s/foo/bar/"')
74168259Syar
7598754SjmallettREGRESSION_END()
76