[Openinteract-commits] CVS: OpenInteract2/t 00_manage_create_website.t,1.2,1.3 utils.pl,1.86,1.87

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32604/t

Modified Files:
	00_manage_create_website.t utils.pl 
Log Message:
fix website creation problems spawned by recent ::Setup change

Index: 00_manage_create_website.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/00_manage_create_website.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 00_manage_create_website.t	5 Dec 2004 18:50:11 -0000	1.2
--- 00_manage_create_website.t	26 Jan 2005 02:36:12 -0000	1.3
***************
*** 30,34 ****
          'create_website', {
              website_dir => $website_dir,
!             source_dir  => $source_dir
          })
  };
--- 30,34 ----
          'create_website', {
              website_dir => $website_dir,
!             source_dir  => $source_dir,
          })
  };
***************
*** 43,47 ****
  
  my @status = eval { $task->execute };
! ok( ! $@, 'Task executed' ) || diag "Error: $@";
  is( scalar @status, 109,
      'Number of status messages' );
--- 43,47 ----
  
  my @status = eval { $task->execute };
! ok( ! $@, 'Task executed' ) || diag "Execution error: $@";
  is( scalar @status, 109,
      'Number of status messages' );

Index: utils.pl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/utils.pl,v
retrieving revision 1.86
retrieving revision 1.87
diff -C2 -d -r1.86 -r1.87
*** utils.pl	16 Dec 2004 13:33:46 -0000	1.86
--- utils.pl	26 Jan 2005 02:36:14 -0000	1.87
***************
*** 275,279 ****
      my ( $website_dir ) = @_;
      modify_server_config();
!     CTX->setup({ skip => 'activate spops' });
      OpenInteract2::Manage->new(
          'install_sql', {
--- 275,279 ----
      my ( $website_dir ) = @_;
      modify_server_config();
!     CTX->setup({ skip => 'initialize spops' });
      OpenInteract2::Manage->new(
          'install_sql', {
***************
*** 281,285 ****
              package     => [ 'SYSTEM' ],
          })->execute();
!     OpenInteract2::Setup->activate_spops_classes;
  }
  
--- 281,285 ----
              package     => [ 'SYSTEM' ],
          })->execute();
!     OpenInteract2::Setup->run_setup_for( 'initialize spops' );
  }