diff --git a/tests/Tests/Vector.hs b/tests/Tests/Vector.hs
index 89473b61bf27b8c73e9ee7790db88cc48dd33214..e4fac2160be3489dad872de83b315c20e2aebe63 100644
--- a/tests/Tests/Vector.hs
+++ b/tests/Tests/Vector.hs
@@ -7,6 +7,7 @@ import Utilities as Util
 import Data.Functor.Identity
 import qualified Data.Traversable as T (Traversable(..))
 import Data.Foldable (Foldable(foldMap))
+import Data.Orphans ()
 
 import qualified Data.Vector.Generic as V
 import qualified Data.Vector
@@ -70,14 +71,6 @@ type VectorContext  a v = ( Eq (v a), Show (v a), Arbitrary (v a), CoArbitrary (
 
 -- TODO: test non-IVector stuff?
 
-#if !MIN_VERSION_base(4,7,0)
-instance Foldable ((,) a) where
-  foldMap f (_, b) = f b
-
-instance T.Traversable ((,) a) where
-  traverse f (a, b) = fmap ((,) a) $ f b
-#endif
-
 testSanity :: forall a v. (CommonContext a v) => v a -> [Test]
 testSanity _ = [
         testProperty "fromList.toList == id" prop_fromList_toList,
diff --git a/vector.cabal b/vector.cabal
index 03d2f997d5402d160d51a629aab50c3719f10962..806e77ea9b37b592256392d89330ce75c4269c1c 100644
--- a/vector.cabal
+++ b/vector.cabal
@@ -189,7 +189,7 @@ test-suite vector-tests-O0
                  Utilities
 
   hs-source-dirs: tests
-  Build-Depends: base >= 4.5 && < 5, template-haskell, vector,
+  Build-Depends: base >= 4.5 && < 5, template-haskell, base-orphan >= 0.6, vector,
                  primitive, random,
                  QuickCheck >= 2.9 && < 2.10 , HUnit, test-framework,
                  test-framework-hunit, test-framework-quickcheck2,
@@ -227,7 +227,7 @@ test-suite vector-tests-O2
                  Utilities
 
   hs-source-dirs: tests
-  Build-Depends: base >= 4.5 && < 5, template-haskell, vector,
+  Build-Depends: base >= 4.5 && < 5, template-haskell, base-orphan >= 0.6, vector,
                  primitive, random,
                  QuickCheck >= 2.9 && < 2.10 , HUnit, test-framework,
                  test-framework-hunit, test-framework-quickcheck2,