awk/testdir/t.assert
Arnold D. Robbins d6c466c367 Extract testdir.
2019-06-23 03:13:57 -06:00

10 lines
228 B
Plaintext

# tests whether function returns sensible type bits
function assert(cond) { # assertion
if (!cond) print " >>> assert failed <<<"
}
function i(x) { return x }
{ m = length($1); n = length($2); n = i(n); assert(m > n) }