From 5f1ddd66d899f2d6124ef05932694c7f623b64f7 Mon Sep 17 00:00:00 2001
From: CismonX <admin@cismon.net>
Date: Tue, 2 Feb 2021 02:48:15 +0800
Subject: [PATCH] Update tests.

---
 tests/ctlseqs/match.exp   |  2 +-
 tests/ctlseqs/nomem.exp   |  2 +-
 tests/ctlseqs/partial.exp |  4 +++-
 tests/ctlseqs/timeout.exp | 15 +++++++++++++++
 4 files changed, 20 insertions(+), 3 deletions(-)

diff --git a/tests/ctlseqs/match.exp b/tests/ctlseqs/match.exp
index aedcf51..637d8b5 100644
--- a/tests/ctlseqs/match.exp
+++ b/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)
diff --git a/tests/ctlseqs/nomem.exp b/tests/ctlseqs/nomem.exp
index 6c55d54..38bf034 100644
--- a/tests/ctlseqs/nomem.exp
+++ b/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)
diff --git a/tests/ctlseqs/partial.exp b/tests/ctlseqs/partial.exp
index 877d08e..081e55a 100644
--- a/tests/ctlseqs/partial.exp
+++ b/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"
diff --git a/tests/ctlseqs/timeout.exp b/tests/ctlseqs/timeout.exp
index 174ea3e..5b88207 100644
--- a/tests/ctlseqs/timeout.exp
+++ b/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"
+    }
+}