From 3815bc25f62124063e02af83fe3c907336dc86f5 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Fri, 28 Sep 2007 12:25:56 +0000
Subject: algorithms interface reorganized

---
 examples/tests.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'examples')

diff --git a/examples/tests.hs b/examples/tests.hs
index b542113..5c14f96 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -328,6 +328,7 @@ tests = do
      [ test "arith1" $ ((ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| (49 :: RM)
      , test "arith2" $ (((1+i) .* ones (100,100) * 5 + 2)/0.5 - 7)**2 |~| ( (140*i-51).*1 :: CM)
      , test "arith3" $ exp (i.*ones(10,10)*pi) + 1 |~| 0
+     , test "<\\>"   $ (3><2) [2,0,0,3,1,1::Double] <\> 3|>[4,9,5] |~| 2|>[2,3]
      ]
     putStrLn "--------- GSL ------"
     quickCheck $ \v -> ifft (fft v) |~| v
-- 
cgit v1.2.3