[commit: haddock] master: Add test helper (9697748)
git at git.haskell.org
git at git.haskell.org
Wed Sep 18 23:25:36 CEST 2013
Repository : ssh://git@git.haskell.org/haddock
On branch : master
Link : http://git.haskell.org/haddock.git/commitdiff/9697748a1619a0fc892393a11c3a05da3f69e787
>---------------------------------------------------------------
commit 9697748a1619a0fc892393a11c3a05da3f69e787
Author: Simon Hengel <sol at typeful.net>
Date: Wed Sep 4 21:46:07 2013 +0200
Add test helper
>---------------------------------------------------------------
9697748a1619a0fc892393a11c3a05da3f69e787
test/Haddock/ParseSpec.hs | 4 +-
test/Helper.hs | 166 +++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 167 insertions(+), 3 deletions(-)
diff --git a/test/Haddock/ParseSpec.hs b/test/Haddock/ParseSpec.hs
index 4713c60..799330c 100644
--- a/test/Haddock/ParseSpec.hs
+++ b/test/Haddock/ParseSpec.hs
@@ -8,7 +8,6 @@ module Haddock.ParseSpec (main, spec) where
import Control.Applicative
import Data.Monoid
import Data.String
-import DynFlags (DynFlags, defaultDynFlags)
import Haddock.Doc (combineStringNodes)
import Haddock.Lex (tokenise)
import qualified Haddock.Parse as Parse
@@ -17,8 +16,7 @@ import Outputable (Outputable, showSDoc, ppr)
import RdrName (RdrName)
import Test.Hspec
-dynFlags :: DynFlags
-dynFlags = defaultDynFlags (error "dynFlags for Haddock tests: undefined")
+import Helper
instance Outputable a => Show a where
show = showSDoc dynFlags . ppr
diff --git a/test/Helper.hs b/test/Helper.hs
new file mode 100644
index 0000000..25cc516
--- /dev/null
+++ b/test/Helper.hs
@@ -0,0 +1,166 @@
+module Helper where
+import DynFlags (Settings(..), DynFlags, defaultDynFlags)
+import Platform
+import PlatformConstants
+
+dynFlags :: DynFlags
+dynFlags = defaultDynFlags settings
+ where
+ settings = Settings {
+ sTargetPlatform = platform
+ , sGhcUsagePath = error "Haddock.ParserSpec.sGhcUsagePath"
+ , sGhciUsagePath = error "Haddock.ParserSpec.sGhciUsagePath"
+ , sTopDir = error "Haddock.ParserSpec.sTopDir"
+ , sTmpDir = error "Haddock.ParserSpec.sTmpDir"
+ , sRawSettings = []
+ , sExtraGccViaCFlags = error "Haddock.ParserSpec.sExtraGccViaCFlags"
+ , sSystemPackageConfig = error "Haddock.ParserSpec.sSystemPackageConfig"
+ , sPgm_L = error "Haddock.ParserSpec.sPgm_L"
+ , sPgm_P = error "Haddock.ParserSpec.sPgm_P"
+ , sPgm_F = error "Haddock.ParserSpec.sPgm_F"
+ , sPgm_c = error "Haddock.ParserSpec.sPgm_c"
+ , sPgm_s = error "Haddock.ParserSpec.sPgm_s"
+ , sPgm_a = error "Haddock.ParserSpec.sPgm_a"
+ , sPgm_l = error "Haddock.ParserSpec.sPgm_l"
+ , sPgm_dll = error "Haddock.ParserSpec.sPgm_dll"
+ , sPgm_T = error "Haddock.ParserSpec.sPgm_T"
+ , sPgm_sysman = error "Haddock.ParserSpec.sPgm_sysman"
+ , sPgm_windres = error "Haddock.ParserSpec.sPgm_windres"
+ , sPgm_lo = error "Haddock.ParserSpec.sPgm_lo"
+ , sPgm_lc = error "Haddock.ParserSpec.sPgm_lc"
+ , sOpt_L = []
+ , sOpt_P = []
+ , sOpt_F = []
+ , sOpt_c = []
+ , sOpt_a = []
+ , sOpt_l = []
+ , sOpt_windres = []
+ , sOpt_lo = []
+ , sOpt_lc = []
+ , sLdSupportsCompactUnwind = error "Haddock.ParserSpec.sLdSupportsCompactUnwind"
+ , sLdSupportsBuildId = error "Haddock.ParserSpec.sLdSupportsBuildId "
+ , sLdSupportsFilelist = error "Haddock.ParserSpec.sLdSupportsFilelist "
+ , sLdIsGnuLd = error "Haddock.ParserSpec.sLdIsGnuLd"
+ , sPlatformConstants = platformConstants
+ }
+ platform = Platform {
+ platformArch = ArchUnknown
+ , platformOS = OSUnknown
+ , platformWordSize = 64
+ , platformHasGnuNonexecStack = False
+ , platformHasIdentDirective = False
+ , platformHasSubsectionsViaSymbols = False
+ , platformUnregisterised = error "Haddock.ParserSpec.platformUnregisterised"
+ }
+
+ platformConstants = PlatformConstants {
+ pc_platformConstants = ()
+ , pc_STD_HDR_SIZE = 0
+ , pc_PROF_HDR_SIZE = 0
+ , pc_BLOCK_SIZE = 0
+ , pc_BLOCKS_PER_MBLOCK = 0
+ , pc_OFFSET_StgRegTable_rR1 = 0
+ , pc_OFFSET_StgRegTable_rR2 = 0
+ , pc_OFFSET_StgRegTable_rR3 = 0
+ , pc_OFFSET_StgRegTable_rR4 = 0
+ , pc_OFFSET_StgRegTable_rR5 = 0
+ , pc_OFFSET_StgRegTable_rR6 = 0
+ , pc_OFFSET_StgRegTable_rR7 = 0
+ , pc_OFFSET_StgRegTable_rR8 = 0
+ , pc_OFFSET_StgRegTable_rR9 = 0
+ , pc_OFFSET_StgRegTable_rR10 = 0
+ , pc_OFFSET_StgRegTable_rF1 = 0
+ , pc_OFFSET_StgRegTable_rF2 = 0
+ , pc_OFFSET_StgRegTable_rF3 = 0
+ , pc_OFFSET_StgRegTable_rF4 = 0
+ , pc_OFFSET_StgRegTable_rF5 = 0
+ , pc_OFFSET_StgRegTable_rF6 = 0
+ , pc_OFFSET_StgRegTable_rD1 = 0
+ , pc_OFFSET_StgRegTable_rD2 = 0
+ , pc_OFFSET_StgRegTable_rD3 = 0
+ , pc_OFFSET_StgRegTable_rD4 = 0
+ , pc_OFFSET_StgRegTable_rD5 = 0
+ , pc_OFFSET_StgRegTable_rD6 = 0
+ , pc_OFFSET_StgRegTable_rXMM1 = 0
+ , pc_OFFSET_StgRegTable_rXMM2 = 0
+ , pc_OFFSET_StgRegTable_rXMM3 = 0
+ , pc_OFFSET_StgRegTable_rXMM4 = 0
+ , pc_OFFSET_StgRegTable_rXMM5 = 0
+ , pc_OFFSET_StgRegTable_rXMM6 = 0
+ , pc_OFFSET_StgRegTable_rL1 = 0
+ , pc_OFFSET_StgRegTable_rSp = 0
+ , pc_OFFSET_StgRegTable_rSpLim = 0
+ , pc_OFFSET_StgRegTable_rHp = 0
+ , pc_OFFSET_StgRegTable_rHpLim = 0
+ , pc_OFFSET_StgRegTable_rCCCS = 0
+ , pc_OFFSET_StgRegTable_rCurrentTSO = 0
+ , pc_OFFSET_StgRegTable_rCurrentNursery = 0
+ , pc_OFFSET_StgRegTable_rHpAlloc = 0
+ , pc_OFFSET_stgEagerBlackholeInfo = 0
+ , pc_OFFSET_stgGCEnter1 = 0
+ , pc_OFFSET_stgGCFun = 0
+ , pc_OFFSET_Capability_r = 0
+ , pc_OFFSET_bdescr_start = 0
+ , pc_OFFSET_bdescr_free = 0
+ , pc_OFFSET_bdescr_blocks = 0
+ , pc_SIZEOF_CostCentreStack = 0
+ , pc_OFFSET_CostCentreStack_mem_alloc = 0
+ , pc_REP_CostCentreStack_mem_alloc = 0
+ , pc_OFFSET_CostCentreStack_scc_count = 0
+ , pc_REP_CostCentreStack_scc_count = 0
+ , pc_OFFSET_StgHeader_ccs = 0
+ , pc_OFFSET_StgHeader_ldvw = 0
+ , pc_SIZEOF_StgSMPThunkHeader = 0
+ , pc_OFFSET_StgEntCounter_allocs = 0
+ , pc_REP_StgEntCounter_allocs = 0
+ , pc_OFFSET_StgEntCounter_allocd = 0
+ , pc_REP_StgEntCounter_allocd = 0
+ , pc_OFFSET_StgEntCounter_registeredp = 0
+ , pc_OFFSET_StgEntCounter_link = 0
+ , pc_OFFSET_StgEntCounter_entry_count = 0
+ , pc_SIZEOF_StgUpdateFrame_NoHdr = 0
+ , pc_SIZEOF_StgMutArrPtrs_NoHdr = 0
+ , pc_OFFSET_StgMutArrPtrs_ptrs = 0
+ , pc_OFFSET_StgMutArrPtrs_size = 0
+ , pc_SIZEOF_StgArrWords_NoHdr = 0
+ , pc_OFFSET_StgTSO_cccs = 0
+ , pc_OFFSET_StgTSO_stackobj = 0
+ , pc_OFFSET_StgStack_sp = 0
+ , pc_OFFSET_StgStack_stack = 0
+ , pc_OFFSET_StgUpdateFrame_updatee = 0
+ , pc_SIZEOF_StgFunInfoExtraRev = 0
+ , pc_MAX_SPEC_SELECTEE_SIZE = 0
+ , pc_MAX_SPEC_AP_SIZE = 0
+ , pc_MIN_PAYLOAD_SIZE = 0
+ , pc_MIN_INTLIKE = 0
+ , pc_MAX_INTLIKE = 0
+ , pc_MIN_CHARLIKE = 0
+ , pc_MAX_CHARLIKE = 0
+ , pc_MUT_ARR_PTRS_CARD_BITS = 0
+ , pc_MAX_Vanilla_REG = 0
+ , pc_MAX_Float_REG = 0
+ , pc_MAX_Double_REG = 0
+ , pc_MAX_Long_REG = 0
+ , pc_MAX_XMM_REG = 0
+ , pc_MAX_Real_Vanilla_REG = 0
+ , pc_MAX_Real_Float_REG = 0
+ , pc_MAX_Real_Double_REG = 0
+ , pc_MAX_Real_XMM_REG = 0
+ , pc_MAX_Real_Long_REG = 0
+ , pc_RESERVED_C_STACK_BYTES = 0
+ , pc_RESERVED_STACK_WORDS = 0
+ , pc_AP_STACK_SPLIM = 0
+ , pc_WORD_SIZE = 0
+ , pc_DOUBLE_SIZE = 0
+ , pc_CINT_SIZE = 0
+ , pc_CLONG_SIZE = 0
+ , pc_CLONG_LONG_SIZE = 0
+ , pc_BITMAP_BITS_SHIFT = 0
+ , pc_TAG_BITS = 0
+ , pc_WORDS_BIGENDIAN = False
+ , pc_DYNAMIC_BY_DEFAULT = False
+ , pc_LDV_SHIFT = 0
+ , pc_ILDV_CREATE_MASK = 0
+ , pc_ILDV_STATE_CREATE = 0
+ , pc_ILDV_STATE_USE = 0
+ }
More information about the ghc-commits
mailing list