[commit: Cabal] master: Fix executable test suite unit test for improved HPC interface. (72405fc)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/72405fcb8c063877bed84f8a8c50497ba9d9c187

>---------------------------------------------------------------

commit 72405fcb8c063877bed84f8a8c50497ba9d9c187
Author: Thomas Tuegel <ttuegel at gmail.com>
Date:   Mon Jul 18 03:31:50 2011 +0000

    Fix executable test suite unit test for improved HPC interface.

>---------------------------------------------------------------

 cabal/tests/PackageTests/TestSuiteExeV10/Check.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cabal/tests/PackageTests/TestSuiteExeV10/Check.hs b/cabal/tests/PackageTests/TestSuiteExeV10/Check.hs
index 203c36b..3028109 100644
--- a/cabal/tests/PackageTests/TestSuiteExeV10/Check.hs
+++ b/cabal/tests/PackageTests/TestSuiteExeV10/Check.hs
@@ -36,9 +36,9 @@ checkTestWithHpc cabalVersion = TestCase $ do
     let testMessage = "\'setup test\' should succeed"
     assertEqual testMessage True $ successful testResult
     let dummy = emptyTestSuite { testName = "test-Foo" }
-        tixFile = tixFilePath (dir </> "dist") dummy
+        tixFile = tixFilePath (dir </> "dist") $ testName dummy
         tixFileMessage = ".tix file should exist"
-        markupDir = tixDir (dir </> "dist") dummy
+        markupDir = htmlDir (dir </> "dist") $ testName dummy
         markupFile = markupDir </> "hpc_index" <.> "html"
         markupFileMessage = "HPC markup file should exist"
     tixFileExists <- doesFileExist tixFile