Revision f842aecd htest/Test/Ganeti/TestHelper.hs

b/htest/Test/Ganeti/TestHelper.hs
81 81 
testSuite tsname tdef = do
82 82 
  let fullname = mkName $ "test" ++ mapSlashes tsname
83 83 
  tests <- mapM run tdef
84 
  sigtype <- [t| (String, [Test]) |]
84 
  sigtype <- [t| Test |]
85 
  body <- [| testGroup $(litE $ stringL tsname) $(return $ ListE tests) |]
85 86 
  return [ SigD fullname sigtype
86 
         , ValD (VarP fullname) (NormalB (TupE [LitE (StringL tsname),
87 
                                                ListE tests])) []
87 
         , ValD (VarP fullname) (NormalB body) []
88 88 
         ]
89 89 

  		





  90
  90
  
    
-- | Builds an arbitrary value for a given constructor. This doesn't


  		












Also available in:
  Unified diff