stringTests = testGroup "String Tests"
  [ testCase "simple strings are recognized" testSimpleString ]
stringTests = testGroup "String Tests"
  [ testCase "simple strings are recognized" testSimpleString ]
stringTests = testGroup "String Tests"
  [ testCase "simple strings are recognized" testSimpleString ]