Include pairs in this test

testsuite/tests/generics/GFunctor/GFunctor.hs

@@ -52,3 +52,4 @@ class GFunctor f where
 -- Base types instances
 instance GFunctor Maybe
 instance GFunctor []
+instance GFunctor ((,) a)

testsuite/tests/generics/GFunctor/GFunctor1.stdout

-(D0,D1 {d11 = 'q', d12 = D0},D1 {d11 = 3.14, d12 = D0})
+(Just 3,[1,2,3],(0,1),D0,D1 {d11 = 'q', d12 = D0},D1 {d11 = 3.14, d12 = D0})

testsuite/tests/generics/GFunctor/Main.hs

@@ -21,6 +21,9 @@ d2 = D1 (3,0.14) D0
 instance GFunctor D
 
 -- Tests
-main = print ( gmap undefined d0 :: D ()
+main = print ( gmap (+1) (Just 2)
+             , gmap (+1) [0,1,2]
+             , gmap (+1) (0,0)
+             , gmap undefined d0 :: D ()
              , gmap (const 'q') d1
              , gmap (\(a,b) -> a + b) d2 :: D Float)