From 25d2d86f5635ad476bb22985ccbcd1290a85438c Mon Sep 17 00:00:00 2001 From: Serhii Khoma Date: Tue, 6 May 2025 07:26:20 +0700 Subject: [PATCH 1/2] feat: better output -> wrap each spec in describe --- src/Test/Spec/Discovery.js | 2 +- src/Test/Spec/Discovery.purs | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Test/Spec/Discovery.js b/src/Test/Spec/Discovery.js index 127313c..ca7c9b5 100644 --- a/src/Test/Spec/Discovery.js +++ b/src/Test/Spec/Discovery.js @@ -23,7 +23,7 @@ export function getSpecs(pattern) { ? path.join('file://', __dirname, '..', name, 'index.js') : path.join(__dirname, '..', name, 'index.js') return import(fullPath).then(module => - module && typeof module.spec !== 'undefined' ? module.spec : null + module && typeof module.spec !== 'undefined' ? { name, spec: module.spec } : null ) }) diff --git a/src/Test/Spec/Discovery.purs b/src/Test/Spec/Discovery.purs index 9484244..bc02ec8 100644 --- a/src/Test/Spec/Discovery.purs +++ b/src/Test/Spec/Discovery.purs @@ -1,8 +1,7 @@ module Test.Spec.Discovery ( discover , discoverAndRunSpecs - ) - where + ) where import Prelude @@ -12,17 +11,18 @@ import Effect.Aff (launchAff_) import Effect.Aff.Class (class MonadAff, liftAff) import Effect.Aff.Compat (EffectFn1, EffectFnAff, fromEffectFnAff, runEffectFn1) import Effect.Class (liftEffect) -import Test.Spec (Spec) +import Test.Spec (Spec, describe) import Test.Spec.Runner (Reporter) import Test.Spec.Runner.Node (runSpecAndExitProcess) -foreign import getSpecs :: EffectFn1 String (EffectFnAff (Array (Spec Unit))) +foreign import getSpecs :: EffectFn1 String (EffectFnAff (Array { name :: String, spec :: Spec Unit })) discover :: ∀ m. MonadAff m => String -> m (Spec Unit) discover pattern = do runDiscover <- liftEffect $ runEffectFn1 getSpecs pattern specs <- liftAff $ fromEffectFnAff runDiscover - pure $ sequence_ specs + let specsWrappedInDescribe = map (\{ name, spec } -> describe name spec) specs + pure $ sequence_ specsWrappedInDescribe discoverAndRunSpecs :: Array Reporter -> String -> Effect Unit discoverAndRunSpecs reporters pattern = launchAff_ do From ed14c56d1b75d83143ffc2ba2c1d09c52274e7de Mon Sep 17 00:00:00 2001 From: Serhii Khoma Date: Tue, 22 Jul 2025 12:56:55 +0700 Subject: [PATCH 2/2] feat: better output -> apply suggestion Co-authored-by: Fyodor Soikin --- src/Test/Spec/Discovery.purs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Test/Spec/Discovery.purs b/src/Test/Spec/Discovery.purs index bc02ec8..ffeed6e 100644 --- a/src/Test/Spec/Discovery.purs +++ b/src/Test/Spec/Discovery.purs @@ -21,8 +21,7 @@ discover :: ∀ m. MonadAff m => String -> m (Spec Unit) discover pattern = do runDiscover <- liftEffect $ runEffectFn1 getSpecs pattern specs <- liftAff $ fromEffectFnAff runDiscover - let specsWrappedInDescribe = map (\{ name, spec } -> describe name spec) specs - pure $ sequence_ specsWrappedInDescribe + pure $ sequence_ $ specs <#> \{ name, spec } -> describe name spec discoverAndRunSpecs :: Array Reporter -> String -> Effect Unit discoverAndRunSpecs reporters pattern = launchAff_ do