[popfile-commit] engine/tests TestIMAP.tst,1.3.4.2,1.3.4.3

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

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

Modified Files:
      Tag: b0_22_2
	TestIMAP.tst 
Log Message:
Yet more tests: first tests for configure_item

Index: TestIMAP.tst
===================================================================
RCS file: /cvsroot/popfile/engine/tests/TestIMAP.tst,v
retrieving revision 1.3.4.2
retrieving revision 1.3.4.3
diff -C2 -d -r1.3.4.2 -r1.3.4.3
*** TestIMAP.tst	11 Nov 2007 16:42:54 -0000	1.3.4.2
--- TestIMAP.tst	16 Nov 2007 10:11:20 -0000	1.3.4.3
***************
*** 42,48 ****
--- 42,50 ----
  use POPFile::History;
  use Services::IMAP;
+ use UI::HTML;
  use Classifier::Bayes;
  use Classifier::WordMangle;
  use File::Copy;
+ use HTML::Template;
  
  $SIG{CHLD} = 'IGNORE';
***************
*** 70,73 ****
--- 72,77 ----
      # talk to the server.
      configure_imap_module( $im, $c, $mq, $l, $b, $h );
+     test_imap_ui( $im );
+     configure_imap_module( $im, $c, $mq, $l, $b, $h );
      test_imap_module( $im, $c, $mq, $l, $b, $h );
      test_imap_client( $im );
***************
*** 344,347 ****
--- 348,459 ----
  }
  
+ #################################################################################
+ # test_imap_ui
+ # Test the UI widgets of the IMAP module. All we are going to have to do
+ # here is test the two methods configure_item and validate_item
+ ##
+ 
+ sub test_imap_ui {
+     my $im = shift;
+ 
+     # We are going to set up a template object that we will pass into
+     # configure_item and validate_item.
+     # Later, we'll test whether the correct parameters are set to the
+     # correct values.
+ 
+     # 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:
+     my $html = UI::HTML->new();
+     $html->{configuration__} = $im->{configuration__};
+     $html->load_language( 'English' );
+     my $language = $html->{language__};
+ 
+     # Start with the connection details
+     # imap-connection-details.thtml
+ 
+     my $tmpl = HTML::Template->new( filename => '../skins/default/imap-connection-details.thtml' );
+ 
+     # Test the template itself. Does it contain all the variables that it must contain
+     test_assert_equal( $tmpl->query( name => 'IMAP_hostname'), 'VAR' );
+     test_assert_equal( $tmpl->query( name => 'IMAP_port' ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => 'IMAP_password' ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => 'IMAP_login' ), 'VAR' );
+ 
+     # Now let the IMAP module populate the template
+     $im->config_( hostname => 'some host' );
+     $im->config_( port => 'some port' );
+     $im->config_( password => 'some password' );
+     $im->config_( login => 'some login' );
+ 
+     $im->configure_item( 'imap_0_connection_details', $tmpl, $language );
+ 
+     test_assert_equal( $tmpl->param( 'IMAP_hostname'), 'some host' );
+     test_assert_equal( $tmpl->param( 'IMAP_port' ), 'some port' );
+     test_assert_equal( $tmpl->param( 'IMAP_password' ), 'some password' );
+     test_assert_equal( $tmpl->param( 'IMAP_login' ), 'some login' );
+ 
+ 
+     # imap-watch-folders.thtml
+     $tmpl = HTML::Template->new( filename => '../skins/default/imap-watch-folders.thtml' );
+ 
+     test_assert_equal( $tmpl->query( name => 'IMAP_if_mailboxes' ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => 'IMAP_loop_watched_folders' ), 'LOOP' );
+     test_assert_equal( $tmpl->query( name => ['IMAP_loop_watched_folders', 'IMAP_loop_counter'] ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => ['IMAP_loop_watched_folders', 'IMAP_WatchedFolder_Msg' ] ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => ['IMAP_loop_watched_folders', 'IMAP_loop_mailboxes'] ), 'LOOP' );
+     test_assert_equal( $tmpl->query( name => ['IMAP_loop_watched_folders', 'IMAP_loop_mailboxes', 'IMAP_mailbox' ] ), 'VAR' );
+     test_assert_equal( $tmpl->query( name => ['IMAP_loop_watched_folders', 'IMAP_loop_mailboxes', 'IMAP_selected' ] ), 'VAR' );
+ 
+     # We set both, the mailboxes__ arrayref and the list of watched folders, to be empty
+     $im->{mailboxes__} = [];
+     $im->config_( 'watched_folders', '' );
+     $im->configure_item( 'imap_1_watch_folders', $tmpl, $language );
+     test_assert( ! $tmpl->param( 'IMAP_if_mailboxes' ) );
+ 
+     # Now we set only one to a non-empty list
+     $im->{mailboxes__} = [ 1 ];
+     $im->configure_item( 'imap_1_watch_folders', $tmpl, $language );
+     test_assert( ! $tmpl->param( 'IMAP_if_mailboxes' ) );
+ 
+     $im->{mailboxes__} = [];
+     $im->watched_folders__( 'INBOX' );
+     $im->configure_item( 'imap_1_watch_folders', $tmpl, $language );
+     test_assert( ! $tmpl->param( 'IMAP_if_mailboxes' ) );
+ 
+     # Finally, both get a value
+     $im->{mailboxes__} = [1];
+     $im->watched_folders__( 'second' );
+     $im->configure_item( 'imap_1_watch_folders', $tmpl, $language );
+     test_assert( $tmpl->param( 'IMAP_if_mailboxes' ) );
+     my %params = map { $_ => 1 } $tmpl->param('IMAP_loop_watched_folders');
+     #use Data::Dumper; warn Dumper( \%params );
+     test_assert_equal( 1, 1 );
+ 
+ 
+ 
+ 
+     # imap-watch-more-folders.thtml
+     $tmpl = HTML::Template->new( filename => '../skins/default/imap-watch-more-folders.thtml' );
+ 
+     test_assert_equal( $tmpl->query( name => 'IMAP_if_mailboxes' ), 'VAR' );
+ 
+     $im->{mailboxes__} = [];
+     $im->configure_item( 'imap_2_watch_more_folders', $tmpl, $language );
+     test_assert( ! $tmpl->param( 'IMAP_if_mailboxes' ) );
+ 
+     $im->{mailboxes__} = [1];
+     $im->configure_item( 'imap_2_watch_more_folders', $tmpl, $language );
+     test_assert( $tmpl->param( 'IMAP_if_mailboxes' ) );
+ 
+ 
+ }
+ 
  
  #################################################################################
***************
*** 389,393 ****
      rmtree( 'corpus' );
      test_assert( rec_cp( 'corpus.base', 'corpus' ) );
!     test_assert( rmtree( 'corpus/CVS' ) > 0 );
  
      unlink 'popfile.db';
--- 501,505 ----
      rmtree( 'corpus' );
      test_assert( rec_cp( 'corpus.base', 'corpus' ) );
!     test_assert( rmtree( 'corpus/CVS' ) > 0 ) if -e 'corpus/CVS';
  
      unlink 'popfile.db';