#!/bin/rcecho T.expr: tests of miscellaneous expressions >[1=2] $awk 'BEGIN {	FS = "\t"	awk = ENVIRON["awk"]}NF == 0 || $1 ~ /^#/ {	next}$1 ~ /try/ {	# new test	nt++	sub(/try /, "")	prog = $0	# printf("%3d  %s\n", nt, prog)	prog = sprintf("%s -F''\\t'' ''%s''", awk, prog)	# print "prog is", prog	nt2 = 1	while (getline > 0) {		if (NF == 0)	# blank line terminates a sequence			break		input = $1		for (i = 2; i < NF; i++)	# input data			input = input "\t" $i		test = sprintf("echo ''%s'' | %s >foo1."nt"."nt2"; ",			input, prog)		if ($NF == "\"\"")			output = ">foo2."nt"."nt2";"		else			output = sprintf("echo ''%s'' >foo2."nt"."nt2"; ", $NF)		gsub(/\\t/, "\t", output)		gsub(/\\n/, "\n", output)		run = sprintf("cmp foo1."nt"."nt2 " foo2."nt"."nt2 " || echo BAD: T.expr: %d.%d >[1=2]",			nt, nt2)		# print  "input is", input		# print  "test is", test		# print  "output is", output		# print  "run is", run		system(test output run)		nt2++	}	tt += nt2}#END { print tt, "tests" }' <<'!!!!'# General format:# try program as rest of line# $1	$2	$3	output1  (\t for tab, \n for newline,# $1	$2	$3	output2  ("" for null)# ... terminated by blank line # try another program... try { print ($1 == 1) ? "yes" : "no" }1	yes1.0	yes1E0	yes0.1E1	yes10E-1	yes01	yes10	no10E-2	no try $1 > 01	12	20	""-1	""1e0	1e00e1	""-2e64	""3.1e4	3.1e4 try { print NF }	0x	1x	y	2	y	2x		2 try { print NF, $NF }	0 x	1 xx	y	2 yx	yy	zzz	3 zzz # this horror prints $($2+1)try { i=1; print ($++$++i) }1	11	2	3	3abc	abc # concatenate $1 and ++$2; print new $1 and concatenated valuetry { x = $1++++$2; print $1, x }1	3	2 14 # do we get the precedence of ! right?try $1 !$20	0	0\t00	1	0\t11	0	1\t01	1	1\t1 # another ava specialtry { print ($1~/abc/ !$2) }0	0	010	1	00abc	0	11xabcd	1	10 try { print !$1 + $2 }1	3	30	3	4-1	3	3 # aside:  !$1 = $2 is now a syntax error # the definition of "number" changes with isnumber.# 2e100 is ok according to strtod.# try 1  try { print ($1 == $2) }0	0	10	1	00	00	10	""	0+0	-0	11	1.0	11	1e0	12e10	2.00e10	12e10	2e+10	12e-10	2e-10	12e10	2e-10	02e10	20e9	12e100	2.000e100	12e1000	2.0e1000	0 # this one (3 & 4) may "fail" if a negative 0 is printed as -0,# but i think this might be a type-coercion problem. try { print $1, +$1, -$1, - -$1 }1	1 1 -1 1-1	-1 -1 1 -10	0 0 0 0 try { printf("a%*sb\n", $1, $2) }1	x	axb2	x	a xb3	x	a  xb try { printf("a%-*sb\n", $1, $2) }1	x	axb2	x	ax b3	x	ax  b try { printf("a%*.*sb\n", $1, $2, "hello") }1	1	ahb2	1	a hb3	1	a  hb try { printf("a%-*.*sb\n", $1, $2, "hello") }1	1	ahb2	1	ah b3	1	ah  b try { if ($1 ~ $2) print 1; else print 0 }a	\141	1a	\142	00	\060	10	\60	10	\0060	0 try { print $1 ~ $2 }a	\141	1a	\142	00	\060	10	\60	10	\0060	0 try { print $1 || $2 }		01		10	0	01	0	10	1	11	1	1a	b	1 try { print $1 && $2 }		01		00	0	01	0	00	1	01	1	1a	b	1 try { $1 = $2; $1 = $1; print $1 }abc	def	defabc	def	ghi	def # $f++ => ($f)++try { f = 1; $f++; print f, $f }11	22	33	1 12  !!!!