code: regress

ref: d1b9c31b4a1da4c95da493ec18c0ec5085694785
dir: /cmd/awk.rc/

View raw version 
#!/bin/rc
rfork e

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

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