Update tests.

tests/ctlseqs/match.exp

@@ -31,7 +31,7 @@ for { set i 0 } { $i < [ llength $input ] } { incr i } {
     send -- $seq
     expect {
         -ex "$expected\n" {
-            pass "OK"
+            pass "pass"
         }
         default {
             puts $expect_out(buffer)

tests/ctlseqs/nomem.exp

@@ -17,7 +17,7 @@ tcsgrep_start limit=10 purge
 send -- $seq
 expect {
     -ex "$expected\n" {
-        pass "OK"
+        pass "pass"
     }
     default {
         puts $expect_out(buffer)

tests/ctlseqs/partial.exp

@@ -36,7 +36,9 @@ for { set i 0 } { $i < $nlen } { incr i } {
 
 send -- "p"
 expect {
-    -ex "NOMATCH [ expr $nlen + 3 ] ESC \[ [ split $n1 {} ] p\n" { }
+    -ex "NOMATCH [ expr $nlen + 3 ] ESC \[ [ split $n1 {} ] p\n" {
+        pass "pass"
+    }
     default {
         puts $expect_out(buffer)
         fail "fail"

tests/ctlseqs/timeout.exp

@@ -5,3 +5,18 @@
 # permitted in any medium without royalty, provided the copyright notice and
 # this notice are preserved. This file is offered as-is, without any warranty.
 # 
+
+set tool ctlseqs
+set timeout 2
+
+tcsgrep_start timeout=500
+
+expect {
+    -ex "TIMEOUT\n" {
+        pass "pass"
+    }
+    default {
+        puts $expect_out(buffer)
+        fail "fail"
+    }
+}