<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>