Test files repo-copied into tools/regression/usr.bin/sed and integrated
into the regression testing framework.
This commit is contained in:
Diomidis Spinellis
parent
0a6ffa2714
commit
d6eb3444a3
@ -1,103 +0,0 @@
|
||||
# Towers of Hanoi in sed.
|
||||
#
|
||||
# @(#)hanoi.sed 8.1 (Berkeley) 6/6/93
|
||||
# $FreeBSD$
|
||||
#
|
||||
#
|
||||
# Ex:
|
||||
# Run "sed -f hanoi.sed", and enter:
|
||||
#
|
||||
# :abcd: : :<CR>
|
||||
#
|
||||
# note -- TWO carriage returns were once required, this will output the
|
||||
# sequence of states involved in moving 4 rings, the largest called "a" and
|
||||
# the smallest called "d", from the first to the second of three towers, so
|
||||
# that the rings on any tower at any time are in descending order of size.
|
||||
# You can start with a different arrangement and a different number of rings,
|
||||
# say :ce:b:ax: and it will give the shortest procedure for moving them all
|
||||
# to the middle tower. The rules are: the names of the rings must all be
|
||||
# lower-case letters, they must be input within 3 fields (representing the
|
||||
# towers) and delimited by 4 colons, such that the letters within each field
|
||||
# are in alphabetical order (i.e. rings are in descending order of size).
|
||||
#
|
||||
# For the benefit of anyone who wants to figure out the script, an "internal"
|
||||
# line of the form
|
||||
# b:0abx:1a2b3 :2 :3x2
|
||||
# has the following meaning: the material after the three markers :1, :2,
|
||||
# and :3 represents the three towers; in this case the current set-up is
|
||||
# ":ab : :x :". The numbers after a, b and x in these fields indicate
|
||||
# that the next time it gets a chance, it will move a to tower 2, move b
|
||||
# to tower 3, and move x to tower 2. The string after :0 just keeps track
|
||||
# of the alphabetical order of the names of the rings. The b at the
|
||||
# beginning means that it is now dealing with ring b (either about to move
|
||||
# it, or re-evaluating where it should next be moved to).
|
||||
#
|
||||
# Although this version is "limited" to 26 rings because of the size of the
|
||||
# alphabet, one could write a script using the same idea in which the rings
|
||||
# were represented by arbitrary [strings][within][brackets], and in place of
|
||||
# the built-in line of the script giving the order of the letters of the
|
||||
# alphabet, it would accept from the user a line giving the ordering to be
|
||||
# assumed, e.g. [ucbvax][decvax][hplabs][foo][bar].
|
||||
#
|
||||
# George Bergman
|
||||
# Math, UC Berkeley 94720 USA
|
||||
|
||||
# cleaning, diagnostics
|
||||
s/ *//g
|
||||
/^$/d
|
||||
/[^a-z:]/{a\
|
||||
Illegal characters: use only a-z and ":". Try again.
|
||||
d
|
||||
}
|
||||
/^:[a-z]*:[a-z]*:[a-z]*:$/!{a\
|
||||
Incorrect format: use\
|
||||
\ : string1 : string2 : string3 :<CR>\
|
||||
Try again.
|
||||
d
|
||||
}
|
||||
/\([a-z]\).*\1/{a\
|
||||
Repeated letters not allowed. Try again.
|
||||
d
|
||||
}
|
||||
# initial formatting
|
||||
h
|
||||
s/[a-z]/ /g
|
||||
G
|
||||
s/^:\( *\):\( *\):\( *\):\n:\([a-z]*\):\([a-z]*\):\([a-z]*\):$/:1\4\2\3:2\5\1\3:3\6\1\2:0/
|
||||
s/[a-z]/&2/g
|
||||
s/^/abcdefghijklmnopqrstuvwxyz/
|
||||
:a
|
||||
s/^\(.\).*\1.*/&\1/
|
||||
s/.//
|
||||
/^[^:]/ba
|
||||
s/\([^0]*\)\(:0.*\)/\2\1:/
|
||||
s/^[^0]*0\(.\)/\1&/
|
||||
:b
|
||||
# outputting current state without markers
|
||||
h
|
||||
s/.*:1/:/
|
||||
s/[123]//gp
|
||||
g
|
||||
:c
|
||||
# establishing destinations
|
||||
/^\(.\).*\1:1/td
|
||||
/^\(.\).*:1[^:]*\11/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\31/
|
||||
/^\(.\).*:1[^:]*\12/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\33/
|
||||
/^\(.\).*:1[^:]*\13/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\32/
|
||||
/^\(.\).*:2[^:]*\11/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\33/
|
||||
/^\(.\).*:2[^:]*\12/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\32/
|
||||
/^\(.\).*:2[^:]*\13/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\31/
|
||||
/^\(.\).*:3[^:]*\11/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\32/
|
||||
/^\(.\).*:3[^:]*\12/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\31/
|
||||
/^\(.\).*:3[^:]*\13/s/^\(.\)\(.*\1\([a-z]\).*\)\3./\3\2\33/
|
||||
bc
|
||||
# iterate back to find smallest out-of-place ring
|
||||
:d
|
||||
s/^\(.\)\(:0[^:]*\([^:]\)\1.*:\([123]\)[^:]*\1\)\4/\3\2\4/
|
||||
td
|
||||
# move said ring (right, resp. left)
|
||||
s/^\(.\)\(.*\)\1\([23]\)\(.*:\3[^ ]*\) /\1\2 \4\1\3/
|
||||
s/^\(.\)\(.*:\([12]\)[^ ]*\) \(.*\)\1\3/\1\2\1\3\4 /
|
||||
tb
|
||||
s/.*/Done! Try another, or end with ^D./p
|
||||
d
|
||||
@ -1,439 +0,0 @@
|
||||
# This is ksb's infamous sed calculator. (ksb@sa.fedex.com)
|
||||
#
|
||||
# $FreeBSD$
|
||||
#
|
||||
# $Id: math.sed,v 2.5 1998/08/02 13:23:34 ksb Exp ksb $
|
||||
# expr ::= (expr) | expr! |
|
||||
# expr ^ expr |
|
||||
# -expr | expr * expr | expr / expr | expr % expr |
|
||||
# expr + expr | expr - expr |
|
||||
# [0-9][0-9]* ;
|
||||
# Bugs: some sign combinations don't work, and I got sick of added cases
|
||||
# for unary +. Don't depend on signed math working all the time. -- ksb
|
||||
#
|
||||
# $Compile: echo "4+7*3+2^7/3" | sed -f %f
|
||||
|
||||
# make sure the expression is well formed
|
||||
s/[ ]//g
|
||||
/[*\/^%+-]$/{
|
||||
a\
|
||||
poorly formed expression, dyadic operator on the end
|
||||
q
|
||||
}
|
||||
/^[*\/^%]/{
|
||||
a\
|
||||
poorly formed expression, leading dyadic operator
|
||||
q
|
||||
}
|
||||
|
||||
# fill hold space with done token
|
||||
x
|
||||
s/^.*/done/
|
||||
x
|
||||
|
||||
# main loop, process operators ((), !, *, /, %, +, and -)
|
||||
: loop
|
||||
# uncomment the print below to follow the "logic" -- ksb
|
||||
#p
|
||||
/^[+]/{
|
||||
s///
|
||||
b loop
|
||||
}
|
||||
/^--/{
|
||||
s///
|
||||
b loop
|
||||
}
|
||||
# eval parenthesised sub expressions first
|
||||
/^\(.*\)(\([^)]*\))\(.*\)$/{
|
||||
H
|
||||
s//\2/
|
||||
x
|
||||
s/^\(.*\)\n\(.*\)(\([^()]*\))\(.*\)$/()\2@\4@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# reduce a^b^c -> a^(b^c)
|
||||
/\([0-9][0-9]*^\)\([0-9][0-9]*^[0-9][0-9^]*\)/{
|
||||
s//\1(\2)/
|
||||
b loop
|
||||
}
|
||||
# pull any burried exponents
|
||||
/^\(.*[^0-9]\)\([0-9][0-9]*^[0-9][0-9]*\)$/{
|
||||
s//\1(\2)/
|
||||
b loop
|
||||
}
|
||||
/^\(.*[^0-9]\)\([0-9][0-9]*^[0-9][0-9]*\)\([^0-9].*\)$/{
|
||||
s//\1(\2)\3/
|
||||
b loop
|
||||
}
|
||||
/^\([0-9][0-9]*^[0-9][0-9]*\)\([^0-9].*\)$/{
|
||||
s//(\1)\2/
|
||||
b loop
|
||||
}
|
||||
/^\([-]*[0-9]*\)^0*$/{
|
||||
s//1/
|
||||
b loop
|
||||
}
|
||||
/^\([-]*[0-9]*\)^0*1$/{
|
||||
s//\1/
|
||||
b loop
|
||||
}
|
||||
/^\([-]*[0-9]*\)^-[0-9]*$/{
|
||||
s//0/
|
||||
b loop
|
||||
}
|
||||
/^\([-]*\)\([0-9]*\)^\([0-9][0-9]*[13579]\)$/{
|
||||
s//\1\2*((\2*\2)^(\3\/2))/
|
||||
b loop
|
||||
}
|
||||
/^[-]*\([0-9]*\)^\([0-9][0-9]*[02468]\)$/{
|
||||
s//(\1*\1)^(\2\/2)/
|
||||
b loop
|
||||
}
|
||||
# single digit powers (2 3,9 4,6,8 5,7
|
||||
/^[-]*\([0-9]*\)^0*2$/{
|
||||
s//(\1*\1)/
|
||||
b loop
|
||||
}
|
||||
/^\([-]*\)\([0-9]*\)^0*\([39]\)$/{
|
||||
s//\1(\2*(\2*\2))^(\3\/3)/
|
||||
b loop
|
||||
}
|
||||
/^[-]*\([0-9]*\)^0*\([468]\)$/{
|
||||
s//(\1*\1)^(\2\/2)/
|
||||
b loop
|
||||
}
|
||||
# 5 7
|
||||
/^\([-]*[0-9]*\)^\([0-9]*\)$/{
|
||||
s//\1*(\1^(\2-1))/
|
||||
b loop
|
||||
}
|
||||
# reduce all number factorials
|
||||
/^0*[01]!/{
|
||||
s//1/
|
||||
b loop
|
||||
}
|
||||
/\([*+-/%^]\)0*[01]!/{
|
||||
s//\11/
|
||||
b loop
|
||||
}
|
||||
/\([0-9]*\)!/{
|
||||
s//(\1-1)!*\1/
|
||||
b loop
|
||||
}
|
||||
# sign simplifications
|
||||
/^-\([0-9]*\)\([*/%]\)-\([0-9]*\)$/{
|
||||
s//\1\2\3/
|
||||
b loop
|
||||
}
|
||||
/^\([0-9]*\)\([*/%]\)-\([0-9]*\)$/{
|
||||
s//-\1\2\3/
|
||||
b loop
|
||||
}
|
||||
/^-\([0-9][0-9]*\)[+]*-\([0-9][0-9]*\)$/{
|
||||
s//\1+\2/
|
||||
x
|
||||
s/\(.*\)/()-@@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
/^-\([0-9]*\)[+]\([0-9]\)*$/{
|
||||
s//\2-\1/
|
||||
b loop
|
||||
}
|
||||
/^-.*[-+*/%].*/{
|
||||
H
|
||||
s/^-//
|
||||
x
|
||||
s/^\(.*\)\n-.*$/()-@@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# can we simplify multiplications
|
||||
/^\([0-9]*\)\([*][0-9]*[1-9]\)00*$/{
|
||||
H
|
||||
s//\1\2/
|
||||
x
|
||||
s/^\(.*\)\n[0-9]*[*][0-9]*[1-9]\(00*\)$/()@\2@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
/^\([0-9][1-9]*\)00*\([*][0-9]*\)$/{
|
||||
H
|
||||
s//\1\2/
|
||||
x
|
||||
s/^\(.*\)\n[0-9][1-9]*\(00*\)[*][0-9]*$/()@\2@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# can we simplify division (20/30 -> 2/3)
|
||||
/^\([0-9][0-9]*\)0\([/%]\)\([0-9][0-9]*\)0$/{
|
||||
s//\1\2\3/
|
||||
b loop
|
||||
}
|
||||
# n/1 -> n
|
||||
/^0*\([0-9][0-9]*\)0[/]0*1$/{
|
||||
s//\1/
|
||||
b loop
|
||||
}
|
||||
# n%2 -> last_digit(n)%2 (same for 1, BTW) N.B. NO LOOP
|
||||
/^[0-9]*\([0-9]\)%0*\([12]\)$/{
|
||||
s//\1%\2/
|
||||
}
|
||||
# move any mul/divs to the front via parans
|
||||
/^\([0-9+]*\)\([-+]\)\([0-9]*[*/][0-9*/]*\)/{
|
||||
s//\1\2(\3)/
|
||||
b loop
|
||||
}
|
||||
# can we div or mul
|
||||
/^[0-9]*[*][0-9]*$/{
|
||||
b mul
|
||||
}
|
||||
/^[0-9]*[/%]0*$/{
|
||||
i\
|
||||
divide by zero
|
||||
d
|
||||
}
|
||||
/^[0-9]*[/%][0-9]*$/{
|
||||
H
|
||||
s/\([0-9]\).*[/%]/\1-/
|
||||
x
|
||||
s/^\(.*\)\n\([0-9]\)\([0-9]*\)\([/%]\)\([0-9]*\).*$/.\4\3q0r\2-\5@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
/^\([0-9]*[*/%][0-9]*\)\(.*\)/{
|
||||
H
|
||||
s//\1/
|
||||
x
|
||||
s/^\(.*\)\n\([0-9]*[*/][0-9]*\)\(.*\)$/()@\3@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# can we add or subtract -- note subtract hold expression for underflow
|
||||
/^[0-9]*[+][0-9]*$/{
|
||||
s/$/=/
|
||||
b add
|
||||
}
|
||||
/^[0-9][0-9]*-[0-9]*$/{
|
||||
H
|
||||
s/$/=/
|
||||
b sub
|
||||
}
|
||||
/^\([0-9][0-9]*[-+][0-9]*\)\(.*\)/{
|
||||
H
|
||||
s//\1/
|
||||
x
|
||||
s/^\(.*\)\n\([0-9]*[-+][0-9]*\)\(.*\)$/()@\3@\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# look in hold space for stack to reduce
|
||||
x
|
||||
/^done$/{
|
||||
x
|
||||
s/^0*\([0-9][0-9]*\)/\1/
|
||||
p
|
||||
d
|
||||
}
|
||||
# .[/%] numerator q quotient r remainder-divisor @stack
|
||||
/^\./{
|
||||
x
|
||||
/^[^-]/{
|
||||
H
|
||||
x
|
||||
s/.\(.\)\([0-9]*\)q\([^r]*\)r\([0-9]*\)-\([0-9]*\)@\(.*\)\n\(.*\)/.\1\2q\3+1r\7-\5@\6/
|
||||
h
|
||||
s/..[0-9]*q[^r]*r\([0-9]*-[0-9]*\)@.*/\1/
|
||||
b loop
|
||||
}
|
||||
/^-/{
|
||||
g
|
||||
/.\(.\)\([0-9]\)\([0-9]*\)q\([^r]*\)r0*\([0-9]*\)-\([^@]*\)@.*/{
|
||||
s//\5\2-\6/
|
||||
x
|
||||
s/.\(.\)\([0-9]\)\([0-9]*\)q\([^r]*\)r0*\([0-9]*\)-\([0-9]*\)@\(.*\)/.\1\3q(\4)*10r\5\2-\6@\7/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
# no digits to shift on
|
||||
s/^\.[/]q\([^r]*\)r[^@]*@.*/\1/
|
||||
s/^\.[%]q[^r]*r0*\([0-9][0-9]*\)-[^@]*@.*/\1/
|
||||
/^\./{
|
||||
i\
|
||||
divide error
|
||||
q
|
||||
}
|
||||
x
|
||||
s/^\.[/%]q[^r]*r[^@]*@\(.*\)/\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
}
|
||||
/^()/{
|
||||
s///
|
||||
x
|
||||
G
|
||||
s/\(.*\)\n\([^@]*\)@\([^@]*\)@\(.*\)/\2\1\3/
|
||||
x
|
||||
s/[^@]*@[^@]*@\(.*\)/\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
i\
|
||||
help, stack problem - the hold space
|
||||
p
|
||||
x
|
||||
i\
|
||||
and the pat space
|
||||
p
|
||||
i\
|
||||
quit
|
||||
q
|
||||
|
||||
# turn mul into add until 1*x -> x, 0*x -> 0
|
||||
: mul
|
||||
/^00*\*.*/{
|
||||
s//0/
|
||||
b loop
|
||||
}
|
||||
/^0*1\*/{
|
||||
s///
|
||||
: leading
|
||||
s/^0*\([0-9][0-9]*\)/\1/
|
||||
b loop
|
||||
}
|
||||
s/^\([0-9]*\)0\*\([0-9]*\)/\1*\20/
|
||||
s/^\([0-9]*\)1\*\([0-9]*\)/\1*\20+\2/
|
||||
s/^\([0-9]*\)2\*\([0-9]*\)/\1*\20+(\2+\2)/
|
||||
s/^\([0-9]*\)3\*\([0-9]*\)/\1*\20+(\2+\2+\2)/
|
||||
s/^\([0-9]*\)4\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2)/
|
||||
s/^\([0-9]*\)5\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2+\2)/
|
||||
s/^\([0-9]*\)6\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2+\2+\2)/
|
||||
s/^\([0-9]*\)7\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2+\2+\2+\2)/
|
||||
s/^\([0-9]*\)8\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2+\2+\2+\2+\2)/
|
||||
s/^\([0-9]*\)9\*\([0-9]*\)/\1*\20+(\2+\2+\2+\2+\2+\2+\2+\2+\2)/
|
||||
/^0*\*[0-9]*[+]*\(.*\)/{
|
||||
s//\1/
|
||||
b loop
|
||||
}
|
||||
b mul
|
||||
|
||||
# get rid of a plus term until 0+x -> x
|
||||
: add
|
||||
/^[+]\([0-9+*]*\)=/{
|
||||
s//\1/
|
||||
b leading
|
||||
}
|
||||
/^\([0-9*]*\)[+]=/{
|
||||
s//\1/
|
||||
b loop
|
||||
}
|
||||
/^\([0-9]*\)0[+]\([0-9]*\)\([0-9]\)=/{
|
||||
s//\1+\2=\3/
|
||||
b add
|
||||
}
|
||||
/^\([0-9]*\)\([0-9]\)[+]\([0-9]*\)0=/{
|
||||
s//\1+\3=\2/
|
||||
b add
|
||||
}
|
||||
s/^\([0-9]*\)1[+]/\10+/
|
||||
s/^\([0-9]*\)2[+]/\11+/
|
||||
s/^\([0-9]*\)3[+]/\12+/
|
||||
s/^\([0-9]*\)4[+]/\13+/
|
||||
s/^\([0-9]*\)5[+]/\14+/
|
||||
s/^\([0-9]*\)6[+]/\15+/
|
||||
s/^\([0-9]*\)7[+]/\16+/
|
||||
s/^\([0-9]*\)8[+]/\17+/
|
||||
s/^\([0-9]*\)9[+]/\18+/
|
||||
|
||||
s/9=\([0-9]*\)$/_=\1/
|
||||
s/8=\([0-9]*\)$/9=\1/
|
||||
s/7=\([0-9]*\)$/8=\1/
|
||||
s/6=\([0-9]*\)$/7=\1/
|
||||
s/5=\([0-9]*\)$/6=\1/
|
||||
s/4=\([0-9]*\)$/5=\1/
|
||||
s/3=\([0-9]*\)$/4=\1/
|
||||
s/2=\([0-9]*\)$/3=\1/
|
||||
s/1=\([0-9]*\)$/2=\1/
|
||||
/_/{
|
||||
s//_0/
|
||||
: inc
|
||||
s/9_/_0/
|
||||
s/8_/9/
|
||||
s/7_/8/
|
||||
s/6_/7/
|
||||
s/5_/6/
|
||||
s/4_/5/
|
||||
s/3_/4/
|
||||
s/2_/3/
|
||||
s/1_/2/
|
||||
s/0_/1/
|
||||
s/[+]_/+1/
|
||||
/_/b inc
|
||||
}
|
||||
b add
|
||||
|
||||
# get rid of a sub term until /-0*=/ or underflow
|
||||
: sub
|
||||
/^\([0-9]*\)-0*=/{
|
||||
s//\1/
|
||||
x
|
||||
s/\(.*\)\n.*$/\1/
|
||||
x
|
||||
b leading
|
||||
}
|
||||
/^-\([0-9].*\)=/{
|
||||
: under
|
||||
g
|
||||
s/.*\n\([0-9]*\)-\([0-9]*\).*/-(\2-\1)/
|
||||
x
|
||||
s/\(.*\)\n.*/\1/
|
||||
x
|
||||
b loop
|
||||
}
|
||||
/^\([0-9]*\)\([0-9]\)-\([0-9]*\)0=/{
|
||||
s//\1-\3=\2/
|
||||
b sub
|
||||
}
|
||||
s/1=/0=/
|
||||
s/2=/1=/
|
||||
s/3=/2=/
|
||||
s/4=/3=/
|
||||
s/5=/4=/
|
||||
s/6=/5=/
|
||||
s/7=/6=/
|
||||
s/8=/7=/
|
||||
s/9=/8=/
|
||||
|
||||
s/^\([0-9]*\)1-/\1_-/
|
||||
s/^\([0-9]*\)2-/\11-/
|
||||
s/^\([0-9]*\)3-/\12-/
|
||||
s/^\([0-9]*\)4-/\13-/
|
||||
s/^\([0-9]*\)5-/\14-/
|
||||
s/^\([0-9]*\)6-/\15-/
|
||||
s/^\([0-9]*\)7-/\16-/
|
||||
s/^\([0-9]*\)8-/\17-/
|
||||
s/^\([0-9]*\)9-/\18-/
|
||||
s/^\([0-9]*\)0-/\1'9-/
|
||||
s/_/0/
|
||||
|
||||
: scarry
|
||||
/0'/{
|
||||
s//'9/
|
||||
b scarry
|
||||
}
|
||||
/^'/{
|
||||
b under
|
||||
}
|
||||
s/1'/0/
|
||||
s/2'/1/
|
||||
s/3'/2/
|
||||
s/4'/3/
|
||||
s/5'/4/
|
||||
s/6'/5/
|
||||
s/7'/6/
|
||||
s/8'/7/
|
||||
s/9'/8/
|
||||
|
||||
b sub
|
||||
@ -1,556 +0,0 @@
|
||||
#!/bin/sh -
|
||||
#
|
||||
# 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.
|
||||
# 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.
|
||||
#
|
||||
# @(#)sed.test 8.1 (Berkeley) 6/6/93
|
||||
#
|
||||
# $FreeBSD$
|
||||
#
|
||||
|
||||
# sed Regression Tests
|
||||
#
|
||||
# The following files are created:
|
||||
# lines[1-4], script1, script2
|
||||
# Two directories *.out contain the test results
|
||||
|
||||
main()
|
||||
{
|
||||
BASE=/usr/bin/sed
|
||||
BASELOG=sed.out
|
||||
TEST=`cd ..; make whereobj`/sed
|
||||
TESTLOG=nsed.out
|
||||
DICT=/usr/share/dict/words
|
||||
|
||||
test_error | more
|
||||
|
||||
awk 'END { for (i = 1; i < 15; i++) print "l1_" i}' </dev/null >lines1
|
||||
awk 'END { for (i = 1; i < 10; i++) print "l2_" i}' </dev/null >lines2
|
||||
|
||||
exec 4>&1 5>&2
|
||||
|
||||
# Set these flags to get messages about known problems
|
||||
BSD=1
|
||||
GNU=0
|
||||
SUN=0
|
||||
tests $BASE $BASELOG
|
||||
|
||||
BSD=0
|
||||
GNU=0
|
||||
SUN=0
|
||||
tests $TEST $TESTLOG
|
||||
exec 1>&4 2>&5
|
||||
diff -c $BASELOG $TESTLOG | more
|
||||
}
|
||||
|
||||
tests()
|
||||
{
|
||||
SED=$1
|
||||
DIR=$2
|
||||
rm -rf $DIR
|
||||
mkdir $DIR
|
||||
MARK=100
|
||||
|
||||
test_args
|
||||
test_addr
|
||||
echo Testing commands
|
||||
test_group
|
||||
test_acid
|
||||
test_branch
|
||||
test_pattern
|
||||
test_print
|
||||
test_subst
|
||||
}
|
||||
|
||||
mark()
|
||||
{
|
||||
MARK=`expr $MARK + 1`
|
||||
exec 1>&4 2>&5
|
||||
exec >"$DIR/${MARK}_$1"
|
||||
echo "Test $1:$MARK"
|
||||
# Uncomment this line to match tests with sed error messages
|
||||
echo "Test $1:$MARK" >&5
|
||||
}
|
||||
|
||||
test_args()
|
||||
{
|
||||
mark '1.1'
|
||||
echo Testing argument parsing
|
||||
echo First type
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED 's/^/e1_/p' lines1
|
||||
fi
|
||||
mark '1.2' ; $SED -n 's/^/e1_/p' lines1
|
||||
mark '1.3'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED 's/^/e1_/p' <lines1
|
||||
fi
|
||||
mark '1.4' ; $SED -n 's/^/e1_/p' <lines1
|
||||
echo Second type
|
||||
mark '1.4.1'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed fails this
|
||||
fi
|
||||
$SED -e '' <lines1
|
||||
echo 's/^/s1_/p' >script1
|
||||
echo 's/^/s2_/p' >script2
|
||||
mark '1.5'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -f script1 lines1
|
||||
fi
|
||||
mark '1.6'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -f script1 <lines1
|
||||
fi
|
||||
mark '1.7'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -e 's/^/e1_/p' lines1
|
||||
fi
|
||||
mark '1.8'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -e 's/^/e1_/p' <lines1
|
||||
fi
|
||||
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'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -n -e 's/^/e1_/p' <lines1
|
||||
fi
|
||||
mark '1.13'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -e 's/^/e1_/p' -e 's/^/e2_/p' lines1
|
||||
fi
|
||||
mark '1.14'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -f script1 -f script2 lines1
|
||||
fi
|
||||
mark '1.15'
|
||||
if [ $GNU -eq 1 -o $SUN -eq 1 ] ; then
|
||||
echo GNU and SunOS sed fail this following older POSIX draft
|
||||
else
|
||||
$SED -e 's/^/e1_/p' -f script1 lines1
|
||||
fi
|
||||
mark '1.16'
|
||||
if [ $SUN -eq 1 ] ; then
|
||||
echo SunOS sed prints only with -n
|
||||
else
|
||||
$SED -e 's/^/e1_/p' lines1 lines1
|
||||
fi
|
||||
# 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
|
||||
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'
|
||||
if [ $BSD -eq 1 ] ; then
|
||||
echo BSD sed fails this test
|
||||
fi
|
||||
if [ $GNU -eq 1 ] ; then
|
||||
echo GNU sed fails this
|
||||
fi
|
||||
$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'
|
||||
if [ $GNU -eq 1 ] ; then
|
||||
echo GNU sed fails this
|
||||
fi
|
||||
$SED -n '12,3p' lines1 lines2
|
||||
mark '2.20'
|
||||
if [ $GNU -eq 1 ] ; then
|
||||
echo GNU sed fails this
|
||||
fi
|
||||
$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'
|
||||
if [ $GNU -eq 1 ] ; then
|
||||
echo GNU sed fails this
|
||||
fi
|
||||
$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
|
||||
# SunOS and GNU sed behave differently. We follow POSIX
|
||||
# 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'
|
||||
if [ $BSD -eq 1 ] ; then
|
||||
echo BSD sed fails this test
|
||||
fi
|
||||
$SED -n -e '
|
||||
s/l1_/l2_/
|
||||
t ok
|
||||
b
|
||||
:ok
|
||||
s/^/tested /p
|
||||
' lines1 lines2
|
||||
# SunOS sed behaves differently here. Clarification needed.
|
||||
# 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'
|
||||
if [ $BSD -eq 1 ] ; then
|
||||
echo BSD sed fails this test
|
||||
fi
|
||||
$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
|
||||
# SunOS sed refused to print here
|
||||
# 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
|
||||
# GNU and SunOS sed behave differently here
|
||||
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'
|
||||
if [ $BSD -eq 1 -o $GNU -eq 1 -o $SUN -eq 1 ] ; then
|
||||
echo BSD, GNU and SunOS cannot pass this one
|
||||
else
|
||||
sed '200q' $DICT | sed 's$.*$s/^/&/w tmpdir/&$' >script1
|
||||
rm -rf tmpdir
|
||||
mkdir tmpdir
|
||||
$SED -f script1 lines1
|
||||
cat tmpdir/*
|
||||
rm -rf tmpdir
|
||||
fi
|
||||
mark '7.8'
|
||||
if [ $BSD -eq 1 ] ; then
|
||||
echo BSD sed cannot pass 7.7
|
||||
else
|
||||
echo line1 > lines3
|
||||
echo "" >> lines3
|
||||
$SED -n -e '$p' lines3 /dev/null
|
||||
fi
|
||||
|
||||
}
|
||||
|
||||
test_subst()
|
||||
{
|
||||
echo Testing substitution commands
|
||||
mark '8.1' ; $SED -e 's/./X/g' lines1
|
||||
mark '8.2' ; $SED -e 's,.,X,g' lines1
|
||||
# GNU and SunOS sed thinks we are escaping . as wildcard, not as separator
|
||||
# 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'
|
||||
if [ $BSD -eq 1 -o $GNU -eq 1 ] ; then
|
||||
echo 'BSD/GNU sed do not understand digit flags on s commands'
|
||||
fi
|
||||
$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' ;
|
||||
if [ $BSD -eq 1 -o $GNU -eq 1 -o $SUN -eq 1 ] ; then
|
||||
echo BSD/GNU/SUN sed fail this test
|
||||
else
|
||||
$SED -e 'y10\123456789198765432\101' lines1
|
||||
fi
|
||||
mark '8.15' ; $SED -e '1N;2y/\n/X/' lines1
|
||||
mark '8.16'
|
||||
echo 'eeefff' | $SED -e '
|
||||
p
|
||||
s/e/X/p
|
||||
:x
|
||||
s//Y/p
|
||||
# Establish limit counter in the hold space
|
||||
# GNU sed version 3.02 enters into an infinite loop here
|
||||
x
|
||||
/.\{10\}/ {
|
||||
s/.*/ERROR/
|
||||
b
|
||||
}
|
||||
s/.*/&./
|
||||
x
|
||||
/f/bx
|
||||
'
|
||||
}
|
||||
|
||||
test_error()
|
||||
{
|
||||
exec 0>&3 4>&1 5>&2
|
||||
exec 0</dev/null
|
||||
exec 2>&1
|
||||
set -x
|
||||
$TEST -x && exit 1
|
||||
$TEST -f && exit 1
|
||||
$TEST -e && exit 1
|
||||
$TEST -f /dev/dds && exit 1
|
||||
$TEST p /dev/dds && exit 1
|
||||
$TEST -f /bin/sh && exit 1
|
||||
$TEST '{' && exit 1
|
||||
$TEST '{' && exit 1
|
||||
$TEST '/hello/' && exit 1
|
||||
$TEST '1,/hello/' && exit 1
|
||||
$TEST -e '-5p' && exit 1
|
||||
$TEST '/jj' && exit 1
|
||||
$TEST 'a hello' && exit 1
|
||||
$TEST 'a \ hello' && exit 1
|
||||
$TEST 'b foo' && exit 1
|
||||
$TEST 'd hello' && exit 1
|
||||
$TEST 's/aa' && exit 1
|
||||
$TEST 's/aa/' && exit 1
|
||||
$TEST 's/a/b' && exit 1
|
||||
$TEST 's/a/b/c/d' && exit 1
|
||||
$TEST 's/a/b/ 1 2' && exit 1
|
||||
$TEST 's/a/b/ 1 g' && exit 1
|
||||
$TEST 's/a/b/w' && exit 1
|
||||
$TEST 'y/aa' && exit 1
|
||||
$TEST 'y/aa/b/' && exit 1
|
||||
$TEST 'y/aa/' && exit 1
|
||||
$TEST 'y/a/b' && exit 1
|
||||
$TEST 'y/a/b/c/d' && exit 1
|
||||
$TEST '!' && exit 1
|
||||
$TEST supercalifrangolisticexprialidociussupercalifrangolisticexcius
|
||||
set +x
|
||||
exec 0>&3 1>&4 2>&5
|
||||
}
|
||||
|
||||
main
|
||||
Loading…
Reference in New Issue
Block a user