[108645] branches/gsoc13-tests/src/port1.0/tests/portfetch.tcl

[marius at macports.org]

Revision: 108645
          https://trac.macports.org/changeset/108645
Author:   marius at macports.org
Date:     2013-07-29 03:29:05 -0700 (Mon, 29 Jul 2013)
Log Message:
-----------
Removed portfetch.tcl from test dir

Removed Paths:
-------------
    branches/gsoc13-tests/src/port1.0/tests/portfetch.tcl

Deleted: branches/gsoc13-tests/src/port1.0/tests/portfetch.tcl
===================================================================
--- branches/gsoc13-tests/src/port1.0/tests/portfetch.tcl	2013-07-29 09:27:34 UTC (rev 108644)
+++ branches/gsoc13-tests/src/port1.0/tests/portfetch.tcl	2013-07-29 10:29:05 UTC (rev 108645)
@@ -1,58 +0,0 @@
-source [file join [lindex $argv 0] macports1.0 macports_fastload.tcl]
-package require macports
-mportinit
-
-set scriptdir [file dirname [info script]]
-source ${scriptdir}/../portfetch.tcl
-source ${scriptdir}/common.tcl
-
-namespace eval tests {
-
-proc "mirror tags are parsed correctly" {} {
-    global distfiles master_sites name dist_subdir filespath scriptdir
-
-    set name test
-    set filespath $scriptdir
-    set dist_subdir tset
-    set portfetch::mirror_sites::sites(macports_test) {
-        http://distfiles.macports.org/:mirror
-        http://distfiles2.macports.org:80/:mirror
-        http://distfiles3.macports.org:80/
-        http://distfiles4.macports.org:80/some/subdir/
-        http://distfiles5.macports.org:80/some/subdir/:mirror
-    }
-    set distfiles test.tar.bz2
-    set master_sites macports_test
-    set fetch_urls {}
-    portfetch::checksites [list master_sites {}] ""
-    portfetch::checkdistfiles fetch_urls
-
-    global portfetch::urlmap
-    foreach {url_var distfile} $fetch_urls {
-        if {![info exists urlmap($url_var)]} {
-            set urlmap($url_var) $urlmap(master_sites)
-        }
-        foreach site $urlmap($url_var) {
-            set file_url [portfetch::assemble_url $site $distfile]
-            lappend all_file_urls $file_url
-        }
-    }
-    set all_file_urls [lsort $all_file_urls]
-
-    set expected [list http://distfiles.macports.org/tset/test.tar.bz2 \
-                       http://distfiles2.macports.org:80/tset/test.tar.bz2 \
-                       http://distfiles3.macports.org:80/test/test.tar.bz2 \
-                       http://distfiles4.macports.org:80/some/subdir/test/test.tar.bz2 \
-                       http://distfiles5.macports.org:80/some/subdir/tset/test.tar.bz2]
-
-    test_equal {$all_file_urls} {$expected}
-}
-
-# run all tests
-foreach proc [info procs *] {
-    puts "* ${proc}"
-    $proc
-}
-
-# namespace eval tests
-}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130729/a6be5f4e/attachment.html>