diff --git a/CmdDB.hs b/CmdDB.hs
--- a/CmdDB.hs
+++ b/CmdDB.hs
@@ -63,7 +63,8 @@
        , document = "Configure a cabal package"
        , routing = RouteCabal ["configure"]
        , switches = [(SwSandbox, Just "--sandbox")
-                     ,(SwFlag, Just "--flags")]
+                    ,(SwFlag, Just "--flags")
+                    ,(SwTest, Just "--enable-tests")]
        , manual = Nothing
        }
   , CommandSpec {
@@ -190,7 +191,7 @@
   , CommandSpec {
          command = Test
        , commandNames = ["test"]
-       , document = "run tests"
+       , document = "Run tests"
        , routing = RouteCabal ["test"]
        , switches = [(SwSandbox, Just "--sandbox")]
        , manual = Nothing
@@ -198,7 +199,7 @@
   , CommandSpec {
          command = Doc
        , commandNames = ["doc", "haddock", "man"]
-       , document = "generate manuals"
+       , document = "Generate manuals"
        , routing = RouteCabal ["haddock", "--hyperlink-source"]
        , switches = []
        , manual = Nothing
@@ -243,13 +244,16 @@
   , Option ['f'] ["flags"]
       (ReqArg OptFlag "<flags>")
       "Specify flags"
+  , Option ['t'] ["test"]
+      (NoArg OptTest)
+      "Enable test"
   , Option ['h'] ["help"]
       (NoArg OptHelp)
       "Show help message"
   ]
 
 optionDB :: OptionDB
-optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag] getOptDB
+optionDB = zip [SwNoharm,SwRecursive,SwAll,SwInfo,SwSandbox,SwFlag,SwTest] getOptDB
 
 ----------------------------------------------------------------
 
diff --git a/Types.hs b/Types.hs
--- a/Types.hs
+++ b/Types.hs
@@ -15,6 +15,7 @@
             | SwInfo
             | SwSandbox
             | SwFlag
+            | SwTest
             deriving (Eq,Show)
 
 data Option = OptNoharm
@@ -23,6 +24,7 @@
             | OptInfo
             | OptSandbox String
             | OptFlag String
+            | OptTest
             | OptHelp
             deriving (Eq,Show)
 
@@ -33,6 +35,7 @@
 toSwitch OptInfo        = SwInfo
 toSwitch (OptSandbox _) = SwSandbox
 toSwitch (OptFlag _)    = SwFlag
+toSwitch OptTest        = SwTest
 toSwitch _              = error "toSwitch"
 
 getSandbox :: [Option] -> Maybe FilePath
diff --git a/VerDB.hs b/VerDB.hs
--- a/VerDB.hs
+++ b/VerDB.hs
@@ -7,7 +7,6 @@
 import Control.Applicative
 import Control.Arrow (second)
 import Data.Attoparsec.ByteString.Char8
-import Data.ByteString (ByteString)
 import Data.Conduit
 import Data.Conduit.Attoparsec
 import Data.Conduit.Process
diff --git a/cab.cabal b/cab.cabal
--- a/cab.cabal
+++ b/cab.cabal
@@ -1,5 +1,5 @@
 Name:                   cab
-Version:                0.1.12
+Version:                0.1.13
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3