test_sequence_ =
  assertEqual "sequence_: no duplicate runs" ((),[4,5])
              (runWriter (Iter.enumList [[4],[5::Int]] (Iter.sequence_ [iter])
                          >>= run))
 where
  iter = do
    x <- Iter.head
    lift $ tell [x]
    y <- Iter.head
    lift $ tell [y]

-- ---------------------------------------------
-- Data.Iteratee.PTerm
test_sequence_ =
  assertEqual "sequence_: no duplicate runs" ((),[4,5])
              (runWriter (Iter.enumList [[4],[5::Int]] (Iter.sequence_ [iter])
                          >>= run))
 where
  iter = do
    x <- Iter.head
    lift $ tell [x]
    y <- Iter.head
    lift $ tell [y]

-- ---------------------------------------------
-- Data.Iteratee.PTerm
test_sequence_ =
  assertEqual "sequence_: no duplicate runs" ((),[4,5])
              (runWriter (Iter.enumList [[4],[5::Int]] (Iter.sequence_ [iter])
                          >>= run))
 where
  iter = do
    x <- Iter.head
    lift $ tell [x]
    y <- Iter.head
    lift $ tell [y]

-- ---------------------------------------------
-- Data.Iteratee.PTerm