1*23f24377SWarner Losh# tests whether function returns sensible type bits 2*23f24377SWarner Losh 3*23f24377SWarner Loshfunction assert(cond) { # assertion 4*23f24377SWarner Losh if (!cond) print " >>> assert failed <<<" 5*23f24377SWarner Losh} 6*23f24377SWarner Losh 7*23f24377SWarner Loshfunction i(x) { return x } 8*23f24377SWarner Losh 9*23f24377SWarner Losh{ m = length($1); n = length($2); n = i(n); assert(m > n) } 10