diff options
Diffstat (limited to 'libmailutils/testsuite/mailbox/list.exp')
-rw-r--r-- | libmailutils/testsuite/mailbox/list.exp | 330 |
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 |