Split off quotes/ from th/ for tests that can be done on stage1 compiler.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>

Test Plan: run these tests with stage1

Reviewers: simonpj, austin

Subscribers: bgamari, thomie

Differential Revision: https://phabricator.haskell.org/D877

GHC Trac Issues: #10382

testsuite/tests/quotes/.gitignore

+T3572
+T8633
+TH_ppr1
+TH_spliceViewPat/TH_spliceViewPat

testsuite/tests/quotes/Makefile

+TOP=../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk

testsuite/tests/th/T2632.hs → testsuite/tests/quotes/T2632.hs

-{-# LANGUAGE TemplateHaskell #-}
-
 -- Trac #2632
 
 module MkData where

testsuite/tests/th/T2931.hs → testsuite/tests/quotes/T2931.hs

-{-# LANGUAGE TemplateHaskell #-}
 -- Trac #2931
 
 module Foo where
 a = 1
 
 -- NB: no newline after the 'a'!
-b = 'a
\ No newline at end of file
+b = 'a

testsuite/tests/th/T4056.hs → testsuite/tests/quotes/T4056.hs

-{-# LANGUAGE TemplateHaskell, TypeFamilies, RankNTypes, FlexibleContexts #-}
+{-# LANGUAGE TypeFamilies, RankNTypes, FlexibleContexts #-}
 
 module T4056 where
 import Language.Haskell.TH

testsuite/tests/th/T4169.hs → testsuite/tests/quotes/T4169.hs

-{-# LANGUAGE TemplateHaskell #-}
-
 -- Crashed GHC 6.12
 
 module T4165 where

testsuite/tests/th/T4170.hs → testsuite/tests/quotes/T4170.hs

-{-# LANGUAGE TemplateHaskell #-}
 module T4170 where
 
 import Language.Haskell.TH

testsuite/tests/th/T5721.hs → testsuite/tests/quotes/T5721.hs

-{-# LANGUAGE TemplateHaskell, ScopedTypeVariables #-}  
+{-# LANGUAGE ScopedTypeVariables #-}
 
 module T5371 where
 import Language.Haskell.TH

testsuite/tests/th/T6062.hs → testsuite/tests/quotes/T6062.hs

-{-# LANGUAGE TemplateHaskell #-}
 module T6062 where
 x = [| False True |]

testsuite/tests/quotes/T8455.hs

+{-# LANGUAGE DataKinds #-}
+
+module T8455 where
+
+ty = [t| 5 |]

testsuite/tests/th/T8633.hs → testsuite/tests/quotes/T8633.hs

-module Main where
-import Language.Haskell.TH.Syntax
-
-t1 = case mkName "^.." of
-    Name (OccName ".")  (NameQ (ModName "^")) -> error "bug0"
-    Name (OccName "^..") NameS                -> return ()
-
-t2 = case mkName "Control.Lens.^.." of
-    Name (OccName ".")  (NameQ (ModName "Control.Lens.^")) -> error "bug1"
-    Name (OccName "^..") (NameQ (ModName "Control.Lens")) -> return ()
-
-t3 = case mkName "Data.Bits..&." of
-    Name (OccName ".&.") (NameQ (ModName "Data.Bits")) -> return ()
-
-t4 = case mkName "abcde" of
-    Name (OccName "abcde") NameS -> return ()
-
-main :: IO ()
-main = do t1; t2; t3; t4
\ No newline at end of file
+module Main where
+import Language.Haskell.TH.Syntax
+
+t1 = case mkName "^.." of
+    Name (OccName ".")  (NameQ (ModName "^")) -> error "bug0"
+    Name (OccName "^..") NameS                -> return ()
+
+t2 = case mkName "Control.Lens.^.." of
+    Name (OccName ".")  (NameQ (ModName "Control.Lens.^")) -> error "bug1"
+    Name (OccName "^..") (NameQ (ModName "Control.Lens")) -> return ()
+
+t3 = case mkName "Data.Bits..&." of
+    Name (OccName ".&.") (NameQ (ModName "Data.Bits")) -> return ()
+
+t4 = case mkName "abcde" of
+    Name (OccName "abcde") NameS -> return ()
+
+main :: IO ()
+main = do t1; t2; t3; t4

testsuite/tests/th/T8759a.hs → testsuite/tests/quotes/T8759a.hs

-{-# LANGUAGE TemplateHaskell, PatternSynonyms #-}
+{-# LANGUAGE PatternSynonyms #-}
 
 module T8759a where
 

testsuite/tests/th/T9824.hs → testsuite/tests/quotes/T9824.hs

-{-# LANGUAGE TemplateHaskell #-}
 {-# OPTIONS_GHC -fwarn-unused-matches #-}
 
 module T9824 where

testsuite/tests/th/TH_bracket1.hs → testsuite/tests/quotes/TH_bracket1.hs

--- Check that declarations in a bracket shadow the top-level 
+-- Check that declarations in a bracket shadow the top-level
 -- declarations, rather than clashing with them.
 
 module TH_bracket1 where