diff options
Diffstat (limited to 'libmailutils/testsuite/mailbox/list.exp')
-rw-r--r-- | libmailutils/testsuite/mailbox/list.exp | 330 |
1 files changed, 0 insertions, 330 deletions
diff --git a/libmailutils/testsuite/mailbox/list.exp b/libmailutils/testsuite/mailbox/list.exp deleted file mode 100644 index acb7bb220..000000000 --- a/libmailutils/testsuite/mailbox/list.exp +++ /dev/null @@ -1,330 +0,0 @@ -# -*- 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 |