[popfile-commit] engine/tests TestIMAP.tst,1.3.4.5,1.3.4.6

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

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

Modified Files:
      Tag: b0_22_2
	TestIMAP.tst 
Log Message:
Finish tests for configure_item

Index: TestIMAP.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestIMAP.tst,v
retrieving revision 1.3.4.5
retrieving revision 1.3.4.6
diff -C2 -d -r1.3.4.5 -r1.3.4.6
*** TestIMAP.tst	18 Nov 2007 11:39:01 -0000	1.3.4.5
--- TestIMAP.tst	19 Nov 2007 10:11:48 -0000	1.3.4.6
***************
*** 30,34 ****
  # * fail while fetching a part
  # * fail while fetching_header_fields
! # * configure and validate item
  #
  # Client.pm
--- 30,34 ----
  # * fail while fetching a part
  # * fail while fetching_header_fields
! # * validate_item
  #
  # Client.pm
***************
*** 532,536 ****
      test_assert_equal( $selected, scalar @{$tmpl->param('imap_loop_buckets')} );
  
! }
  
  
--- 532,558 ----
      test_assert_equal( $selected, scalar @{$tmpl->param('imap_loop_buckets')} );
  
! 
!     # imap-update-mailbox-list.thtml
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-update-mailbox-list.thtml' );
!     test_assert_equal( $tmpl->query( name => 'IMAP_if_connection_configured' ), 'VAR' );
!     $im->config_( 'hostname', '' );
!     $im->configure_item( 'imap_4_update_mailbox_list', $tmpl, $language );
!     test_assert( ! $tmpl->param('IMAP_if_connection_configured' ) );
!     $im->config_( 'hostname', 'test-host' );
!     $im->configure_item( 'imap_4_update_mailbox_list', $tmpl, $language );
!     test_assert( $tmpl->param('IMAP_if_connection_configured' ) );
! 
!     # imap-options.thtml
!     $tmpl = HTML::Template->new( filename => '../skins/default/imap-options.thtml' );
!     $im->config_( 'expunge', 1 );
!     $im->configure_item( 'imap_5_options', $tmpl, $language );
!     test_assert_equal( $tmpl->param( 'IMAP_expunge_is_checked' ), 'checked="checked"' );
! 
!     $im->config_( 'expunge', 0 );
!     $im->config_( 'update_interval', 99 );
!     $im->configure_item( 'imap_5_options', $tmpl, $language );
!     test_assert_equal( $tmpl->param( 'IMAP_expunge_is_checked' ), '' );
!     test_assert_equal( $tmpl->param( 'IMAP_interval', '99' ) );
!  }