[108621] branches/gsoc13-tests/src/port1.0/tests/portmain.test

[marius at macports.org]

Revision: 108621
          https://trac.macports.org/changeset/108621
Author:   marius at macports.org
Date:     2013-07-28 09:39:54 -0700 (Sun, 28 Jul 2013)
Log Message:
-----------
portmain.test: added test file

Added Paths:
-----------
    branches/gsoc13-tests/src/port1.0/tests/portmain.test

Added: branches/gsoc13-tests/src/port1.0/tests/portmain.test
===================================================================
--- branches/gsoc13-tests/src/port1.0/tests/portmain.test	                        (rev 0)
+++ branches/gsoc13-tests/src/port1.0/tests/portmain.test	2013-07-28 16:39:54 UTC (rev 108621)
@@ -0,0 +1,47 @@
+package require tcltest 2
+namespace import tcltest::*
+
+set pwd [file normalize $argv0]
+set pwd [eval file join {*}[lrange [file split $pwd] 0 end-1]]
+
+package require macports 1.0
+mportinit
+
+# Set testing vars
+set os_platform darwin
+set macosx_version 10.8
+set os_version 11
+set os_arch i386
+set portpath .
+set portbuildpath ./build
+
+proc getportworkpath_from_buildpath {portbuildpath} {
+    return [file join $portbuildpath work]
+}
+
+source ../portmain.tcl
+
+
+test get_default_subport {
+    Get default subport unit test.
+} -body {
+    set portpath path/port/subport
+    if {[portmain::get_default_subport] != "subport"} {
+	return "FAIL: wrong subport"
+    }
+    return "Get default subport successful."
+} -result "Get default subport successful."
+
+
+test get_subbuildpath {
+    Get subbuildpath unit test.
+} -body {
+    set portpath path/port/subport
+    if {[portmain::get_subbuildpath] != "./build/subport"} {
+	return "FAIL: wrong subbuildpath"
+    }
+    return "Get subbuild path successful."
+} -result "Get subbuild path successful."
+
+
+cleanupTests
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130728/2f097178/attachment.html>