Mercurial > hg > may
diff test/test_blockfuncs.yeti @ 53:d037211bf5d7
Further test tidying, add complex tests
author | Chris Cannam |
---|---|
date | Tue, 08 Jan 2013 16:21:08 +0000 |
parents | 27eaa557fe76 |
children |
line wrap: on
line diff
--- a/test/test_blockfuncs.yeti Mon Jan 07 22:33:45 2013 +0000 +++ b/test/test_blockfuncs.yeti Tue Jan 08 16:21:08 2013 +0000 @@ -5,9 +5,9 @@ { zeros, consts, ones, fromList, list } = load block; { sum, mean, multiply, divideBy, sqr, sqrt, rms, fftshift, ifftshift } = load blockfuncs; -{ declare, compare } = load test.test; +{ compare } = load test.test; -declare [ +[ "sum": \( compare ((sum . zeros) 0) 0 and @@ -63,5 +63,6 @@ compare ((list . ifftshift . fromList) [4,5,1,2,3]) [1,2,3,4,5] ), -]; +] is hash<string, () -> boolean>; +