dph-test: Add Arbitrary module, and rename some others
authorBen Lippmeier <benl@ouroborus.net>
Wed, 2 Nov 2011 06:21:42 +0000 (17:21 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Thu, 3 Nov 2011 05:26:54 +0000 (16:26 +1100)
13 files changed:
dph-test/test/PData/PRFuns.hs
dph-test/test/Unlifted/Basics.hs
dph-test/test/Unlifted/Combinators.hs
dph-test/test/Unlifted/Permutes.hs
dph-test/test/Unlifted/Segd.hs
dph-test/test/Unlifted/Segmented.hs
dph-test/test/Unlifted/Subarrays.hs
dph-test/test/Unlifted/Sums.hs
dph-test/war/DPH/Arbitrary.hs [new file with mode: 0644]
dph-test/war/DPH/Testsuite.hs
dph-test/war/DPH/Testsuite/Preproc.hs
dph-test/war/DPH/Testsuite/Testcase.hs
dph-test/war/DPH/Testsuite/Utils.hs

index 6e1df23..4e0eedd 100644 (file)
@@ -1,12 +1,7 @@
 {-# LANGUAGE UndecidableInstances #-}
 
-import Testsuite
-import DPH.Arbitrary.Selector
-import DPH.Arbitrary.SliceSpec
-import DPH.Arbitrary.Perm
-import DPH.Arbitrary.Int
-import qualified DPH.Operators.List             as L
-import GHC.Exts
+import DPH.Arbitrary
+import DPH.Testsuite
 
 import Data.Array.Parallel.Base                 (Tag)
 import Data.Array.Parallel.Pretty
@@ -15,15 +10,15 @@ import Data.Array.Parallel.PArray.PData         (PArray(..), PData, PR(..))
 import Data.Array.Parallel.PArray.PData.Base    ()
 import Data.Array.Parallel.PArray.PData.Nested  (concatPR)
 
-
 import Text.PrettyPrint
-import Debug.Trace
+import GHC.Exts
 import Control.Monad
 import Data.Vector                              (Vector)
 import Prelude                                  as P
 import qualified Data.Vector                    as V
 import qualified Data.Array.Parallel.Unlifted   as U
 import qualified Data.Array.Parallel.PArray     as PA
+import qualified DPH.Operators.List             as L
 
 {-
 $(testcases [ ""        <@ [t|  (  Int,        PArray Int,        PArray (PArray Int)
@@ -33,8 +28,8 @@ $(testcases [ ""        <@ [t|  (  Int,        PArray Int,        PArray (PArray
             , "b"       <@ [t|  ( Int,         PArray Int ) |]
             ]
 -}
-$(testcases [ ""        <@ [t|  PArray (PArray Int) |]
-            , "b"       <@ [t|  PArray (PArray Int) |]
+$(testcases [ ""        <@ [t|  PArray Int |]
+            , "b"       <@ [t|  PArray Int |]
             ]
 
   [d|
@@ -47,6 +42,7 @@ $(testcases [ ""        <@ [t|  PArray (PArray Int) |]
       in  validPR arr 
        && vec == toVectorPR arr
 
+
   -- | Define an array that maps all indices to the same element.
   --   The array size must be > 0.
   prop_replicate :: (PR a, Eq a) => a -> Property
index d69bdeb..1b2c84b 100644 (file)
@@ -1,6 +1,5 @@
 
-import Testsuite
-
+import DPH.Testsuite
 import DPH.Arbitrary.Int
 import Data.Array.Parallel.Unlifted as U
 import Prelude as P
index 2e46a6b..1133fa8 100644 (file)
@@ -1,5 +1,4 @@
-import Testsuite
-
+import DPH.Testsuite
 import Data.Array.Parallel.Unlifted as U
 import Prelude as P
 
index 3c1d79b..dc95f21 100644 (file)
@@ -1,5 +1,5 @@
-import Testsuite
-import Testsuite.Utils as TU ( limitRange, update )
+import DPH.Testsuite
+import DPH.Testsuite.Utils as TU ( limitRange, update )
 import DPH.Arbitrary.Int
 import DPH.Arbitrary.Perm
 import Data.Array.Parallel.Unlifted as U
index 2c6488e..7a3d2b5 100644 (file)
@@ -1,5 +1,4 @@
-import Testsuite
-
+import DPH.Testsuite
 import DPH.Arbitrary.Segd
 import Data.Array.Parallel.Unlifted as U
 import Prelude as P
index ece1459..2befc3c 100644 (file)
@@ -1,4 +1,4 @@
-import Testsuite
+import DPH.Testsuite
 import DPH.Arbitrary.Segd
 import DPH.Arbitrary.Int
 import Data.Array.Parallel.Unlifted as U
index 4620885..38c23e3 100644 (file)
@@ -1,4 +1,4 @@
-import Testsuite
+import DPH.Testsuite
 import DPH.Arbitrary.Int
 import Data.Array.Parallel.Unlifted as U
 import Prelude as P
index 9cf2115..e11f2ac 100644 (file)
@@ -1,5 +1,4 @@
-import Testsuite
-
+import DPH.Testsuite
 import Data.Array.Parallel.Unlifted as U
 import Prelude as P
 
diff --git a/dph-test/war/DPH/Arbitrary.hs b/dph-test/war/DPH/Arbitrary.hs
new file mode 100644 (file)
index 0000000..2be38bc
--- /dev/null
@@ -0,0 +1,11 @@
+
+module DPH.Arbitrary 
+        ( module DPH.Arbitrary.Selector
+        , module DPH.Arbitrary.SliceSpec
+        , module DPH.Arbitrary.Perm
+        , module DPH.Arbitrary.Int)
+where
+import DPH.Arbitrary.Selector
+import DPH.Arbitrary.SliceSpec
+import DPH.Arbitrary.Perm
+import DPH.Arbitrary.Int
index 3f39757..3930d05 100644 (file)
@@ -1,14 +1,14 @@
-module Testsuite (
-  module Testsuite.Preproc,
-  module Testsuite.Testcase,
-  module Testsuite.Utils,
+module DPH.Testsuite (
+  module DPH.Testsuite.Preproc,
+  module DPH.Testsuite.Testcase,
+  module DPH.Testsuite.Utils,
 
   module Test.QuickCheck
 ) where
 
-import Testsuite.Preproc
-import Testsuite.Testcase
-import Testsuite.Utils
+import DPH.Testsuite.Preproc
+import DPH.Testsuite.Testcase
+import DPH.Testsuite.Utils
 
 import Test.QuickCheck
 
index 078707a..80310ab 100644 (file)
@@ -1,4 +1,4 @@
-module Testsuite.Preproc ( testcases, (<@) )
+module DPH.Testsuite.Preproc ( testcases, (<@) )
 where
 
 import Language.Haskell.TH
index 814ffef..e281ae0 100644 (file)
@@ -1,4 +1,4 @@
-module Testsuite.Testcase (
+module DPH.Testsuite.Testcase (
   Test(..), mkTest, runTests
 ) where
 import Test.QuickCheck
index b14a374..9d02b57 100644 (file)
@@ -2,7 +2,7 @@
         TypeSynonymInstances, 
         GeneralizedNewtypeDeriving #-}
 
-module Testsuite.Utils (
+module DPH.Testsuite.Utils (
   Proxy(..), asProxyTypeOf,
       
   limitRange, update, nest