code: regress

ref: 58c54e390fbfece997d189ddfb2ba4f1d9922c55
dir: /cmd/awk.rc/

View raw version 
#!/bin/rc
rfork e

fn check{
	expected=$1
	shift
	if(! ~ `{$*} $expected){
		>[1=2] echo $* '!=' $expected
		exit 'fail'
	}
}

check 0 awk 'BEGIN{print length($1)}'