<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/62d7125bae35cf251a5571eb26bedacfce1aa4e6">https://github.com/macports/macports-base/commit/62d7125bae35cf251a5571eb26bedacfce1aa4e6</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 62d7125  Factor out filename construction in package1.0
</span>62d7125 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 62d7125bae35cf251a5571eb26bedacfce1aa4e6
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu Jan 12 03:03:11 2017 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Factor out filename construction in package1.0
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    The different targets each had their own code for constructing the names of
</span><span style='display:block; white-space:pre;color:#404040;'>    the pkg/mpkg/dmg/mdmg files. As well as being repeated code, this led to
</span><span style='display:block; white-space:pre;color:#404040;'>    incompatibility in some cases. In particular, pkg used an underscore between
</span><span style='display:block; white-space:pre;color:#404040;'>    version and revision, but dmg expected a dash.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    All are now using one proc, portpkg::image_name.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Fixes: https://trac.macports.org/ticket/51136
</span>---
 src/package1.0/portdmg.tcl                 |  6 +----
 src/package1.0/portmdmg.tcl                | 16 +++++--------
 src/package1.0/portmpkg.tcl                | 37 +++++++-----------------------
 src/package1.0/portpkg.tcl                 | 19 ++++++++-------
 src/package1.0/tests/portarchivefetch.test |  6 ++---
 src/package1.0/tests/portdmg.test          |  5 ++--
 src/package1.0/tests/portmdmg.test         | 14 +++++------
 src/package1.0/tests/portmpkg.test         | 16 ++++++-------
 src/package1.0/tests/portpkg.test          | 10 ++++----
 9 files changed, 49 insertions(+), 80 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/portdmg.tcl b/src/package1.0/portdmg.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 035d544..e7aeca3 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/portdmg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/portdmg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -59,11 +59,7 @@ proc portdmg::package_dmg {portname portversion portrevision} {
</span>     global UI_PREFIX package.destpath portpath \
            os.platform os.arch os.version os.major
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[expr (${portrevision} > 0)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set imagename "${portname}-${portversion}-${portrevision}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set imagename "${portname}-${portversion}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set imagename [portpkg::image_name ${portname} ${portversion} ${portrevision}]
</span> 
     set tmp_image ${package.destpath}/${imagename}.tmp.dmg
     set final_image ${package.destpath}/${imagename}.dmg
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/portmdmg.tcl b/src/package1.0/portmdmg.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 7bc4870..5662161 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/portmdmg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/portmdmg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -44,7 +44,7 @@ namespace eval portmdmg {
</span> set_ui_prefix
 
 proc portmdmg::mdmg_main {args} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global subport epoch version revision package.destpath UI_PREFIX
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global subport version revision UI_PREFIX
</span> 
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating disk image for %s-%s"] ${subport} ${version}]"
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -52,22 +52,18 @@ proc portmdmg::mdmg_main {args} {
</span>           seteuid 0; setegid 0
        }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    return [package_mdmg $subport $epoch $version $revision]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return [package_mdmg $subport $version $revision]
</span> }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-proc portmdmg::package_mdmg {portname portepoch portversion portrevision} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+proc portmdmg::package_mdmg {portname portversion portrevision} {
</span>     global UI_PREFIX package.destpath portpath \
<span style='display:block; white-space:pre;background:#ffe0e0;'>-           os.platform os.arch os.version os.major
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+           os.arch os.major
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[expr (${portrevision} > 0)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set imagename "${portname}-${portversion}-${portrevision}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set imagename "${portname}-${portversion}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set imagename [portpkg::image_name ${portname} ${portversion} ${portrevision}]
</span> 
     set tmp_image ${package.destpath}/${imagename}.tmp.dmg
     set final_image ${package.destpath}/${imagename}.dmg
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set mpkgpath [portmpkg::mpkg_path $portname $portepoch $portversion $portrevision]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set mpkgpath [portmpkg::mpkg_path $portname $portversion $portrevision]
</span> 
     if {[file readable $final_image] && ([file mtime ${final_image}] >= [file mtime ${portpath}/Portfile])} {
         ui_msg "$UI_PREFIX [format [msgcat::mc "Disk Image for %s version %s is up-to-date"] ${portname} ${portversion}]"
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/portmpkg.tcl b/src/package1.0/portmpkg.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index f56e28b..9bc0a52 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/portmpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/portmpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -118,43 +118,22 @@ proc portmpkg::make_one_package {portname mport} {
</span>     }
 }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-proc portmpkg::epoch_namestr {portepoch} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portepoch_namestr ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {${portepoch} != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portepoch_namestr "${portepoch}_"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    return ${portepoch_namestr}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-proc portmpkg::revision_namestr {portrevision} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portrevision_namestr ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {${portrevision} != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portrevision_namestr "_${portrevision}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    return ${portrevision_namestr}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-proc portmpkg::mpkg_path {portname portepoch portversion portrevision} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+proc portmpkg::mpkg_path {portname portversion portrevision} {
</span>     global package.destpath
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portepoch_namestr [portmpkg::epoch_namestr ${portepoch}]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portrevision_namestr [portmpkg::revision_namestr ${portrevision}]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set mpkgpath ${package.destpath}/${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}.mpkg
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    return $mpkgpath
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return "${package.destpath}/[portpkg::image_name ${portname} ${portversion} ${portrevision}].mpkg"
</span> }
 
 proc portmpkg::package_mpkg {portname portepoch portversion portrevision} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global portdbpath os.major destpath workpath prefix porturl description package.destpath package.flat long_description homepage depends_run depends_lib
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.major destpath workpath prefix porturl description package.destpath package.flat long_description homepage
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set mpkgpath [portmpkg::mpkg_path $portname $portepoch $portversion $portrevision]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set mpkgpath [portmpkg::mpkg_path $portname $portversion $portrevision]
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portepoch_namestr [portmpkg::epoch_namestr ${portepoch}]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portrevision_namestr [portmpkg::revision_namestr ${portrevision}]
</span>     if {${package.flat} && ${os.major} >= 10} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set pkgpath ${package.destpath}/${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}-component.pkg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set pkgpath ${package.destpath}/[portpkg::image_name ${portname} ${portversion} ${portrevision}]-component.pkg
</span>         set packages_path ${workpath}/mpkg_packages
         set resources_path ${workpath}/mpkg_resources
     } else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set pkgpath ${package.destpath}/${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}.pkg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set pkgpath ${package.destpath}/[portpkg::image_name ${portname} ${portversion} ${portrevision}].pkg
</span>         set packages_path ${mpkgpath}/Contents/Packages
         set resources_path ${mpkgpath}/Contents/Resources
     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -190,9 +169,9 @@ proc portmpkg::package_mpkg {portname portepoch portversion portrevision} {
</span>         }
     }
     if {${package.flat} && ${os.major} >= 10} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        lappend dependencies org.macports.${portname} ${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}-component.pkg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        lappend dependencies org.macports.${portname} [portpkg::image_name ${portname} ${portversion} ${portrevision}]-component.pkg
</span>     } else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        lappend dependencies ${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}.pkg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        lappend dependencies [portpkg::image_name ${portname} ${portversion} ${portrevision}].pkg
</span>     }
 
     # copy our own pkg into the mpkg
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/portpkg.tcl b/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 9871708..b5bcbc2 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -119,16 +119,7 @@ proc portpkg::package_pkg {portname portepoch portversion portrevision} {
</span>     package.resources package.scripts portpkg::packagemaker \
     pkg_post_unarchive_deletions portpkg::language portpkg::pkgbuild
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portepoch_namestr ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {${portepoch} != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portepoch_namestr "${portepoch}_"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portrevision_namestr ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {${portrevision} != 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portrevision_namestr "_${portrevision}"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set pkgpath "${package.destpath}/${portname}-${portepoch_namestr}${portversion}${portrevision_namestr}.pkg"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set pkgpath "${package.destpath}/[image_name $portname $portversion $portrevision].pkg"
</span> 
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating pkg for %s version %s_%s_%s at %s"] ${portname} ${portepoch} ${portversion} ${portrevision} ${pkgpath}]"
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -241,6 +232,14 @@ proc portpkg::package_pkg {portname portepoch portversion portrevision} {
</span>     return 0
 }
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+proc portpkg::image_name {portname portversion portrevision} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set ret "${portname}-${portversion}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {${portrevision} != 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        append ret "_${portrevision}"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return $ret
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> proc portpkg::write_PkgInfo {infofile} {
     set infofd [open ${infofile} w+]
     puts $infofd "pmkrpkg1"
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/tests/portarchivefetch.test b/src/package1.0/tests/portarchivefetch.test
</span><span style='display:block; white-space:pre;color:#808080;'>index 6987b54..6a42234 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/tests/portarchivefetch.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/tests/portarchivefetch.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -26,7 +26,7 @@ namespace eval portutil {
</span> test filter_sites {
     Filter sites unit test.
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs name porturl portdbpath portpath workpath distname filespath license
     env_init
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -46,7 +46,7 @@ test filter_sites {
</span> test checkarchivefiles {
     Check archive files unit test.
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs name porturl portdbpath portpath workpath distname filespath license
     env_init
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -79,7 +79,7 @@ test fetchfiles {
</span> } -constraints {
     root
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs name porturl portdbpath portpath workpath distname filespath license
     env_init
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/tests/portdmg.test b/src/package1.0/tests/portdmg.test
</span><span style='display:block; white-space:pre;color:#808080;'>index 6de2a0e..c7bb58e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/tests/portdmg.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/tests/portdmg.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -14,6 +14,7 @@ array set ui_options {}
</span> mportinit ui_options
 
 package require portdmg 1.0
<span style='display:block; white-space:pre;background:#e0ffe0;'>+package require portpkg 1.0
</span> source ./library.tcl
 macports_worker_init
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -42,10 +43,10 @@ test package_dmg {
</span>     if {[portdmg::dmg_main] != 0} {
         return "FAIL: cannot create dmg"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $pwd/pkg/fondu-060102-1.dmg]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $pwd/pkg/fondu-060102_1.dmg]} {
</span>         return "FAIL: missing .dmg file"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $pwd/pkg/fondu-060102-1/fondu-060102.pkg]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $pwd/pkg/fondu-060102_1/fondu-060102.pkg]} {
</span>         return "FAIL: invalid package.destpath"
     }
     return "Package dmg successful."
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/tests/portmdmg.test b/src/package1.0/tests/portmdmg.test
</span><span style='display:block; white-space:pre;color:#808080;'>index 59aa08e..8867072 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/tests/portmdmg.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/tests/portmdmg.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -16,8 +16,9 @@ mportinit ui_options
</span> source ./library.tcl
 macports_worker_init
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-source ../portmdmg.tcl
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-source ../portmpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+package require portmdmg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+package require portmpkg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+package require portpkg
</span> source ../../port1.0/port_autoconf.tcl
 
 
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -33,23 +34,22 @@ test package_mdmg {
</span>     set os.arch i386
 
     set subport fondu
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set portepoch i386
</span>     set version 060102
     set revision 1
     set package.destpath $pwd/pkg
     set UI_PREFIX >
 
     file mkdir $pwd/pkg
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    close [open $pwd/pkg/fondu-i386_060102_1.mpkg w+]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    close [open $pwd/pkg/fondu-060102_1.mpkg w+]
</span> 
 } -body {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[portmdmg::package_mdmg $subport $portepoch $version $revision] != 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[portmdmg::package_mdmg $subport $version $revision] != 0} {
</span>         return "FAIL: cannot create mdmg"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $pwd/pkg/fondu-060102-1.dmg]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $pwd/pkg/fondu-060102_1.dmg]} {
</span>         return "FAIL: missing .dmg file"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $pwd/pkg/fondu-060102-1/fondu-i386_060102_1.mpkg]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $pwd/pkg/fondu-060102_1/fondu-060102_1.mpkg]} {
</span>         return "FAIL: invalid package.destpath"
     }
     return "Package dmg successful."
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/tests/portmpkg.test b/src/package1.0/tests/portmpkg.test
</span><span style='display:block; white-space:pre;color:#808080;'>index 49acad1..8c199a8 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/tests/portmpkg.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/tests/portmpkg.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -24,28 +24,28 @@ test mpkg_main {
</span> } -constraints {
     darwin
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs porturl
     env_init
 
     file mkdir $destpath
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    close [open $destpath/fondu-1_060102_1.pkg w+]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    close [open $destpath/fondu-060102_1.pkg w+]
</span> 
 } -body {
     if {[portmpkg::mpkg_main] != 0} {
         return "FAIL: cannot create pkg"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $destpath/fondu-1_060102_1.mpkg/Contents/PkgInfo]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $destpath/fondu-060102_1.mpkg/Contents/PkgInfo]} {
</span>         return "FAIL: missing PkgInfo file"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $destpath/fondu-1_060102_1.mpkg/Contents/Info.plist]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $destpath/fondu-060102_1.mpkg/Contents/Info.plist]} {
</span>         return "FAIL: missing Info.plist file"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $destpath/fondu-1_060102_1.mpkg/Contents/Resources]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $destpath/fondu-060102_1.mpkg/Contents/Resources]} {
</span>         return "FAIL: missing Resources dir"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![file exists $destpath/fondu-1_060102_1.mpkg/Contents/Packages/fondu-1_060102_1.pkg]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![file exists $destpath/fondu-060102_1.mpkg/Contents/Packages/fondu-060102_1.pkg]} {
</span>         return "FAIL: missing pkg file"
     }
     return "Package mpkg successful."
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -59,7 +59,7 @@ test mpkg_main {
</span> test make_dependency_list {
     Make dependency list unit test.
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs porturl
     env_init
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -90,8 +90,6 @@ test make_dependency_list {
</span> 
 # Covered by mpkg_main
 # test make_one_package
<span style='display:block; white-space:pre;background:#ffe0e0;'>-# test epoch_namestr
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# test revision_namestr
</span> # test package_mpkg
 
 
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/tests/portpkg.test b/src/package1.0/tests/portpkg.test
</span><span style='display:block; white-space:pre;color:#808080;'>index e81bcfd..dd36192 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/tests/portpkg.test
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/tests/portpkg.test
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -24,17 +24,17 @@ test pkg_main {
</span> } -constraints {
     root darwin
 } -setup {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global os.platform os.major os.arch epoch destpath package.destpath configure.build_arch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global os.platform os.major os.arch destpath package.destpath configure.build_arch
</span>     global subport version revision package.flat maintainers description categories
     global supported_archs porturl
     env_init
 
     file mkdir $destpath
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    close [open $destpath/fondu-1_060102_1.pkg w+]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    close [open $destpath/fondu-060102_1.pkg w+]
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set contents_dir $destpath/fondu-1_060102_1.mpkg/Contents/
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set packages_dir $destpath/fondu-1_060102_1.mpkg/Contents/Packages
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set res_dir $destpath/fondu-1_060102_1.mpkg/Contents/Resources
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set contents_dir $destpath/fondu-060102_1.mpkg/Contents/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set packages_dir $destpath/fondu-060102_1.mpkg/Contents/Packages
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set res_dir $destpath/fondu-060102_1.mpkg/Contents/Resources
</span> 
     set mport [mportopen file://.]
     set workername [ditem_key $mport workername]
</pre><pre style='margin:0'>

</pre>