macports-base/tests/test/xcodeversion/test.tcl

package require tcltest 2
namespace import tcltest::*

source [file dirname $argv0]/../library.tcl
set path [file dirname [file normalize $argv0]]

initial_setup

proc xcode_ver {} {
    global output_file path

    set xcode "xcodeversion*"
    set line [get_line $path/$output_file $xcode]
    return $line
}

proc xcode_binpath {} {
    global output_file path

    set xcode "xcodebuildcmd*"
    set line [get_line $path/$output_file $xcode]
    return $line
}

test envvariables {
    Regression test for Xcode version.
} -constraints {
    darwin
} -body {
    xcode_ver
} -result "xcodeversion >= 2.1"

test xcode_path {
    Regression test for Xcode path.
} -constraints {
    darwin
} -body {
    xcode_binpath
} -result "xcodebuildcmd = /usr/bin/xcodebuild"


cleanup
cleanupTests