Revision 1c0f9d12 test/hs/Test/Ganeti/TestCommon.hs
b/test/hs/Test/Ganeti/TestCommon.hs | ||
---|---|---|
289 | 289 |
src <- getSourceDir |
290 | 290 |
return $ src ++ datadir ++ name |
291 | 291 |
|
292 |
-- | Returns the content of the specified python test data file. |
|
293 |
readPythonTestData :: String -> IO String |
|
294 |
readPythonTestData filename = do |
|
295 |
name <- testDataFilename "/test/data/" filename |
|
296 |
readFile name |
|
297 |
|
|
298 | 292 |
-- | Returns the content of the specified haskell test data file. |
299 | 293 |
readTestData :: String -> IO String |
300 | 294 |
readTestData filename = do |
301 |
name <- testDataFilename "/test/data/htools/" filename
|
|
295 |
name <- testDataFilename "/test/data/" filename |
|
302 | 296 |
readFile name |
Also available in: Unified diff