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

25 lines
485 B
Plaintext

{ n = $1
n += $1
if (n != $1 + $1) print NR, "urk +="
n = $1
n -= $1
if (n != 0) print NR, "urk -="
n = $1
n *= 3.5
if (n != 3.5 * $1) print NR, "urk *="
n = $1
n /= 4
if (n != $1 / 4) print NR, "urk /="
n = NR
n ^= 2
if (n != NR * NR) print NR, "urk1 ^=", n, NR * NR
n = NR
n **= 2
if (n != NR * NR) print NR, "urk1 **=", n, NR * NR
n = NR
n ^= 1.5
ns = sprintf("%.10g", n)
sq = sprintf("%.10g", NR * sqrt(NR))
if (ns != sq) print NR, "urk2 ^=", ns, sq
}