[Openinteract-commits] CVS: OpenInteract2/t context.t,1.43,1.44 manage_list_packages.t,1.13,1.14 utils.pl,1.99,1.100

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

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

Modified Files:
	context.t manage_list_packages.t utils.pl 
Log Message:
get rid of tests for package versions

Index: context.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/context.t,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** context.t	2 Mar 2005 15:42:13 -0000	1.43
--- context.t	4 Mar 2005 03:11:21 -0000	1.44
***************
*** 69,76 ****
      'Number of packages fetched by repository' );
  
! my %package_versions = get_package_versions();
! while ( my ( $pkg_name, $pkg_ver ) = each %package_versions ) {
!     is( $repository->fetch_package( $pkg_name )->version, $pkg_ver,
!         "Package '$pkg_name' version" );
  }
  
--- 69,75 ----
      'Number of packages fetched by repository' );
  
! foreach my $pkg_name ( get_packages() ) {
!     is( ref( $repository->fetch_package( $pkg_name ) ), 'OpenInteract2::Package'
!         "Package '$pkg_name' exists" );
  }
  

Index: manage_list_packages.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/manage_list_packages.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** manage_list_packages.t	25 May 2004 00:13:30 -0000	1.13
--- manage_list_packages.t	4 Mar 2005 03:11:21 -0000	1.14
***************
*** 6,10 ****
  use lib 't/';
  require 'utils.pl';
! use Test::More  tests => 37;
  
  require_ok( 'OpenInteract2::Manage' );
--- 6,10 ----
  use lib 't/';
  require 'utils.pl';
! use Test::More  tests => 23;
  
  require_ok( 'OpenInteract2::Manage' );
***************
*** 26,38 ****
      'Correct number of packages listed' );
  
- my %package_versions = get_package_versions();
- 
  my $count = 0;
! foreach my $package_name ( sort keys %package_versions ) {
      is( $status[$count]->{name}, $package_name,
          "Package " . ($count + 1) . " name correct ($package_name)" );
-     my $version = $package_versions{ $package_name };
-     is( $status[$count]->{version}, $version,
-         "Package " . ($count + 1) . " version correct ($version)" );
      $count++;
  }
--- 26,33 ----
      'Correct number of packages listed' );
  
  my $count = 0;
! foreach my $package_name ( get_packages() ) {
      is( $status[$count]->{name}, $package_name,
          "Package " . ($count + 1) . " name correct ($package_name)" );
      $count++;
  }

Index: utils.pl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/utils.pl,v
retrieving revision 1.99
retrieving revision 1.100
diff -C2 -d -r1.99 -r1.100
*** utils.pl	3 Mar 2005 15:33:31 -0000	1.99
--- utils.pl	4 Mar 2005 03:11:21 -0000	1.100
***************
*** 43,65 ****
  }
  
! sub main::get_package_versions {
!     return (
!          base            => '2.15',
!          base_box        => '2.19',
!          base_error      => '3.02',
!          base_group      => '2.19',
!          base_page       => '2.30',
!          base_security   => '2.21',
!          base_template   => '3.17',
!          base_theme      => '2.13',
!          base_user       => '2.40',
!          comments        => '1.22',
!          full_text       => '2.61',
!          lookup          => '2.09',
!          news            => '2.24',
!          object_activity => '2.13',
!          system_doc      => '2.10',
!          whats_new       => '2.12',
!    );
  }
  
--- 43,51 ----
  }
  
! sub main::get_packages {
!     return qw( base  base_box  base_error  base_group  base_page
!                base_security  base_template  base_theme  base_user
!                comments  full_text  lookup  news  object_activity
!                system_doc  whats_new );
  }