[popfile-commit] engine/tests TestIMAP.tst,1.3.4.7,1.3.4.8

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

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

Modified Files:
      Tag: b0_22_2
	TestIMAP.tst 
Log Message:
Add yet more tests for validate_item.
New coverage values: 86% und 82% for Client.pm and IMAP.pm, respectively.


Index: TestIMAP.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestIMAP.tst,v
retrieving revision 1.3.4.7
retrieving revision 1.3.4.8
diff -C2 -d -r1.3.4.7 -r1.3.4.8
*** TestIMAP.tst	23 Nov 2007 07:00:18 -0000	1.3.4.7
--- TestIMAP.tst	23 Nov 2007 11:08:43 -0000	1.3.4.8
***************
*** 379,388 ****
  
      # Here's a list of all the templates we have to test:
-     #   imap-bucket-folders.thtml
-     #   imap-options.thtml
-     #   imap-watch-folders.thtml
      #   imap-connection-details.thtml
!     #   imap-update-mailbox-list.thtml
      #   imap-watch-more-folders.thtml
  
      # We also need to provide those methods with a language hash:
--- 379,388 ----
  
      # Here's a list of all the templates we have to test:
      #   imap-connection-details.thtml
!     #   imap-watch-folders.thtml
      #   imap-watch-more-folders.thtml
+     #   imap-bucket-folders.thtml
+     #   imap-update-mailbox-list.thtml
+     #   imap-options.thtml
  
      # We also need to provide those methods with a language hash:
***************
*** 573,576 ****
--- 573,578 ----
  
      # We now will have to test validate_item.
+ 
+     # imap-connection-details.thtml
      my $form = {};
      $tmpl = HTML::Template->new( filename => '../skins/default/imap-connection-details.thtml' );
***************
*** 588,591 ****
--- 590,594 ----
      test_assert_equal( $im->config_( 'hostname' ), 'hostname' );
  
+     # imap-watch-folders.thtml
      $form = {};
      $tmpl = HTML::Template->new( filename => '../skins/default/imap-watch-folders.thtml' );
***************
*** 600,604 ****
      test_assert_equal( $folders[0], 'first watched folder' );
      test_assert_equal( $folders[1], 'second watched folder' );
!  }
  
  
--- 603,648 ----
      test_assert_equal( $folders[0], 'first watched folder' );
      test_assert_equal( $folders[1], 'second watched folder' );
! 
!     # imap-watch-more-folders.thtml
!     $form = {};
!     $form->{imap_2_watch_more_folders} = 1;
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-watch-more-folders.thtml' );
!     $im->validate_item( 'imap_2_watch_more_folders', $tmpl, $language, $form );
!     @folders = $im->watched_folders__();
!     test_assert_equal( scalar @folders, 3 );
!     test_assert_equal( pop @folders, 'INBOX' );
! 
!     # imap-bucket-folders.thtml
!     $form = {};
!     $form->{imap_3_bucket_folders} = 1;
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-bucket-folders.thtml' );
!     $im->validate_item('imap_3_bucket_folders', $tmpl, $language, $form );
! 
! 
!     # imap-update-mailbox-list.thtml
!     $form = {};
!     $form->{do_imap_4_update_mailbox_list} = 1;
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-update-mailbox-list.thtml' );
!     $im->validate_item( 'imap_4_update_mailbox_list', $tmpl, $language, $form );
! 
! 
!     # imap-options.thtml
!     $form = {};
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-options.thtml' );
!     $form->{update_imap_5_options} = 1;
!     $form->{imap_options_expunge} = 1;
!     $form->{imap_options_update_interval} = 1234;
!     $im->validate_item( 'imap_5_options', $tmpl, $language, $form );
!     test_assert_equal( $im->config_( 'expunge' ), 1 );
!     test_assert_equal( $im->config_( 'update_interval' ), 1234 );
! 
!     $form->{imap_options_expunge} = undef;
!     $im->validate_item( 'imap_5_options', $tmpl, $language, $form );
!     test_assert_equal( $im->config_( 'expunge' ), 0 );
! 
!     $form->{imap_options_update_interval} = 0;
!     $im->validate_item( 'imap_5_options', $tmpl, $language, $form );
!     test_assert_equal( $tmpl->param('IMAP_if_interval_error'), 1 );
! }