tests = [
    testCase "comment" commentTest,
    testCase "quote" quoteTest,
    testCase "directive" directiveTest
    ]
tests = [
    testCase "comment" commentTest,
    testCase "quote" quoteTest,
    testCase "directive" directiveTest
    ]
tests = [
    testCase "comment" commentTest,
    testCase "quote" quoteTest,
    testCase "directive" directiveTest
    ]