#
#
# add_dir "tests/suspend"
# 
# add_file "tests/suspend/__driver__.lua"
#  content [74d515cc0b4792711c198721cd86484b5c9de55a]
#
============================================================
--- tests/suspend/__driver__.lua	74d515cc0b4792711c198721cd86484b5c9de55a
+++ tests/suspend/__driver__.lua	74d515cc0b4792711c198721cd86484b5c9de55a
@@ -0,0 +1,78 @@
+include("common/selectors.lua")
+mtn_setup()
+
+addfile("testfile", "testbranch1")
+commit()
+REV1=base_revision()
+
+writefile("testfile", "testbranch2")
+commit()
+REV2=base_revision()
+
+-- check that suspend hides things from the h: selector
+
+selmap("h:testbranch", {REV2})
+check(mtn("suspend", REV2))
+selmap("h:testbranch", {})
+
+-- but still allows children to be committed
+
+writefile("testfile", "testbranch3")
+commit()
+REV3=base_revision()
+
+-- and those non-suspended children show up as normal
+
+selmap("h:testbranch", {REV3})
+
+-- introduce a second branch
+
+writefile("testfile", "otherbranch1")
+commit("otherbranch")
+OREV1=base_revision()
+
+-- check that both branches show up when we list all branches
+
+check(mtn("ls", "branches"), 0, true, true)
+check(samelines("stdout", {"otherbranch", "testbranch"}))
+
+writefile("testfile", "otherbranch2")
+commit("otherbranch")
+OREV2=base_revision()
+
+-- now suspend the second branch and check it is gone when we list branches
+
+check(mtn("suspend", OREV2))
+check(mtn("ls", "branches"), 0, true, true)
+check(samelines("stdout", {"testbranch"}))
+
+-- Make a second, but not suspended head
+
+check(mtn("up", "-r", OREV1), 0, false, false)
+
+writefile("testfile", "otherbranch2b")
+commit("otherbranch")
+OREV2b=base_revision()
+
+-- Check that only the non-suspended head shows up
+
+selmap("h:otherbranch", {OREV2b})
+
+-- Check that a revision suspended in one branch can still appear in another
+
+check(mtn("approve", OREV2, "-b", "testbranch"))
+selmap("h:testbranch", {OREV2})
+
+-- Check that update ignores the suspended revision when there is a non-suspended revision
+
+check(mtn("up", "-r", OREV1, "-b", "otherbranch"), 0, false, false)
+check(mtn("up"), 0, false, false)
+check(base_revision() == OREV2b)
+
+-- Check that update complains about multiple heads when all candidates are suspended
+
+check(mtn("suspend", OREV2b))
+check(mtn("up", "-r", OREV1, "-b", "otherbranch"), 0, false, false)
+check(mtn("up"), 1, false, false)
+check(base_revision() == OREV1)
+