sources/host-tools/sed-4.2.1/testsuite/bsd.sh - platform/ndk - Git at Google

 #!/bin/sh -
 #	$NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
 #
 # Copyright (c) 1992 Diomidis Spinellis.
 # Copyright (c) 1992, 1993
 #	The Regents of the University of California.  All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
 # 1. Redistributions of source code must retain the above copyright
 #    notice, this list of conditions and the following disclaimer.
 # 2. Redistributions in binary form must reproduce the above copyright
 #    notice, this list of conditions and the following disclaimer in the
 #    documentation and/or other materials provided with the distribution.
 # 3. All advertising materials mentioning features or use of this software
 #    must display the following acknowledgement:
 #	This product includes software developed by the University of
 #	California, Berkeley and its contributors.
 # 4. Neither the name of the University nor the names of its contributors
 #    may be used to endorse or promote products derived from this software
 #    without specific prior written permission.
 #
 # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
 #	from: @(#)sed.test	8.1 (Berkeley) 6/6/93
 #	$NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
 #

 # sed Regression Tests

 # Modified by Paolo Bonzini to:
 # - not warn about buggy seds
 # - run tests once instead of comparing them to the system sed
 # - remove most uses of awk
 # - cleanup at exit
 # - comment tests that broke because of extensions

 main()
 {
 	TEST="${1-../sed/sed}"
 	TESTLOG="${2-sed.out}"
 	# DICT="${3-/usr/share/dict/words}"

 	: > lines1
 	: > lines2
 	for i in 1 2 3 4 5 6 7 8 9; do
 	  echo l1_$i >> lines1
 	  echo l2_$i >> lines2
 	done
 	for i in 10 11 12 13 14; do
 	  echo l1_$i >> lines1
 	done

 	# Set these flags to get messages about known problems
 	tests "$TEST" "$TESTLOG"

 	rm -f lines[1234] script[12]
 }

 tests()
 {
 	SED="$1"
 	LOG="$2"
 	MARK=100
 	rm -f "$LOG"

 	exec 3>&0 4>&1 5>&2
 	exec 0</dev/null 1>/dev/null 2>/dev/null
 	test_error
 	exec 0>&3 1>&4 2>&5

 	exec 4>&1 5>&2
 	test_args
 	test_addr
 	test_group
 	test_acid
 	test_branch
 	test_pattern
 	test_print
 	test_subst
 	exec 1>&4 2>&5
 }

 mark()
 {
 	exec 2>&1 >>$LOG
 	test $MARK = 100 || echo
 	MARK=`expr $MARK + 1`
 	echo "Test $1:$MARK" | sed 's/./=/g'
 	echo "Test $1:$MARK"
 	echo "Test $1:$MARK" | sed 's/./=/g'
 }

 test_args()
 {
 	mark '1.1'
 	echo Testing argument parsing
 	echo First type
 	$SED 's/^/e1_/p' lines1
 	mark '1.2' ; $SED -n 's/^/e1_/p' lines1
 	mark '1.3' ; $SED 's/^/e1_/p' <lines1
 	mark '1.4' ; $SED -n 's/^/e1_/p' <lines1
 	echo Second type
 	mark '1.4.1'
 	$SED -e '' <lines1
 	echo 's/^/s1_/p' >script1
 	echo 's/^/s2_/p' >script2
 	mark '1.5' ; $SED -f script1 lines1
 	mark '1.6' ; $SED -f script1 <lines1
 	mark '1.7' ; $SED -e 's/^/e1_/p' lines1
 	mark '1.8' ; $SED -e 's/^/e1_/p' <lines1
 	mark '1.9' ; $SED -n -f script1 lines1
 	mark '1.10' ; $SED -n -f script1 <lines1
 	mark '1.11' ; $SED -n -e 's/^/e1_/p' lines1
 	mark '1.12' ; $SED -n -e 's/^/e1_/p' <lines1
 	mark '1.13' ; $SED -e 's/^/e1_/p' -e 's/^/e2_/p' lines1
 	mark '1.14' ; $SED -f script1 -f script2 lines1
 	mark '1.15' ; $SED -e 's/^/e1_/p' -f script1 lines1
 	mark '1.16' ; $SED -e 's/^/e1_/p' lines1 lines1
 	# POSIX D11.2:11251
 	mark '1.17' ; $SED p <lines1 lines1
 cat >script1 <<EOF
 #n
 # A comment

 p
 EOF
 	mark '1.18' ; $SED -f script1 <lines1 lines1
 }

 test_addr()
 {
 	echo Testing address ranges
 	mark '2.1' ; $SED -n -e '4p' lines1
 	mark '2.2' ; $SED -n -e '20p' lines1 lines2
 	mark '2.3' ; $SED -n -e '$p' lines1
 	mark '2.4' ; $SED -n -e '$p' lines1 lines2
 	mark '2.5' ; $SED -n -e '$a\
 hello' /dev/null
 	mark '2.6' ; $SED -n -e '$p' lines1 /dev/null lines2
 	# Should not print anything
 	mark '2.7' ; $SED -n -e '20p' lines1
 	# Disabled because it is undefined behavior
 	# mark '2.8' ; $SED -n -e '0p' lines1
 	mark '2.9' ; $SED -n '/l1_7/p' lines1
 	mark '2.10' ; $SED -n ' /l1_7/ p' lines1
 	mark '2.11' ; $SED -n '\_l1\_7_p' lines1
 	mark '2.12' ; $SED -n '1,4p' lines1
 	mark '2.13' ; $SED -n '1,$p' lines1 lines2
 	mark '2.14' ; $SED -n '1,/l2_9/p' lines1 lines2
 	mark '2.15' ; $SED -n '/4/,$p' lines1 lines2
 	mark '2.16' ; $SED -n '/4/,20p' lines1 lines2
 	mark '2.17' ; $SED -n '/4/,/10/p' lines1 lines2
 	mark '2.18' ; $SED -n '/l2_3/,/l1_8/p' lines1 lines2
 	mark '2.19' ; $SED -n '12,3p' lines1 lines2
 	mark '2.20' ; $SED -n '/l1_7/,3p' lines1 lines2
 }

 test_group()
 {
 	echo Brace and other grouping
 	mark '3.1' ; $SED -e '
 4,12 {
 	s/^/^/
 	s/$/$/
 	s/_/T/
 }' lines1
 	mark '3.2' ; $SED -e '
 4,12 {
 	s/^/^/
 	/6/,/10/ {
 		s/$/$/
 		/8/ s/_/T/
 	}
 }' lines1
 	mark '3.3' ; $SED -e '
 4,12 !{
 	s/^/^/
 	/6/,/10/ !{
 		s/$/$/
 		/8/ !s/_/T/
 	}
 }' lines1
 	mark '3.4' ; $SED -e '4,12!s/^/^/' lines1
 }

 test_acid()
 {
 	echo Testing a c d and i commands
 	mark '4.1' ; $SED -n -e '
 s/^/before_i/p
 20i\
 inserted
 s/^/after_i/p
 ' lines1 lines2
 	mark '4.2' ; $SED -n -e '
 5,12s/^/5-12/
 s/^/before_a/p
 /5-12/a\
 appended
 s/^/after_a/p
 ' lines1 lines2
 	mark '4.3' ; $SED -n -e '
 s/^/^/p
 /l1_/a\
 appended
 8,10N
 s/$/$/p
 ' lines1 lines2
 	mark '4.4' ; $SED -n -e '
 c\
 hello
 ' lines1
 	mark '4.5' ; $SED -n -e '
 8c\
 hello
 ' lines1
 	mark '4.6' ; $SED -n -e '
 3,14c\
 hello
 ' lines1
 	mark '4.7' ; $SED -n -e '
 8,3c\
 hello
 ' lines1
 	mark '4.8' ; $SED d <lines1
 }

 test_branch()
 {
 	echo Testing labels and branching
 	mark '5.1' ; $SED -n -e '
 b label4
 :label3
 s/^/label3_/p
 b end
 :label4
 2,12b label1
 b label2
 :label1
 s/^/label1_/p
 b
 :label2
 s/^/label2_/p
 b label3
 :end
 ' lines1
 	mark '5.2' ; $SED -n -e '
 s/l1_/l2_/
 t ok
 b
 :ok
 s/^/tested /p
 ' lines1 lines2
 	mark '5.3' ; $SED -n -e '
 5,8b inside
 1,5 {
 	s/^/^/p
 	:inside
 	s/$/$/p
 }
 ' lines1
 # Check that t clears the substitution done flag
 	mark '5.4' ; $SED -n -e '
 1,8s/^/^/
 t l1
 :l1
 t l2
 s/$/$/p
 b
 :l2
 s/^/ERROR/
 ' lines1
 # Check that reading a line clears the substitution done flag
 	mark '5.5' ; $SED -n -e '
 t l2
 1,8s/^/^/p
 2,7N
 b
 :l2
 s/^/ERROR/p
 ' lines1
 	mark '5.6' ; $SED 5q lines1
 	mark '5.7' ; $SED -e '
 5i\
 hello
 5q' lines1
 # Branch across block boundary
 	mark '5.8' ; $SED -e '
 {
 :b
 }
 s/l/m/
 tb' lines1
 }

 test_pattern()
 {
 echo Pattern space commands
 # Check that the pattern space is deleted
 	mark '6.1' ; $SED -n -e '
 c\
 changed
 p
 ' lines1
 	mark '6.2' ; $SED -n -e '
 4d
 p
 ' lines1
 	mark '6.3' ; $SED -e '
 N
 N
 N
 D
 P
 4p
 ' lines1
 	mark '6.4' ; $SED -e '
 2h
 3H
 4g
 5G
 6x
 6p
 6x
 6p
 ' lines1
 	mark '6.5' ; $SED -e '4n' lines1
 	mark '6.6' ; $SED -n -e '4n' lines1
 }

 test_print()
 {
 	echo Testing print and file routines
 	awk 'END {for (i = 1; i < 256; i++) printf("%c", i);print "\n"}' \
 		</dev/null >lines3
 	mark '7.1' ; $SED -n l lines3
 	mark '7.2' ; $SED -e '/l2_/=' lines1 lines2
 	rm -f lines4
 	mark '7.3' ; $SED -e '3,12w lines4' lines1
 	echo w results
 	cat lines4
 	mark '7.4' ; $SED -e '4r lines2' lines1
 	mark '7.5' ; $SED -e '5r /dev/dds' lines1
 	mark '7.6' ; $SED -e '6r /dev/null' lines1
 	# mark '7.7'
 	# sed '200q' $DICT | sed 's$.*$s/^/&/w tmpdir/&$' >script1
 	# rm -rf tmpdir
 	# mkdir tmpdir
 	# $SED -f script1 lines1
 	# cat tmpdir/*
 	# rm -rf tmpdir
 	mark '7.8'
 	echo line1 > lines3
 	echo "" >> lines3
 	$SED -n -e '$p' lines3 /dev/null
 }

 test_subst()
 {
 	echo Testing substitution commands
 	mark '8.1' ; $SED -e 's/./X/g' lines1
 	mark '8.2' ; $SED -e 's,.,X,g' lines1
 	mark '8.3' ; $SED -e 's.\..X.g' lines1
 # POSIX does not say that this should work
 #	mark '8.4' ; $SED -e 's/[/]/Q/' lines1
 	mark '8.4' ; $SED -e 's/[\/]/Q/' lines1
 	mark '8.5' ; $SED -e 's_\__X_' lines1
 	mark '8.6' ; $SED -e 's/./(&)/g' lines1
 	mark '8.7' ; $SED -e 's/./(\&)/g' lines1
 	mark '8.8' ; $SED -e 's/\(.\)\(.\)\(.\)/x\3x\2x\1/g' lines1
 	mark '8.9' ; $SED -e 's/_/u0\
 u1\
 u2/g' lines1
 	mark '8.10' ; $SED -e 's/./X/4' lines1
 	rm -f lines4
 	mark '8.11' ; $SED -e 's/1/X/w lines4' lines1
 	echo s wfile results
 	cat lines4
 	mark '8.12' ; $SED -e 's/[123]/X/g' lines1
 	mark '8.13' ; $SED -e 'y/0123456789/9876543210/' lines1
 	mark '8.14' ; $SED -e 'y10\123456789198765432\101' lines1
 	mark '8.15' ; $SED -e '1N;2y/\n/X/' lines1
 	mark '8.16'
 	echo 'eeefff' | $SED -e 'p' -e 's/e/X/p' -e ':x' \
 	    -e 's//Y/p' -e '/f/bx'
 	mark '8.17' ; $SED -e 's&.&\&&g' lines1
 }

 test_error()
 {
 	$SED -x && exit 1
 	$SED -f && exit 1
 	$SED -e && exit 1
 	$SED -f /dev/dds && exit 1
 	$SED p /dev/dds && exit 1
 	$SED -f /bin/sh && exit 1
 	$SED '{' && exit 1
 	$SED '{' && exit 1
 	$SED '/hello/' && exit 1
 	$SED '1,/hello/' && exit 1
 	$SED -e '-5p' && exit 1
 	$SED '/jj' && exit 1
 	# $SED 'a hello' && exit 1
 	# $SED 'a \ hello' && exit 1
 	$SED 'b foo' && exit 1
 	$SED 'd hello' && exit 1
 	$SED 's/aa' && exit 1
 	$SED 's/aa/' && exit 1
 	$SED 's/a/b' && exit 1
 	$SED 's/a/b/c/d' && exit 1
 	$SED 's/a/b/ 1 2' && exit 1
 	# $SED 's/a/b/ 1 g' && exit 1
 	$SED 's/a/b/w' && exit 1
 	$SED 'y/aa' && exit 1
 	$SED 'y/aa/b/' && exit 1
 	$SED 'y/aa/' && exit 1
 	$SED 'y/a/b' && exit 1
 	$SED 'y/a/b/c/d' && exit 1
 	$SED '!' && exit 1
 	$SED supercalifrangolisticexprialidociussupercalifrangolisticexcius
 }

 main ${1+"$@"}
	#!/bin/sh -
	# $NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
	#
	# Copyright (c) 1992 Diomidis Spinellis.
	# Copyright (c) 1992, 1993
	# The Regents of the University of California. All rights reserved.
	#
	# Redistribution and use in source and binary forms, with or without
	# modification, are permitted provided that the following conditions
	# are met:
	# 1. Redistributions of source code must retain the above copyright
	# notice, this list of conditions and the following disclaimer.
	# 2. Redistributions in binary form must reproduce the above copyright
	# notice, this list of conditions and the following disclaimer in the
	# documentation and/or other materials provided with the distribution.
	# 3. All advertising materials mentioning features or use of this software
	# must display the following acknowledgement:
	# This product includes software developed by the University of
	# California, Berkeley and its contributors.
	# 4. Neither the name of the University nor the names of its contributors
	# may be used to endorse or promote products derived from this software
	# without specific prior written permission.
	#
	# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	# ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	# SUCH DAMAGE.
	#
	# from: @(#)sed.test 8.1 (Berkeley) 6/6/93
	# $NetBSD: sed.test,v 1.3 1997/01/09 20:21:37 tls Exp $
	#

	# sed Regression Tests

	# Modified by Paolo Bonzini to:
	# - not warn about buggy seds
	# - run tests once instead of comparing them to the system sed
	# - remove most uses of awk
	# - cleanup at exit
	# - comment tests that broke because of extensions

	main()
	{
	TEST="${1-../sed/sed}"
	TESTLOG="${2-sed.out}"
	# DICT="${3-/usr/share/dict/words}"

	: > lines1
	: > lines2
	for i in 1 2 3 4 5 6 7 8 9; do
	echo l1_$i >> lines1
	echo l2_$i >> lines2
	done
	for i in 10 11 12 13 14; do
	echo l1_$i >> lines1
	done

	# Set these flags to get messages about known problems
	tests "$TEST" "$TESTLOG"

	rm -f lines[1234] script[12]
	}

	tests()
	{
	SED="$1"
	LOG="$2"
	MARK=100
	rm -f "$LOG"

	exec 3>&0 4>&1 5>&2
	exec 0</dev/null 1>/dev/null 2>/dev/null
	test_error
	exec 0>&3 1>&4 2>&5

	exec 4>&1 5>&2
	test_args
	test_addr
	test_group
	test_acid
	test_branch
	test_pattern
	test_print
	test_subst
	exec 1>&4 2>&5
	}

	mark()
	{
	exec 2>&1 >>$LOG
	test $MARK = 100 \|\| echo
	MARK=`expr $MARK + 1`
	echo "Test $1:$MARK" \| sed 's/./=/g'
	echo "Test $1:$MARK"
	echo "Test $1:$MARK" \| sed 's/./=/g'
	}

	test_args()
	{
	mark '1.1'
	echo Testing argument parsing
	echo First type
	$SED 's/^/e1_/p' lines1
	mark '1.2' ; $SED -n 's/^/e1_/p' lines1
	mark '1.3' ; $SED 's/^/e1_/p' <lines1
	mark '1.4' ; $SED -n 's/^/e1_/p' <lines1
	echo Second type
	mark '1.4.1'
	$SED -e '' <lines1
	echo 's/^/s1_/p' >script1
	echo 's/^/s2_/p' >script2
	mark '1.5' ; $SED -f script1 lines1
	mark '1.6' ; $SED -f script1 <lines1
	mark '1.7' ; $SED -e 's/^/e1_/p' lines1
	mark '1.8' ; $SED -e 's/^/e1_/p' <lines1
	mark '1.9' ; $SED -n -f script1 lines1
	mark '1.10' ; $SED -n -f script1 <lines1
	mark '1.11' ; $SED -n -e 's/^/e1_/p' lines1
	mark '1.12' ; $SED -n -e 's/^/e1_/p' <lines1
	mark '1.13' ; $SED -e 's/^/e1_/p' -e 's/^/e2_/p' lines1
	mark '1.14' ; $SED -f script1 -f script2 lines1
	mark '1.15' ; $SED -e 's/^/e1_/p' -f script1 lines1
	mark '1.16' ; $SED -e 's/^/e1_/p' lines1 lines1
	# POSIX D11.2:11251
	mark '1.17' ; $SED p <lines1 lines1
	cat >script1 <<EOF
	#n
	# A comment

	p
	EOF
	mark '1.18' ; $SED -f script1 <lines1 lines1
	}

	test_addr()
	{
	echo Testing address ranges
	mark '2.1' ; $SED -n -e '4p' lines1
	mark '2.2' ; $SED -n -e '20p' lines1 lines2
	mark '2.3' ; $SED -n -e '$p' lines1
	mark '2.4' ; $SED -n -e '$p' lines1 lines2
	mark '2.5' ; $SED -n -e '$a\
	hello' /dev/null
	mark '2.6' ; $SED -n -e '$p' lines1 /dev/null lines2
	# Should not print anything
	mark '2.7' ; $SED -n -e '20p' lines1
	# Disabled because it is undefined behavior
	# mark '2.8' ; $SED -n -e '0p' lines1
	mark '2.9' ; $SED -n '/l1_7/p' lines1
	mark '2.10' ; $SED -n ' /l1_7/ p' lines1
	mark '2.11' ; $SED -n '\_l1\_7_p' lines1
	mark '2.12' ; $SED -n '1,4p' lines1
	mark '2.13' ; $SED -n '1,$p' lines1 lines2
	mark '2.14' ; $SED -n '1,/l2_9/p' lines1 lines2
	mark '2.15' ; $SED -n '/4/,$p' lines1 lines2
	mark '2.16' ; $SED -n '/4/,20p' lines1 lines2
	mark '2.17' ; $SED -n '/4/,/10/p' lines1 lines2
	mark '2.18' ; $SED -n '/l2_3/,/l1_8/p' lines1 lines2
	mark '2.19' ; $SED -n '12,3p' lines1 lines2
	mark '2.20' ; $SED -n '/l1_7/,3p' lines1 lines2
	}

	test_group()
	{
	echo Brace and other grouping
	mark '3.1' ; $SED -e '
	4,12 {
	s/^/^/
	s/$/$/
	s/_/T/
	}' lines1
	mark '3.2' ; $SED -e '
	4,12 {
	s/^/^/
	/6/,/10/ {
	s/$/$/
	/8/ s/_/T/
	}
	}' lines1
	mark '3.3' ; $SED -e '
	4,12 !{
	s/^/^/
	/6/,/10/ !{
	s/$/$/
	/8/ !s/_/T/
	}
	}' lines1
	mark '3.4' ; $SED -e '4,12!s/^/^/' lines1
	}

	test_acid()
	{
	echo Testing a c d and i commands
	mark '4.1' ; $SED -n -e '
	s/^/before_i/p
	20i\
	inserted
	s/^/after_i/p
	' lines1 lines2
	mark '4.2' ; $SED -n -e '
	5,12s/^/5-12/
	s/^/before_a/p
	/5-12/a\
	appended
	s/^/after_a/p
	' lines1 lines2
	mark '4.3' ; $SED -n -e '
	s/^/^/p
	/l1_/a\
	appended
	8,10N
	s/$/$/p
	' lines1 lines2
	mark '4.4' ; $SED -n -e '
	c\
	hello
	' lines1
	mark '4.5' ; $SED -n -e '
	8c\
	hello
	' lines1
	mark '4.6' ; $SED -n -e '
	3,14c\
	hello
	' lines1
	mark '4.7' ; $SED -n -e '
	8,3c\
	hello
	' lines1
	mark '4.8' ; $SED d <lines1
	}

	test_branch()
	{
	echo Testing labels and branching
	mark '5.1' ; $SED -n -e '
	b label4
	:label3
	s/^/label3_/p
	b end
	:label4
	2,12b label1
	b label2
	:label1
	s/^/label1_/p
	b
	:label2
	s/^/label2_/p
	b label3
	:end
	' lines1
	mark '5.2' ; $SED -n -e '
	s/l1_/l2_/
	t ok
	b
	:ok
	s/^/tested /p
	' lines1 lines2
	mark '5.3' ; $SED -n -e '
	5,8b inside
	1,5 {
	s/^/^/p
	:inside
	s/$/$/p
	}
	' lines1
	# Check that t clears the substitution done flag
	mark '5.4' ; $SED -n -e '
	1,8s/^/^/
	t l1
	:l1
	t l2
	s/$/$/p
	b
	:l2
	s/^/ERROR/
	' lines1
	# Check that reading a line clears the substitution done flag
	mark '5.5' ; $SED -n -e '
	t l2
	1,8s/^/^/p
	2,7N
	b
	:l2
	s/^/ERROR/p
	' lines1
	mark '5.6' ; $SED 5q lines1
	mark '5.7' ; $SED -e '
	5i\
	hello
	5q' lines1
	# Branch across block boundary
	mark '5.8' ; $SED -e '
	{
	:b
	}
	s/l/m/
	tb' lines1
	}

	test_pattern()
	{
	echo Pattern space commands
	# Check that the pattern space is deleted
	mark '6.1' ; $SED -n -e '
	c\
	changed
	p
	' lines1
	mark '6.2' ; $SED -n -e '
	4d
	p
	' lines1
	mark '6.3' ; $SED -e '
	N
	N
	N
	D
	P
	4p
	' lines1
	mark '6.4' ; $SED -e '
	2h
	3H
	4g
	5G
	6x
	6p
	6x
	6p
	' lines1
	mark '6.5' ; $SED -e '4n' lines1
	mark '6.6' ; $SED -n -e '4n' lines1
	}

	test_print()
	{
	echo Testing print and file routines
	awk 'END {for (i = 1; i < 256; i++) printf("%c", i);print "\n"}' \
	</dev/null >lines3
	mark '7.1' ; $SED -n l lines3
	mark '7.2' ; $SED -e '/l2_/=' lines1 lines2
	rm -f lines4
	mark '7.3' ; $SED -e '3,12w lines4' lines1
	echo w results
	cat lines4
	mark '7.4' ; $SED -e '4r lines2' lines1
	mark '7.5' ; $SED -e '5r /dev/dds' lines1
	mark '7.6' ; $SED -e '6r /dev/null' lines1
	# mark '7.7'
	# sed '200q' $DICT \| sed 's$.*$s/^/&/w tmpdir/&$' >script1
	# rm -rf tmpdir
	# mkdir tmpdir
	# $SED -f script1 lines1
	# cat tmpdir/*
	# rm -rf tmpdir
	mark '7.8'
	echo line1 > lines3
	echo "" >> lines3
	$SED -n -e '$p' lines3 /dev/null
	}

	test_subst()
	{
	echo Testing substitution commands
	mark '8.1' ; $SED -e 's/./X/g' lines1
	mark '8.2' ; $SED -e 's,.,X,g' lines1
	mark '8.3' ; $SED -e 's.\..X.g' lines1
	# POSIX does not say that this should work
	# mark '8.4' ; $SED -e 's/[/]/Q/' lines1
	mark '8.4' ; $SED -e 's/[\/]/Q/' lines1
	mark '8.5' ; $SED -e 's_\__X_' lines1
	mark '8.6' ; $SED -e 's/./(&)/g' lines1
	mark '8.7' ; $SED -e 's/./(\&)/g' lines1
	mark '8.8' ; $SED -e 's/\(.\)\(.\)\(.\)/x\3x\2x\1/g' lines1
	mark '8.9' ; $SED -e 's/_/u0\
	u1\
	u2/g' lines1
	mark '8.10' ; $SED -e 's/./X/4' lines1
	rm -f lines4
	mark '8.11' ; $SED -e 's/1/X/w lines4' lines1
	echo s wfile results
	cat lines4
	mark '8.12' ; $SED -e 's/[123]/X/g' lines1
	mark '8.13' ; $SED -e 'y/0123456789/9876543210/' lines1
	mark '8.14' ; $SED -e 'y10\123456789198765432\101' lines1
	mark '8.15' ; $SED -e '1N;2y/\n/X/' lines1
	mark '8.16'
	echo 'eeefff' \| $SED -e 'p' -e 's/e/X/p' -e ':x' \
	-e 's//Y/p' -e '/f/bx'
	mark '8.17' ; $SED -e 's&.&\&&g' lines1
	}

	test_error()
	{
	$SED -x && exit 1
	$SED -f && exit 1
	$SED -e && exit 1
	$SED -f /dev/dds && exit 1
	$SED p /dev/dds && exit 1
	$SED -f /bin/sh && exit 1
	$SED '{' && exit 1
	$SED '{' && exit 1
	$SED '/hello/' && exit 1
	$SED '1,/hello/' && exit 1
	$SED -e '-5p' && exit 1
	$SED '/jj' && exit 1
	# $SED 'a hello' && exit 1
	# $SED 'a \ hello' && exit 1
	$SED 'b foo' && exit 1
	$SED 'd hello' && exit 1
	$SED 's/aa' && exit 1
	$SED 's/aa/' && exit 1
	$SED 's/a/b' && exit 1
	$SED 's/a/b/c/d' && exit 1
	$SED 's/a/b/ 1 2' && exit 1
	# $SED 's/a/b/ 1 g' && exit 1
	$SED 's/a/b/w' && exit 1
	$SED 'y/aa' && exit 1
	$SED 'y/aa/b/' && exit 1
	$SED 'y/aa/' && exit 1
	$SED 'y/a/b' && exit 1
	$SED 'y/a/b/c/d' && exit 1
	$SED '!' && exit 1
	$SED supercalifrangolisticexprialidociussupercalifrangolisticexcius
	}

	main ${1+"$@"}