git: e1c907ebd4a4 - main - www/websh: attempt to debug test-failures on Poudriere

The branch main has been updated by mi:

URL: https://cgit.FreeBSD.org/ports/commit/?id=e1c907ebd4a4d75bb973335fc5e1033556eccef2

commit e1c907ebd4a4d75bb973335fc5e1033556eccef2
Author:     Mikhail Teterin <mi@FreeBSD.org>
AuthorDate: 2023-05-02 02:52:17 +0000
Commit:     Mikhail Teterin <mi@FreeBSD.org>
CommitDate: 2023-05-02 02:54:26 +0000

    www/websh: attempt to debug test-failures on Poudriere
    
    When the tests succeed, they'll continue to succeed quietly.  However,
    when they fail -- as they've been doing during package-building for
    FreeBSD-14 for a few months now -- the output will now contain more
    information, which will, hopefully, allow me to fix them for good.
---
 www/websh/files/patch-debug-test | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/www/websh/files/patch-debug-test b/www/websh/files/patch-debug-test
new file mode 100644
index 000000000000..5816ed5ce588
--- /dev/null
+++ b/www/websh/files/patch-debug-test
@@ -0,0 +1,30 @@
+The two cookiecontext-tests fail repeatedly on Poudriere, but I'm
+unable to reproduce the failures on my own FreeBSD-14 box. These
+changes will make the test-failures more verbose, which might give
+me the clue necessary to fix them properly.
+--- ../tests/cookiecontext.test	2009-09-11 04:02:42.000000000 -0400
++++ ../tests/cookiecontext.test	2023-05-01 22:47:41.210491000 -0400
+@@ -52,6 +52,10 @@
+ 	set time [clock scan $timestring]
+ 	set result [expr {($now - $time) < 2}]
++        if {$result != 1} {
++            set result "$timestring: $now vs. $time"
++        }
++        set result
+     } else {
+-	set result 0
++	set result "Text: <<$text>>, Now: <<$now>>"
+     }
+ 
+@@ -86,6 +90,10 @@
+ 	set time [clock scan $timestring]
+ 	set result [expr {($now + 86400 - $time) < 2}]
++        if {$result != 1} {
++            set result "$timestring: $now vs. $time"
++        }
++        set result
+     } else {
+-	set result 0
++	set result "Text: <<$text1a>>, Now: <<$now>>"
+     }
+