# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4

package require tcltest 2
namespace import tcltest::*

set pwd [file dirname [file normalize $argv0]]

source ../port_test_autoconf.tcl
package require macports 1.0

array set ui_options {}
#set ui_options(ports_debug)   yes
#set ui_options(ports_verbose) yes
mportinit ui_options

package require portdistcheck 1.0
source ./library.tcl
macports_worker_init


test distcheck_main {
    Distcheck main unit test.
} -setup {
    set portpath $pwd
    set filespath $pwd/files

    # dummy env values to satisfy mirror_sites.tcl
    set os.platform darwin
    set os.major 10

    set name gcc_select
    set subport $name
    set distname select-0.1
    set porturl "http://distfiles.macports.org/gcc_select/"
    set master_sites $porturl
    set extract.suffix .tar.gz

} -body {
    set fetch.type standard
    set distcheck.type moddate
    if {[portdistcheck::distcheck_main] != ""} {
        return "FAIL: unable to download or check file, type moddate"
    }
    set distcheck.type filesize
    if {[portdistcheck::distcheck_main] != ""} {
        return "FAIL: unable to download or check file, type filesize"
    }

    return "Distcheck main successful."
} -result "Distcheck main successful."


cleanupTests