[popfile-commit] engine/tests IMAP_test_server.pl,1.5,1.6

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27228/tests

Modified Files:
	IMAP_test_server.pl 
Log Message:
unlink the file with our uids after we're done.

Index: IMAP_test_server.pl
===================================================================
RCS file: /cvsroot/popfile/engine/tests/IMAP_test_server.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** IMAP_test_server.pl	1 Dec 2007 11:22:41 -0000	1.5
--- IMAP_test_server.pl	3 Dec 2007 08:56:13 -0000	1.6
***************
*** 52,55 ****
--- 52,56 ----
  my $debug = 1;
  my $spool = "imap.spool";
+ my $uid_file = 'imap.uids';
  
  # if nothing happens with in $idle_timeout seconds
***************
*** 204,207 ****
--- 205,209 ----
  
  close $main_sock;
+ unlink $uid_file;
  print "\nThe IMAP_test_server is exiting.\n";
  
***************
*** 627,631 ****
      my $uidnext = shift;
  
!     if ( open my $UIDS, '<', 'imap.uids' ) {
          while ( <$UIDS> ) {
              /(.+):(.+)[\r\n]/;
--- 629,633 ----
      my $uidnext = shift;
  
!     if ( open my $UIDS, '<', $uid_file ) {
          while ( <$UIDS> ) {
              /(.+):(.+)[\r\n]/;
***************
*** 633,639 ****
          }
      }
- #    else {
- #        die "IMAP-test-server has a problem: cannot open file 'imap.uids'";
- #    }
  
      if ( defined $uidnext ) {
--- 635,638 ----