xref: /freebsd/contrib/one-true-awk/testdir/t.assert (revision e51b3d8e53cee7d6a36e34e1cd4d588593d71b40)
1# tests whether function returns sensible type bits
2
3function assert(cond) { # assertion
4    if (!cond) print "   >>> assert failed <<<"
5}
6
7function i(x) { return x }
8
9{ m = length($1); n = length($2); n = i(n); assert(m > n) }
10