summaryrefslogtreecommitdiff
path: root/libmailutils/testsuite/mailbox/list.exp
diff options
context:
space:
mode:
Diffstat (limited to 'libmailutils/testsuite/mailbox/list.exp')
-rw-r--r--libmailutils/testsuite/mailbox/list.exp330
1 files changed, 330 insertions, 0 deletions
diff --git a/libmailutils/testsuite/mailbox/list.exp b/libmailutils/testsuite/mailbox/list.exp
new file mode 100644
index 000000000..acb7bb220
--- /dev/null
+++ b/libmailutils/testsuite/mailbox/list.exp
@@ -0,0 +1,330 @@
+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2003, 2005, 2007, 2008, 2010 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301 USA.
+
+set current_text [list "NULL" "NULL" "NULL" "NULL"]
+set current_iter 0
+
+proc make_promt {} {
+ global current_iter
+ global current_text
+ global mailbox_prog_prompt
+
+ set mailbox_prog_prompt "${current_iter}:\\([lindex $current_text $current_iter]\\)> "
+}
+
+proc prompt_text {text} {
+ global current_iter
+ global current_text
+
+ set current_text [lreplace $current_text $current_iter $current_iter $text]
+ make_promt
+}
+
+proc prompt_iterator {iter} {
+ global current_iter
+
+ set current_iter $iter
+ make_promt
+}
+
+prompt_iterator 0
+prompt_text "NULL"
+
+mailbox_prog_start "${top_builddir}/examples/listop"
+
+mailbox_prog_command "add en to tre fire fem"
+mailbox_prog_test "print" \
+ "# items: 5" \
+ "en" \
+ "to" \
+ "tre" \
+ "fire" \
+ "fem"
+
+prompt_text "en"
+mailbox_prog_test "next"
+
+prompt_text "tre"
+mailbox_prog_test "next 2"
+
+prompt_iterator 1
+prompt_text "en"
+mailbox_prog_test "iter 1"
+
+prompt_text "to"
+mailbox_prog_test "find to"
+
+mailbox_prog_test "del tre fire"
+
+prompt_text "fem"
+mailbox_prog_test "next"
+
+prompt_iterator 0
+prompt_text "fem"
+mailbox_prog_test "iter 0"
+mailbox_prog_test "print" \
+ "# items: 3" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "prep jeden dwa trzy cztery"
+
+mailbox_prog_test "print" \
+ "# items: 7" \
+ "cztery" \
+ "trzy" \
+ "dwa" \
+ "jeden" \
+ "en" \
+ "to" \
+ "fem"
+
+prompt_text "cztery"
+mailbox_prog_test "first"
+
+prompt_text "trzy"
+mailbox_prog_test "del cztery"
+
+prompt_text "3"
+mailbox_prog_test "repl trzy 3"
+
+prompt_iterator 1
+mailbox_prog_test "iter 1"
+
+prompt_text "3"
+mailbox_prog_test "next 2"
+
+mailbox_prog_command "ins jeden un"
+mailbox_prog_test "print" \
+ "# items: 7" \
+ "3" \
+ "dwa" \
+ "jeden" \
+ "un" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "ins before jeden zero"
+mailbox_prog_test "print" \
+ "# items: 8" \
+ "3" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "un" \
+ "en" \
+ "to" \
+ "fem"
+
+prompt_text "un"
+mailbox_prog_test "find un"
+
+mailbox_prog_command "ins before un cero"
+mailbox_prog_command "ins un dos"
+
+mailbox_prog_test "print" \
+ "# items: 10" \
+ "3" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "un" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "ins before 3 1"
+mailbox_prog_test "print" \
+ "# items: 11" \
+ "1" \
+ "3" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "un" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "ins before 3 2"
+mailbox_prog_test "print" \
+ "# items: 12" \
+ "1" \
+ "2" \
+ "3" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "un" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "ins 3 4 5 6"
+mailbox_prog_test "print" \
+ "# items: 15" \
+ "1" \
+ "2" \
+ "3" \
+ "4" \
+ "5" \
+ "6" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "un" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_command "ins before dwa zero jeden"
+mailbox_prog_test "print" \
+ "# items: 17" \
+ "1" \
+ "2" \
+ "3" \
+ "4" \
+ "5" \
+ "6" \
+ "zero" \
+ "jeden" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "un" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_test "ictl tell" "12"
+
+prompt_text "dos"
+mailbox_prog_test "ictl del"
+
+prompt_text "dos"
+mailbox_prog_test "next"
+
+mailbox_prog_test "print" \
+ "# items: 16" \
+ "1" \
+ "2" \
+ "3" \
+ "4" \
+ "5" \
+ "6" \
+ "zero" \
+ "jeden" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "dos" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_test "ictl ins seis"
+
+mailbox_prog_test "print" \
+ "# items: 17" \
+ "1" \
+ "2" \
+ "3" \
+ "4" \
+ "5" \
+ "6" \
+ "zero" \
+ "jeden" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "dos" \
+ "seis" \
+ "en" \
+ "to" \
+ "fem"
+
+mailbox_prog_test "ictl ins tres quatro cinco"
+
+mailbox_prog_test "print" \
+ "# items: 20" \
+ "1" \
+ "2" \
+ "3" \
+ "4" \
+ "5" \
+ "6" \
+ "zero" \
+ "jeden" \
+ "dwa" \
+ "zero" \
+ "jeden" \
+ "cero" \
+ "dos" \
+ "tres" \
+ "quatro" \
+ "cinco" \
+ "seis" \
+ "en" \
+ "to" \
+ "fem"
+
+prompt_text "tres"
+mailbox_prog_test "next"
+
+mailbox_prog_test "ictl dir" "forwards"
+
+mailbox_prog_test "ictl dir backwards"
+
+prompt_text "dos"
+mailbox_prog_test "next"
+
+prompt_text "dwa"
+mailbox_prog_test "next 4"
+
+prompt_text "jeden"
+mailbox_prog_test "ictl del"
+
+mailbox_prog_test "next"
+
+prompt_text "zero"
+mailbox_prog_test "next"
+
+mailbox_prog_test "ictl dir forwards"
+
+prompt_text "jeden"
+mailbox_prog_test "next"
+
+mailbox_prog_send "quit"
+mailbox_prog_stop
+
+# End of list.exp

Return to:

Send suggestions and report system problems to the System administrator.