package require tcltest 2
namespace import tcltest::*

set pwd [file normalize $argv0]
set pwd [eval file join {*}[lrange [file split $pwd] 0 end-1]]

source ../port_test_autoconf.tcl
source $macports::autoconf::macports_tcl_dir/macports1.0/macports_fastload.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

source ./library.tcl
macports_worker_init

source ../portdistcheck.tcl


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

    set name cocot
    set subport $name
    set distname cocot-20080315
    set porturl "http://distfiles.macports.org/cocot/"
    set master_sites $porturl
    set extract.suffix .tar.bz2

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