[107501] branches/gsoc13-tests/tests/test/site-tags/test.tcl

[marius at macports.org]

Revision: 107501
          https://trac.macports.org/changeset/107501
Author:   marius at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130701/e98ad065/attachment.html>