[111315] branches/gsoc13-tests/src/port1.0/tests/portutil.test

[marius at macports.org]

Revision: 111315
          https://trac.macports.org/changeset/111315
Author:   marius at macports.org
Date:     2013-09-18 13:56:58 -0700 (Wed, 18 Sep 2013)
Log Message:
-----------
port1.0: fixed get_portimage_path and get_portimage_name

Modified Paths:
--------------
    branches/gsoc13-tests/src/port1.0/tests/portutil.test

Modified: branches/gsoc13-tests/src/port1.0/tests/portutil.test
===================================================================
--- branches/gsoc13-tests/src/port1.0/tests/portutil.test	2013-09-18 20:50:15 UTC (rev 111314)
+++ branches/gsoc13-tests/src/port1.0/tests/portutil.test	2013-09-18 20:56:58 UTC (rev 111315)
@@ -759,14 +759,18 @@
 test get_portimage_name {
     Get portimage name unit test.
 } -body {
+	set os.platform darwin
     set version 1.0
     set os.major 10
+	set revision 2
     set configure.build_arch no
     set portarchivetype tgz
     set subport testport
+	set portvariants {var1}
+	set supported_archs {}
 
     set res [get_portimage_name]
-    if {$res != "testport-1.0_0.darwin_10.no.tgz"} {
+    if {$res != "testport-1.0_2var1.darwin_10.no.tgz"} {
 		return "FAIL: invalid portimage_name"
     }
     return "Get portimage_name successful."
@@ -776,11 +780,15 @@
 test get_portimage_path {
     Get portimage path unit test. Calls get_portimage_name.
 } -body {
+	set os.platform darwin
     set portdbpath dbpath
     set subport subport
+	set revision 2
+	set portvariants {var1}
+	set supported_archs {}
 
     set res [get_portimage_path]
-    if {$res != "dbpath/software/subport/subport-1.0_0.darwin_10.no.tgz"} {
+    if {$res != "dbpath/software/subport/subport-1.0_2var1.darwin_10.no.tgz"} {
 		return "FAIL: invalid portimage_path"
     }
     return "Get portimage_path successful."
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130918/56cd2861/attachment.html>