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 );
}
|
