-- Character block

characterTests = testGroup "Character Tests"
  [ testProperty "basic characters are recognized" checkCharRecognized
  , testCase "newline is recognized" testNewlineRecognized
  , testCase "return is recognized" testReturnRecognized
  , testCase "space is recognized" testSpaceRecognized
  , testCase "tab is recognized" testTabRecognized
  , testCase "unicode space is recognized" testUnicodeRecognized
  , testCase "unicode space is recognized by character" testUnicodeCharacterRecognized ]
characterTests = testGroup "Character Tests"
  [ testProperty "basic characters are recognized" checkCharRecognized
  , testCase "newline is recognized" testNewlineRecognized
  , testCase "return is recognized" testReturnRecognized
  , testCase "space is recognized" testSpaceRecognized
  , testCase "tab is recognized" testTabRecognized
  , testCase "unicode space is recognized" testUnicodeRecognized
  , testCase "unicode space is recognized by character" testUnicodeCharacterRecognized ]
characterTests = testGroup "Character Tests"
  [ testProperty "basic characters are recognized" checkCharRecognized
  , testCase "newline is recognized" testNewlineRecognized
  , testCase "return is recognized" testReturnRecognized
  , testCase "space is recognized" testSpaceRecognized
  , testCase "tab is recognized" testTabRecognized
  , testCase "unicode space is recognized" testUnicodeRecognized
  , testCase "unicode space is recognized by character" testUnicodeCharacterRecognized ]