code: regress

ref: f362be8f65afb8dc5c18507d7f3750206ab4f0ec
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)}'