make encrypted remotes have slightly higher costs

1 files changed, 2 insertions, 0 deletions

diff --git a/test.hs b/test.hs
index 30ebe6e59..cdec4ea61 100644
--- a/test.hs
+++ b/test.hs
@@ -39,6 +39,7 @@ import qualified Remote
 import qualified Content
 import qualified Command.DropUnused
 import qualified Key
+import qualified Config
 
 main :: IO ()
 main = do
@@ -61,6 +62,7 @@ quickcheck = TestLabel "quickcheck" $ TestList
 	, qctest "prop_idempotent_shellEscape_multiword" Utility.prop_idempotent_shellEscape_multiword
 	, qctest "prop_parentDir_basics" Utility.prop_parentDir_basics
 	, qctest "prop_relPathDirToDir_basics" Utility.prop_relPathDirToDir_basics
+	, qctest "prop_cost_sane" Config.prop_cost_sane
 	]
 
 blackbox :: Test