diff --git a/test/CabalSpec.hs b/test/CabalSpec.hs
index eda834b..0be2427 100644
--- a/test/CabalSpec.hs
+++ b/test/CabalSpec.hs
@@ -17,6 +17,7 @@ spec = do
 
     describe "getDirs" $ do
         it "obtains two directories and a cabal file" $ do
+            len <- length <$> getCurrentDirectory
             withDirectory "test/data/subdir1/subdir2" $ do
                 (x,y,z) <- fromCabal []
-                (x,y,z) `shouldBe` (["-XHaskell98"],["/Users/kazu/work/ghc-mod/test/data","/Users/kazu/work/ghc-mod/test/data/subdir1/subdir2"],["Cabal","base","containers","convertible","directory","filepath","ghc","ghc-paths","ghc-syb-utils","hlint","hspec","io-choice","old-time","process","regex-posix","syb","time","transformers"])
+                (x, map (drop len) y, z) `shouldBe` (["-XHaskell98"],["/test/data","/test/data/subdir1/subdir2"],["Cabal","base","containers","convertible","directory","filepath","ghc","ghc-paths","ghc-syb-utils","hlint","hspec","io-choice","old-time","process","regex-posix","syb","time","transformers"])