X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/bbf6cb767f8b9635de4bee2912030156cc9a194a..af37e7c921540be0a53a0b6999f3d1cc95cc7527:/test/sequences/test-mark?ds=inline

diff --git a/test/sequences/test-mark b/test/sequences/test-mark
index fb00e513..bce141a5 100755
--- a/test/sequences/test-mark
+++ b/test/sequences/test-mark
@@ -16,6 +16,8 @@ fi
 
 setup_test
 
+check_exit '-eq 1' mark -
+
 # Test sequence creation.
 run_test 'mark 1 3 5 7 +inbox -sequence odd' ''
 run_test 'mark 2 4 6 8 10 +inbox -sequence even' ''
@@ -120,9 +122,10 @@ run_test 'pick -nolist cur' 'pick: no cur message'
 # Check large number of sequences.
 for i in 1 2 3 4 5; do
   for j in 0 1 2 3 4 5 6 7 8 9; do
-    mark $i -seq seq$i${j}0 -seq seq$i${j}1 -seq seq$i${j}2 -seq seq$i${j}3 \
-            -seq seq$i${j}4 -seq seq$i${j}5 -seq seq$i${j}6 -seq seq$i${j}7 \
-            -seq seq$i${j}8 -seq seq$i${j}9
+    run_prog mark $i -seq seq$i${j}0 -seq seq$i${j}1 -seq seq$i${j}2 \
+                     -seq seq$i${j}3 -seq seq$i${j}4 -seq seq$i${j}5 \
+                     -seq seq$i${j}6 -seq seq$i${j}7 -seq seq$i${j}8 \
+                     -seq seq$i${j}9
     run_test "pick seq$i${j}0 seq$i${j}1 seq$i${j}2 seq$i${j}3 seq$i${j}4 \
                    seq$i${j}5 seq$i${j}6 seq$i${j}7 seq$i${j}8 seq$i${j}9" $i
   done