Simon Jakobi pushed to branch wip/sjakobi/elem-tests at Glasgow Haskell Compiler / GHC Commits: 1c398cf8 by Simon Jakobi at 2026-03-28T00:28:13+01:00 Refactor all.T - - - - - 1 changed file: - libraries/base/tests/perf/all.T Changes: ===================================== libraries/base/tests/perf/all.T ===================================== @@ -5,54 +5,23 @@ setTestOpts(js_skip) # Check specialization of elem via rules #-------------------------------------- -test('T17752_O0', - [only_ways(['normal']), extra_files(['T17752.hs'])], - multimod_compile_filter, - ['T17752', - '-O0 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^is[A-Za-z]*$/,/^$/p'"]) - -test('T17752_O1', - [only_ways(['normal']), extra_files(['T17752.hs'])], - multimod_compile_filter, - ['T17752', - '-O1 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^is[A-Za-z]*$/,/^$/p'"]) - -test('T17752_O2', - [only_ways(['normal']), extra_files(['T17752.hs'])], - multimod_compile_filter, - ['T17752', - '-O2 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^is[A-Za-z]*$/,/^$/p'"]) - -test('ElemFusionUnknownList_O1', - [only_ways(['normal']), extra_files(['ElemFusionUnknownList.hs'])], - multimod_compile_filter, - ['ElemFusionUnknownList', - '-O1 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^fusion[A-Za-z]*$/,/^$/p'"]) - -test('ElemFusionUnknownList_O2', - [only_ways(['normal']), extra_files(['ElemFusionUnknownList.hs'])], - multimod_compile_filter, - ['ElemFusionUnknownList', - '-O2 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^fusion[A-Za-z]*$/,/^$/p'"]) - -test('ElemNoFusion_O1', - [only_ways(['normal']), extra_files(['ElemNoFusion.hs'])], - multimod_compile_filter, - ['ElemNoFusion', - '-O1 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^noFusion[A-Za-z]*/,/^$/p'"]) - -test('ElemNoFusion_O2', - [only_ways(['normal']), extra_files(['ElemNoFusion.hs'])], - multimod_compile_filter, - ['ElemNoFusion', - '-O2 -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', - "sed -n '/^noFusion[A-Za-z]*/,/^$/p'"]) +elemCoreFilter = "sed -En '/^(is|fusion|noFusion)[A-Za-z]*($| )/,/^$/p'" + +def elemCoreTest(test_name, module_name, opt): + test(test_name, + [only_ways(['normal']), extra_files([module_name + '.hs'])], + multimod_compile_filter, + [module_name, + f'{opt} -ddump-simpl -dsuppress-all -dsuppress-uniques -dno-typeable-binds', + elemCoreFilter]) + +elemCoreTest('T17752_O0', 'T17752', '-O0') +elemCoreTest('T17752_O1', 'T17752', '-O1') +elemCoreTest('T17752_O2', 'T17752', '-O2') +elemCoreTest('ElemFusionUnknownList_O1', 'ElemFusionUnknownList', '-O1') +elemCoreTest('ElemFusionUnknownList_O2', 'ElemFusionUnknownList', '-O2') +elemCoreTest('ElemNoFusion_O1', 'ElemNoFusion', '-O1') +elemCoreTest('ElemNoFusion_O2', 'ElemNoFusion', '-O2') #-------------------------------------- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1c398cf8508db140657d7a4ce4196ca1... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1c398cf8508db140657d7a4ce4196ca1... You're receiving this email because of your account on gitlab.haskell.org.