From 9f61e10cf9b266d5f71d7308a13494a402a9ae69 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 08:05:45 +0000
Subject: Unbreak build
---
generic/tclResult.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/generic/tclResult.c b/generic/tclResult.c
index 086659e..5b7a8e5 100644
--- a/generic/tclResult.c
+++ b/generic/tclResult.c
@@ -488,7 +488,7 @@ const char *
Tcl_GetStringResult(
Tcl_Interp *interp)/* Interpreter whose result to return. */
{
-#ifdef TCL_NO_DEPRECATED
+#ifndef TCL_NO_DEPRECATED
Interp *iPtr = (Interp *) interp;
/*
* If the string result is empty, move the object result to the string
--
cgit v0.12
From 16ddac314c8cbe5935c50f879e159e6bdbb1f4ae Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 08:15:50 +0000
Subject: eol-spacing
---
unix/tclKqueueNotfy.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/unix/tclKqueueNotfy.c b/unix/tclKqueueNotfy.c
index 7cacde2..ab3732d 100644
--- a/unix/tclKqueueNotfy.c
+++ b/unix/tclKqueueNotfy.c
@@ -528,7 +528,7 @@ TclpCreateFileHandler(
filePtr->mask = mask;
PlatformEventsControl(filePtr, tsdPtr, EV_ADD, isNew);
-}
+}
/*
*----------------------------------------------------------------------
--
cgit v0.12
From 87508b74e0b2d6107e965261b582f9a0653d8160 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 08:20:54 +0000
Subject: missing constraint
---
tests/append.test | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tests/append.test b/tests/append.test
index 7d895b7..242b1a2 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -65,15 +65,15 @@ test append-3.6 {append surrogates} -body {
set x \uDE02
set x \uD83D$x
} -result \uD83D\uDE02
-test append-3.7 {append \xC0 \x80} -body {
+test append-3.7 {append \xC0 \x80} -constraints testbytestring -body {
set x [testbytestring \xC0]
string length [append x [testbytestring \x80]]
} -result 2
-test append-3.8 {append \xC0 \x80} -body {
+test append-3.8 {append \xC0 \x80} -constraints testbytestring -body {
set x [testbytestring \xC0]
string length $x[testbytestring \x80]
} -result 2
-test append-3.9 {append \xC0 \x80} -body {
+test append-3.9 {append \xC0 \x80} -constraints testbytestring -body {
set x [testbytestring \x80]
string length [testbytestring \xC0]$x
} -result 2
--
cgit v0.12
From f23820c00b1bede53a938764c7d231434d60f15d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 09:13:58 +0000
Subject: Missing ::tcltest::loadTestedCommands
---
tests/append.test | 1 +
tests/binary.test | 2 ++
2 files changed, 3 insertions(+)
diff --git a/tests/append.test b/tests/append.test
index 242b1a2..0708fc5 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -15,6 +15,7 @@ if {"::tcltest" ni [namespace children]} {
package require tcltest 2.5
namespace import -force ::tcltest::*
}
+::tcltest::loadTestedCommands
unset -nocomplain x
test append-1.1 {append command} {
diff --git a/tests/binary.test b/tests/binary.test
index 36e31ce..6cd209d 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -14,6 +14,8 @@ if {"::tcltest" ni [namespace children]} {
package require tcltest 2.5
namespace import -force ::tcltest::*
}
+::tcltest::loadTestedCommands
+
testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]
testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]
testConstraint testbytestring [llength [info commands testbytestring]]
--
cgit v0.12
From 06464aa3be62088cc3c99fc744dd28e8413958d5 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 13 Apr 2021 10:01:37 +0000
Subject: Missing ::tcltest::loadTestedCommands
---
tests/binary.test | 3 +++
1 file changed, 3 insertions(+)
diff --git a/tests/binary.test b/tests/binary.test
index 07ecf6f..15c0b28 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -14,6 +14,9 @@ if {"::tcltest" ni [namespace children]} {
package require tcltest 2.5
namespace import -force ::tcltest::*
}
+::tcltest::loadTestedCommands
+catch {package require -exact Tcltest [info patchlevel]}
+
testConstraint bigEndian [expr {$tcl_platform(byteOrder) eq "bigEndian"}]
testConstraint littleEndian [expr {$tcl_platform(byteOrder) eq "littleEndian"}]
--
cgit v0.12