Added new testsuites

@@ -487,18 +487,22 @@ AC_CONFIG_FILES([Makefile mailutils.spec
  imap4d/Makefile
  imap4d/testsuite/Makefile
  from/Makefile
+ from/testsuite/Makefile
  mail/Makefile
  mail/testsuite/Makefile
  pop3d/Makefile
  pop3d/testsuite/Makefile
  frm/Makefile
+ frm/testsuite/Makefile
  sieve/Makefile
  messages/Makefile
+ messages/testsuite/Makefile
  scripts/Makefile
  libmu_scm/Makefile
  guimb/Makefile
  guimb/scm/Makefile
  readmsg/Makefile
+ readmsg/testsuite/Makefile
  comsat/Makefile
  mail.local/Makefile
  mail.remote/Makefile

 AUTOMAKE_OPTIONS = ../lib/ansi2knr
 INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/lib 
+SUBDIRS = testsuite
 
 bin_PROGRAMS = frm
 

+Makefile
+Makefile.in
+*.log
+*.sum
+site.exp
+remote.exp
+data

+AUTOMAKE_OPTIONS = dejagnu
+DEJATOOL = frm
+RUNTESTFLAGS = 
+CLEANFILES = *.log
+test_dirs = frm
+
+dist-hook:
+	here=`cd $(top_builddir)/$(subdir) && pwd`; \
+	srcdir=`cd $(srcdir) && pwd`; \
+	distdir=`cd $(distdir) && pwd`; \
+	for dir in $(test_dirs); \
+	do \
+            cd $$srcdir;\
+            mkdir $$distdir/$$dir;\
+	    cd $$dir;\
+	    for file in DISTFILES `cat DISTFILES`; do \
+	        d=$$srcdir/$$dir; \
+	        if test -d $$d/$$file; then \
+                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
+		else \
+	            test -f $$distdir/$$dir/$$file \
+                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
+                fi; \
+	    done;\
+        done;\
+	cd $$here
+
+site.exp: Makefile remote.exp
+	@echo 'Making a new site.exp file...'
+	@test ! -f site.bak || rm -f site.bak
+	@echo '## these variables are automatically generated by make ##' > $@-t
+	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
+	@echo '# edit the last section' >> $@-t
+	@echo 'set tool $(DEJATOOL)' >> $@-t
+	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
+	@echo 'set objdir' `pwd` >> $@-t
+	@echo 'set host_alias "$(host_alias)"' >> $@-t
+	@echo 'set host_triplet $(host_triplet)' >> $@-t
+	@echo 'set target_alias "$(target_alias)"' >> $@-t
+	@echo 'set target_triplet $(target_triplet)' >> $@-t
+	@echo 'set build_alias "$(build_alias)"' >> $@-t
+	@echo 'set build_triplet $(build_triplet)' >> $@-t
+	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
+	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
+	@test ! -f site.exp || mv site.exp site.bak
+	@mv $@-t site.exp
+
+remote.exp:;
+	@echo 'Making a new remote.exp file...'
+	@test ! -f remote.bak || rm -f remote.bak
+	@echo '## These variables are used to set up for the remote testing.' >> $@-t
+	@echo '## Please, read file README in this directory for instructions' >> $@-t
+	@echo '## on how to use this file' >> $@-t
+	@echo "set host_board `hostname`" >> $@-t
+	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
+	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
+	@test ! -f remote.exp || mv remote.exp remote.bak
+	@mv $@-t remote.exp
+
+
+DISTCLEANFILES=*.exp *.log *.sum 
+
+distclean-local:
+	-rm -rf	data

+test.exp
\ No newline at end of file

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation
+#  
+# 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+source $top_srcdir/testsuite/lib/mailutils.exp
+
+mu_init 
+set env(MAIL) $MU_SPOOL_DIR/mbox1
+
+mu_prepare_spools
+
+mu_exec -retcode 1 -message "frm" "Foo Bar\tJabberwocky"\
+"Bar\tRe: Jabberwocky"\
+"Sergey Poznyakoff\tSimple MIME"\
+"Sergey Poznyakoff\tNested MIME"
+
+mu_exec -retcode 1 -message "frm -n" -arg -n \
+"1: Foo Bar\tJabberwocky"\
+"2: Bar\tRe: Jabberwocky"\
+"3: Sergey Poznyakoff\tSimple MIME"\
+"4: Sergey Poznyakoff\tNested MIME"
+
+mu_exec -retcode 1 -message "frm -l" -arg -l \
+"(Bar) Foo Bar\tJabberwocky"\
+"(Foo Bar) Bar\tRe: Jabberwocky"\
+"(Foo Bar) Sergey Poznyakoff\tSimple MIME"\
+"(Foo Bar) Sergey Poznyakoff\tNested MIME"\
+
+mu_exec -retcode 1 -message "frm -qS" -arg -qS \
+"You have 4 messages"
+
+mu_exec -retcode 1 -arg %mbox -message "frm %mbox" \
+"Sergey Poznyakoff\tMBOX"
+
+mu_exec -retcode 1 -arg -q -message "frm -q" 
+
+mu_exec -arg -q -arg %nonexistent -retcode 2 -message "frm -q %nonexistent" 
+
+#end of test.exp
\ No newline at end of file

 AUTOMAKE_OPTIONS = ../lib/ansi2knr
 INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/lib
+SUBDIRS = testsuite
 
 bin_PROGRAMS = from
 

+Makefile
+Makefile.in
+*.log
+*.sum
+site.exp
+remote.exp
+data

+AUTOMAKE_OPTIONS = dejagnu
+DEJATOOL = from
+RUNTESTFLAGS = 
+CLEANFILES = *.log
+test_dirs = from
+
+dist-hook:
+	here=`cd $(top_builddir)/$(subdir) && pwd`; \
+	srcdir=`cd $(srcdir) && pwd`; \
+	distdir=`cd $(distdir) && pwd`; \
+	for dir in $(test_dirs); \
+	do \
+            cd $$srcdir;\
+            mkdir $$distdir/$$dir;\
+	    cd $$dir;\
+	    for file in DISTFILES `cat DISTFILES`; do \
+	        d=$$srcdir/$$dir; \
+	        if test -d $$d/$$file; then \
+                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
+		else \
+	            test -f $$distdir/$$dir/$$file \
+                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
+                fi; \
+	    done;\
+        done;\
+	cd $$here
+
+site.exp: Makefile remote.exp
+	@echo 'Making a new site.exp file...'
+	@test ! -f site.bak || rm -f site.bak
+	@echo '## these variables are automatically generated by make ##' > $@-t
+	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
+	@echo '# edit the last section' >> $@-t
+	@echo 'set tool $(DEJATOOL)' >> $@-t
+	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
+	@echo 'set objdir' `pwd` >> $@-t
+	@echo 'set host_alias "$(host_alias)"' >> $@-t
+	@echo 'set host_triplet $(host_triplet)' >> $@-t
+	@echo 'set target_alias "$(target_alias)"' >> $@-t
+	@echo 'set target_triplet $(target_triplet)' >> $@-t
+	@echo 'set build_alias "$(build_alias)"' >> $@-t
+	@echo 'set build_triplet $(build_triplet)' >> $@-t
+	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
+	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
+	@test ! -f site.exp || mv site.exp site.bak
+	@mv $@-t site.exp
+
+remote.exp:;
+	@echo 'Making a new remote.exp file...'
+	@test ! -f remote.bak || rm -f remote.bak
+	@echo '## These variables are used to set up for the remote testing.' >> $@-t
+	@echo '## Please, read file README in this directory for instructions' >> $@-t
+	@echo '## on how to use this file' >> $@-t
+	@echo "set host_board `hostname`" >> $@-t
+	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
+	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
+	@test ! -f remote.exp || mv remote.exp remote.bak
+	@mv $@-t remote.exp
+
+
+DISTCLEANFILES=*.exp *.log *.sum 
+
+distclean-local:
+	-rm -rf	data

+test.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation
+#  
+# 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+source $top_srcdir/testsuite/lib/mailutils.exp
+
+mu_init 
+set env(MAIL) $MU_SPOOL_DIR/mbox1
+
+mu_prepare_spools
+
+mu_exec -message "from" \
+"Foo Bar\tJabberwocky"\
+"Bar\tRe: Jabberwocky"\
+"Sergey Poznyakoff\tSimple MIME"\
+"Sergey Poznyakoff\tNested MIME"
+
+mu_exec -message "from mbox" -arg %mbox \
+"Sergey Poznyakoff\tMBOX"
+
+#end of test.exp

 AUTOMAKE_OPTIONS = ../lib/ansi2knr
 INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/lib 
+SUBDIRS = testsuite
 
 bin_PROGRAMS = messages
 

+Makefile
+Makefile.in
+*.log
+*.sum
+site.exp
+remote.exp
+data

+AUTOMAKE_OPTIONS = dejagnu
+DEJATOOL = messages
+RUNTESTFLAGS = 
+CLEANFILES = *.log
+test_dirs = messages
+
+dist-hook:
+	here=`cd $(top_builddir)/$(subdir) && pwd`; \
+	srcdir=`cd $(srcdir) && pwd`; \
+	distdir=`cd $(distdir) && pwd`; \
+	for dir in $(test_dirs); \
+	do \
+            cd $$srcdir;\
+            mkdir $$distdir/$$dir;\
+	    cd $$dir;\
+	    for file in DISTFILES `cat DISTFILES`; do \
+	        d=$$srcdir/$$dir; \
+	        if test -d $$d/$$file; then \
+                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
+		else \
+	            test -f $$distdir/$$dir/$$file \
+                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
+                fi; \
+	    done;\
+        done;\
+	cd $$here
+
+site.exp: Makefile remote.exp
+	@echo 'Making a new site.exp file...'
+	@test ! -f site.bak || rm -f site.bak
+	@echo '## these variables are automatically generated by make ##' > $@-t
+	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
+	@echo '# edit the last section' >> $@-t
+	@echo 'set tool $(DEJATOOL)' >> $@-t
+	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
+	@echo 'set objdir' `pwd` >> $@-t
+	@echo 'set host_alias "$(host_alias)"' >> $@-t
+	@echo 'set host_triplet $(host_triplet)' >> $@-t
+	@echo 'set target_alias "$(target_alias)"' >> $@-t
+	@echo 'set target_triplet $(target_triplet)' >> $@-t
+	@echo 'set build_alias "$(build_alias)"' >> $@-t
+	@echo 'set build_triplet $(build_triplet)' >> $@-t
+	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
+	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
+	@test ! -f site.exp || mv site.exp site.bak
+	@mv $@-t site.exp
+
+remote.exp:;
+	@echo 'Making a new remote.exp file...'
+	@test ! -f remote.bak || rm -f remote.bak
+	@echo '## These variables are used to set up for the remote testing.' >> $@-t
+	@echo '## Please, read file README in this directory for instructions' >> $@-t
+	@echo '## on how to use this file' >> $@-t
+	@echo "set host_board `hostname`" >> $@-t
+	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
+	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
+	@test ! -f remote.exp || mv remote.exp remote.bak
+	@mv $@-t remote.exp
+
+
+DISTCLEANFILES=*.exp *.log *.sum 
+
+distclean-local:
+	-rm -rf	data

+test.exp

+# -*- tcl -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2002, Free Software Foundation
+#  
+# 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 2 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
+
+source $top_srcdir/testsuite/lib/mailutils.exp
+
+mu_init 
+set env(MAIL) $MU_SPOOL_DIR/mbox1
+
+mu_prepare_spools
+
+mu_exec -message "messages" \
+"Number of messages in $MU_SPOOL_DIR/mbox1: 4"
+
+mu_exec -message "messages -q" -arg -q "4"
+
+mu_exec -message "messages %teaparty.mbox" -arg %teaparty.mbox \
+"Number of messages in $MU_SPOOL_DIR/teaparty.mbox: 95"
+
+#end of test.exp
+	
\ No newline at end of file

 AUTOMAKE_OPTIONS = ../lib/ansi2knr
 INCLUDES = -I$(top_srcdir)/include -I$(top_srcdir)/lib
+SUBDIRS = testsuite
 
 bin_PROGRAMS = readmsg
 

+Makefile
+Makefile.in
+*.log
+*.sum
+site.exp
+remote.exp
+data

+AUTOMAKE_OPTIONS = dejagnu
+DEJATOOL = readmsg
+RUNTESTFLAGS = 
+CLEANFILES = *.log
+test_dirs = readmsg
+
+dist-hook:
+	here=`cd $(top_builddir)/$(subdir) && pwd`; \
+	srcdir=`cd $(srcdir) && pwd`; \
+	distdir=`cd $(distdir) && pwd`; \
+	for dir in $(test_dirs); \
+	do \
+            cd $$srcdir;\
+            mkdir $$distdir/$$dir;\
+	    cd $$dir;\
+	    for file in DISTFILES `cat DISTFILES`; do \
+	        d=$$srcdir/$$dir; \
+	        if test -d $$d/$$file; then \
+                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
+		else \
+	            test -f $$distdir/$$dir/$$file \
+                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
+                fi; \
+	    done;\
+        done;\
+	cd $$here
+
+site.exp: Makefile remote.exp
+	@echo 'Making a new site.exp file...'
+	@test ! -f site.bak || rm -f site.bak
+	@echo '## these variables are automatically generated by make ##' > $@-t
+	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
+	@echo '# edit the last section' >> $@-t
+	@echo 'set tool $(DEJATOOL)' >> $@-t
+	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
+	@echo 'set objdir' `pwd` >> $@-t
+	@echo 'set host_alias "$(host_alias)"' >> $@-t
+	@echo 'set host_triplet $(host_triplet)' >> $@-t
+	@echo 'set target_alias "$(target_alias)"' >> $@-t
+	@echo 'set target_triplet $(target_triplet)' >> $@-t
+	@echo 'set build_alias "$(build_alias)"' >> $@-t
+	@echo 'set build_triplet $(build_triplet)' >> $@-t
+	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
+	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
+	@test ! -f site.exp || mv site.exp site.bak
+	@mv $@-t site.exp
+
+remote.exp:;
+	@echo 'Making a new remote.exp file...'
+	@test ! -f remote.bak || rm -f remote.bak
+	@echo '## These variables are used to set up for the remote testing.' >> $@-t
+	@echo '## Please, read file README in this directory for instructions' >> $@-t
+	@echo '## on how to use this file' >> $@-t
+	@echo "set host_board `hostname`" >> $@-t
+	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
+	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
+	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
+	@test ! -f remote.exp || mv remote.exp remote.bak
+	@mv $@-t remote.exp
+
+
+DISTCLEANFILES=*.exp *.log *.sum 
+
+distclean-local:
+	-rm -rf	data

+test.exp