Update of /cvsroot/fink/fink/t/FinkVersion
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv2695/t/FinkVersion
Modified Files:
Tag: selfupdate_classes
exports.t version.t
Log Message:
Abolish all use of stamp-* files, since they duplicate data already in
the VERSION file. Scrap all package-info version handlers from
FinkVersion.pm.in, put useful functionality from them solely in
SelfUpdate.pm.
Index: version.t
===================================================================
RCS file: /cvsroot/fink/fink/t/FinkVersion/version.t,v
retrieving revision 1.1
retrieving revision 1.1.38.1
diff -u -d -r1.1 -r1.1.38.1
--- version.t 21 Nov 2003 23:43:56 -0000 1.1
+++ version.t 20 Mar 2007 07:13:44 -0000 1.1.38.1
@@ -5,9 +5,6 @@
use Fink::Command qw(cat touch mkdir_p);
use File::Basename;
-use Fink::Config;
-Fink::Config->new_with_path('basepath/etc/fink.conf');
-
BEGIN { use_ok 'Fink::FinkVersion', ':ALL'; }
{
@@ -15,41 +12,3 @@
chomp $fink_version;
is( fink_version, , $fink_version, 'fink_version matches VERSION' );
}
-
-
-{
- is( distribution_version, 'unknown',
- 'distribution_version with no files' );
-
- for my $distfile (qw(fink/VERSION etc/fink-release)) {
- _write("basepath/$distfile");
- is( distribution_version, '1.2.3', " from $distfile" );
- unlink("basepath/$distfile");
- }
-}
-
-
-{
- is( pkginfo_version, distribution_version,
- 'pkginfo_version == distribution_version with no clues' );
-
- for my $stamp (qw(stamp-rsync stamp-cvs)) {
- my($version) = $stamp =~ /stamp-(.*)/;
- touch("basepath/fink/$stamp");
- is( pkginfo_version, $version, " from $stamp" );
- unlink("basepath/fink/$stamp");
- }
-
- my @Stamp_Versions = qw(1.2 3.4 3.49);
- touch("basepath/fink/stamp-rel-$_") foreach @Stamp_Versions;
- is( pkginfo_version, 3.49, ' highest from multiple stamp-rels' );
- unlink("basepath/fink/stamp-rel-$_") foreach @Stamp_Versions;
-}
-
-sub _write {
- my($file) = @_;
- mkdir_p(dirname($file));
- open(FILE, ">$file") or die "Can't open $file: $!";
- print FILE "1.2.3\n";
- close FILE;
-}
Index: exports.t
===================================================================
RCS file: /cvsroot/fink/fink/t/FinkVersion/exports.t,v
retrieving revision 1.1
retrieving revision 1.1.38.1
diff -u -d -r1.1 -r1.1.38.1
--- exports.t 21 Nov 2003 23:43:56 -0000 1.1
+++ exports.t 20 Mar 2007 07:13:44 -0000 1.1.38.1
@@ -14,7 +14,6 @@
{
package Bar;
Fink::FinkVersion->import(':ALL');
- ::can_ok( __PACKAGE__, qw(fink_version distribution_version
- pkginfo_version) );
+ ::can_ok( __PACKAGE__, qw(fink_version) );
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
