<commit_before>module Test.Spec.ReporterSpec where

import Data.Array (concatMap)
import Control.Monad.Eff.Exception
import Test.Spec
import Test.Spec.Node
import Test.Spec.Assertions
import Test.Spec.Fixtures
import qualified Test.Spec.Reporter as R

reporterSpec =
  describe "Test" $
    describe "Spec" $
      describe "Reporter" do
        it "collapses groups into entries with names" do
          results <- collect successTest
          concatMap R.collapse results `shouldEqual` [
              R.Describe ["a", "b"],
              R.It "works" Success
            ]
        it "collapses groups into entries with shared describes" do
          results <- collect sharedDescribeTest
          concatMap R.collapse results `shouldEqual` [
              R.Describe ["a", "b"],
              R.It "works" Success,
              R.Describe ["a", "c"],
              R.It "also works" Success
            ]
        it "reports failured tests" do<commit_msg>Typo in test<commit_after>module Test.Spec.ReporterSpec where

import Data.Array (concatMap)
import Control.Monad.Eff.Exception
import Test.Spec
import Test.Spec.Node
import Test.Spec.Assertions
import Test.Spec.Fixtures
import qualified Test.Spec.Reporter as R

reporterSpec =
  describe "Test" $
    describe "Spec" $
      describe "Reporter" do
        it "collapses groups into entries with names" do
          results <- collect successTest
          concatMap R.collapse results `shouldEqual` [
              R.Describe ["a", "b"],
              R.It "works" Success
            ]
        it "collapses groups into entries with shared describes" do
          results <- collect sharedDescribeTest
          concatMap R.collapse results `shouldEqual` [
              R.Describe ["a", "b"],
              R.It "works" Success,
              R.Describe ["a", "c"],
              R.It "also works" Success
            ]
        it "reports failed tests" do
{'fraction_non_alphanumeric': 0.08953669963560645, 'fraction_numerical': 0.0, 'mean_word_length': 2.1559934318555007, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3810763', 'n_tokens_mistral': 519, 'n_tokens_neox': 512, 'n_words': 169}