<pre style='margin:0'>
Ryan Schmidt (ryandesign) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/0e3de7ca65f3946c42509cd0ffdf2e9588a32cf5">https://github.com/macports/macports-base/commit/0e3de7ca65f3946c42509cd0ffdf2e9588a32cf5</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 0e3de7ca Add modeline and fix whitespace in test.tcl
</span>0e3de7ca is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 0e3de7ca65f3946c42509cd0ffdf2e9588a32cf5
</span>Author: Ryan Schmidt <ryandesign@macports.org>
AuthorDate: Tue Jun 16 23:15:29 2020 -0500

<span style='display:block; white-space:pre;color:#404040;'>    Add modeline and fix whitespace in test.tcl
</span>---
 src/machista1.0/tests/test.tcl         | 50 ++++++++++++++++++----------------
 tests/test/svn-and-patchsites/test.tcl | 14 ++++++----
 2 files changed, 34 insertions(+), 30 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/machista1.0/tests/test.tcl b/src/machista1.0/tests/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 90121f4e..355f888f 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/machista1.0/tests/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/machista1.0/tests/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,34 +1,36 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> load ../machista.dylib
 
 if {$argc < 1} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        puts "Usage: $argv0 filename"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   exit 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    puts "Usage: $argv0 filename"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    exit 1
</span> }
 set h [machista::create_handle]
 
 for {set i 0} {$i < $argc} {incr i} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        puts [lindex $argv $i]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   set rlist [machista::parse_file $h [lindex $argv $i]]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   if {[lindex $rlist 0] == $machista::SUCCESS} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           set r [lindex $rlist 1]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           set a [$r cget -mt_archs]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           while {$a ne "NULL"} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   puts "     Architecture: [$a cget -mat_arch]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   puts "                      install name: [$a cget -mat_install_name]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   puts "                   current version: [machista::format_dylib_version [$a cget -mat_version]]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   puts "             compatibility version: [machista::format_dylib_version [$a cget -mat_comp_version]]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   set l [$a cget -mat_loadcmds]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                   while {$l ne "NULL"} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                           puts "                     [$l cget -mlt_install_name] (current version [machista::format_dylib_version [$l cget -mlt_version]], compatibility version [machista::format_dylib_version [$l cget -mlt_comp_version]])"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                           set l [$l cget -next]
</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 a [$a cget -next]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           puts "An error occured: [machista::strerror [lindex $rlist 0]]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    puts [lindex $argv $i]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set rlist [machista::parse_file $h [lindex $argv $i]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[lindex $rlist 0] == $machista::SUCCESS} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set r [lindex $rlist 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set a [$r cget -mt_archs]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        while {$a ne "NULL"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts "        Architecture: [$a cget -mat_arch]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts "                         install name: [$a cget -mat_install_name]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts "                      current version: [machista::format_dylib_version [$a cget -mat_version]]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            puts "                compatibility version: [machista::format_dylib_version [$a cget -mat_comp_version]]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set l [$a cget -mat_loadcmds]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            while {$l ne "NULL"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                puts "                        [$l cget -mlt_install_name] (current version [machista::format_dylib_version [$l cget -mlt_version]], compatibility version [machista::format_dylib_version [$l cget -mlt_comp_version]])"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set l [$l cget -next]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set a [$a cget -next]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        puts "An error occured: [machista::strerror [lindex $rlist 0]]"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span> }
 machista::destroy_handle $h
 
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tests/test/svn-and-patchsites/test.tcl b/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 51ba3592..62ebbfee 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tests/test/svn-and-patchsites/test.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,3 +1,5 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> package require tcltest 2
 package require lambda
 namespace import tcltest::*
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -8,17 +10,17 @@ set path [file dirname [file normalize $argv0]]
</span> initial_setup
 
 customMatch notGlob [lambda {needle haystack} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        puts "string match -nocase $needle"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   if {[string match -nocase $needle $haystack]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-           return 0
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-   return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    puts "string match -nocase $needle"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[string match -nocase $needle $haystack]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return 1
</span> }]
 
 test svn-patchsites {
     Regression test for svn-and-patchsites.
 } -body {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        return [exec -ignorestderr cat $path/$output_file]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return [exec -ignorestderr cat $path/$output_file]
</span> } -result "error*" -match notGlob
 
 
</pre><pre style='margin:0'>

</pre>