Update of /cvsroot/fink/fink/t/Engine
In directory sc8-pr-cvs17:/tmp/cvs-serv27170/t/Engine
Modified Files:
ChangeLog fetch.t
Log Message:
* make self-update an alias for selfupdate
* skip mirrors which have failed 2 or more times (per session)
* timeout on mirror selection after 2 minutes
Index: fetch.t
===================================================================
RCS file: /cvsroot/fink/fink/t/Engine/fetch.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- fetch.t 27 Jul 2006 08:03:17 -0000 1.1
+++ fetch.t 28 Sep 2007 14:14:15 -0000 1.2
@@ -62,14 +62,14 @@
foreach (sort keys %tests) {
@cmd = ('--dry-run', $_);
- capture sub { Fink::Engine::cmd_fetch(@cmd) }, \$output, \$output;
+ capture sub { $Fink::Mirror::failed_mirrors = {};
Fink::Engine::cmd_fetch(@cmd) }, \$output, \$output;
@expect = @{$tests{$_}->{sources}};
ok(
1 == (grep { $output eq $_ } @expect),
"fetch @cmd\n\tgave:\n--\n${output}--\n\texpected one
of:\n--\n".(join "--\n", @expect)."--\n"
);
@cmd = ('--dry-run', '-i', $_);
- capture sub { Fink::Engine::cmd_fetch(@cmd) }, \$output, \$output;
+ capture sub { $Fink::Mirror::failed_mirrors = {};
Fink::Engine::cmd_fetch(@cmd) }, \$output, \$output;
@expect = ("Ignoring $_ due to License: Restrictive\n") if
$tests{$_}->{restrictive};
ok(
1 == (grep { $output eq $_ } @expect),
@@ -78,7 +78,7 @@
}
@cmd = ('--dry-run');
-capture sub { Fink::Engine::cmd_fetch_all(@cmd) }, \$output, \$output;
+capture sub { $Fink::Mirror::failed_mirrors = {};
Fink::Engine::cmd_fetch_all(@cmd) }, \$output, \$output;
$out_save = $output;
foreach (sort keys %tests) {
@expect = @{$tests{$_}->{sources}};
@@ -93,7 +93,7 @@
);
@cmd = ('--dry-run', '-i');
-capture sub { Fink::Engine::cmd_fetch_all(@cmd) }, \$output, \$output;
+capture sub { $Fink::Mirror::failed_mirrors = {};
Fink::Engine::cmd_fetch_all(@cmd) }, \$output, \$output;
$out_save = $output;
foreach (sort keys %tests) {
@expect = @{$tests{$_}->{sources}};
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/t/Engine/ChangeLog,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ChangeLog 27 Jul 2006 08:03:17 -0000 1.1
+++ ChangeLog 28 Sep 2007 14:14:15 -0000 1.2
@@ -1,3 +1,8 @@
+2007-09-28 Benjamin Reed <[EMAIL PROTECTED]>
+
+ * fetch.t: reset $Fink::Mirror::failed_mirrors on each go since
+ it's caching multiply-failed mirrors.
+
2006-07-27 Daniel Macks <[EMAIL PROTECTED]>
* fetch.t: Test the output of the functions that implement the
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
