Revision: 107501 https://trac.macports.org/changeset/107501 Author: marius@macports.org Date: 2013-07-01 10:55:14 -0700 (Mon, 01 Jul 2013) Log Message: ----------- Added site-tags test. Added Paths: ----------- branches/gsoc13-tests/tests/test/site-tags/test.tcl Added: branches/gsoc13-tests/tests/test/site-tags/test.tcl =================================================================== --- branches/gsoc13-tests/tests/test/site-tags/test.tcl (rev 0) +++ branches/gsoc13-tests/tests/test/site-tags/test.tcl 2013-07-01 17:55:14 UTC (rev 107501) @@ -0,0 +1,37 @@ +package require tcltest 2 +namespace import tcltest::* + +source [file dirname $argv0]/../library.tcl + +set file "output" +set dir "work" +set path [file dirname [file normalize $argv0]] + +proc sitetag {} { + global file + global path + + load_variables $path + set_dir + port_index + port_clean $path + port_run $path + + set err "error*" + set line [get_line $file $err] + return $line +} + +test site-tags { + Regression test for site-tags. +} -constraints { + root +} -body { + sitetag +} -result -1 + +removeFile $file +removeDirectory $dir + +cleanup +cleanupTests