gnu: fossil: Update to 1.35.

* gnu/packages/version-control.scm (fossil): Update to 1.35.
[source]: Download from fossil-scm.org, remove patch, remove snippet.
* gnu/packages/patches/fossil-test-fixes.patch: Remove file.
* gnu/local.mk (dist_patch_DATA): Remove it.

2 files changed, 4 insertions, 214 deletions

diff --git a/gnu/packages/patches/fossil-test-fixes.patch b/gnu/packages/patches/fossil-test-fixes.patch
deleted file mode 100644
index e6c9f3dd74..0000000000
--- a/gnu/packages/patches/fossil-test-fixes.patch
+++ /dev/null
@@ -1,189 +0,0 @@
-From upstream commit https://www.fossil-scm.org/fossil/info/19c216391a0ad79e
-
---- fossil-src-1.34/test/file1.test
-+++ fossil-src-1.34/test/file1.test
-@@ -15,10 +15,12 @@
- #
- ############################################################################
- #
- # File utilities
- #
-+
-+repo_init
- 
- proc simplify-name {testname args} {
-   set i 1
-   foreach {path result} $args {
-     fossil test-simplify-name $path
-@@ -65,10 +67,13 @@
- 
- if {$::tcl_platform(os)=="Windows NT"} {
-   simplify-name 108 //?/a:/a/b a:/a/b //?/UNC/a/b //a/b //?/ {}
-   simplify-name 109 \\\\?\\a:\\a\\b a:/a/b \\\\?\\UNC\\a\\b //a/b \\\\?\\ {}
- }
-+
-+# This is needed because we are now running outside of the Fossil checkout.
-+file mkdir file1; cd file1
- 
- # Those directories are only needed for the testcase being able to "--chdir" to it.
- file mkdir test1
- file mkdir test1/test2
-
-From upstream commit https://www.fossil-scm.org/fossil/info/ad6de6383391bd4d
- 
---- fossil-src-1.34/test/utf.test
-+++ fossil-src-1.34/test/utf.test
-@@ -39,26 +39,29 @@
-     test utf-check-$testname.$i {$::RESULT eq $result}
-     incr i
-   }
- }
- 
-+unset -nocomplain enc
- array set enc [list     \
-       0 binary          \
-       1 binary          \
-       2 unicode         \
-       3 unicode-reverse \
- ]
- 
-+unset -nocomplain bom
- array set bom [list                                         \
-       0 ""                                                  \
-       1 \xEF\xBB\xBF                                        \
-       2 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \
-             "\xFF\xFE" : "\xFE\xFF"}]                       \
-       3 [expr {$tcl_platform(byteOrder) eq "littleEndian" ? \
-             "\xFE\xFF" : "\xFF\xFE"}]                       \
- ]
- 
-+unset -nocomplain data
- array set data [list                          \
-       0 ""                                    \
-       1 \r                                    \
-       2 \n                                    \
-       3 \r\n                                  \
-@@ -239,10 +242,11 @@
-     178 \xF4\x90\x80\x80\r                    \
-     179 \xF4\x90\x80\x80\n                    \
-     180 \xF4\x90\x80\x80\r\n                  \
- ]
- 
-+unset -nocomplain extraData
- array set extraData [list                     \
-       0 ""                                    \
-       1 Z                                     \
- ]
-
-Backport from upstream https://www.fossil-scm.org/fossil/info/60285f5876512817
-with additional non-zero exit in case of failures.
-
---- fossil-src-1.34/test/merge6.test
-+++ fossil-src-1.34/test/merge6.test
-@@ -62,6 +62,6 @@
- fossil ls
- 
- test merge_multi-4 {[normalize_result] eq {f1
- f2
- f3
--f4}}
-+f4}} knownBug
-
---- fossil-src-1.34/test/merge_renames.test
-+++ fossil-src-1.34/test/merge_renames.test
-@@ -156,13 +156,13 @@
- }
- 
- if {$deletes!=0} {
-     # failed
-     protOut "Error, the merge should not delete any file"
--    test merge_renames-2 0
-+    test merge_renames-3 0
- } else {
--    test merge_renames-2 1
-+    test merge_renames-3 1
- }
- 
- ######################################
- #  Test 4                            #
- #  Reported: Ticket [67176c3aa4]     #
-@@ -198,14 +198,14 @@
- 
- fossil ls
- 
- test merge_renames-5 {[normalize_result] eq {f1
- f2
--f3}}
-+f3}} knownBug
- 
- ######################################
- #
- # Tests for troubles not specifically linked with renames but that I'd like to
- # write:
- #  [c26c63eb1b] - 'merge --backout' does not handle conflicts properly
- #  [953031915f] - Lack of warning when overwriting extra files
- #  [4df5f38f1e] - Troubles merging a file delete with a file change
-
---- fossil-src-1.34/test/tester.tcl
-+++ fossil-src-1.34/test/tester.tcl
-@@ -58,10 +58,18 @@
-   set VERBOSE 1
-   set argv [lreplace $argv $i $i]
- } else {
-   set VERBOSE 0
- }
-+
-+set i [lsearch $argv -strict]
-+if {$i>=0} {
-+  set STRICT 1
-+  set argv [lreplace $argv $i $i]
-+} else {
-+  set STRICT 0
-+}
- 
- if {[llength $argv]==0} {
-   foreach f [lsort [glob $testdir/*.test]] {
-     set base [file root [file tail $f]]
-     lappend argv $base
-@@ -327,20 +335,30 @@
- }
- 
- # Perform a test
- #
- set test_count 0
--proc test {name expr} {
-+proc test {name expr {constraints ""}} {
-   global bad_test test_count
-   incr test_count
-+  set knownBug [expr {"knownBug" in $constraints}]
-   set r [uplevel 1 [list expr $expr]]
-   if {$r} {
--    protOut "test $name OK"
-+    if {$knownBug && !$::STRICT} {
-+      protOut "test $name OK (knownBug)?"
-+    } else {
-+      protOut "test $name OK"
-+    }
-   } else {
--    protOut "test $name FAILED!"
--    lappend bad_test $name
--    if {$::HALT} exit
-+    if {$knownBug && !$::STRICT} {
-+      protOut "test $name FAILED (knownBug)!"
-+    } else {
-+      protOut "test $name FAILED!"
-+      if {$::VERBOSE} {protOut "RESULT: $RESULT"}
-+      lappend bad_test $name
-+      if {$::HALT} exit
-+    }
-   }
- }
- set bad_test {}
- 
- # Return a random string N characters long.
-@@ -445,4 +455,5 @@
- protOut "***** Final result: $nErr errors out of $test_count tests"
- if {$nErr>0} {
-   protOut "***** Failures: $bad_test"
-+  exit 1
- }
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index e8f4874790..34cfedf4ed 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -1148,37 +1148,16 @@ repository\" with git-annex.")
 (define-public fossil
   (package
     (name "fossil")
-    (version "1.34")
+    (version "1.35")
     (source
      (origin
        (method url-fetch)
-       ;; Upstream source affected by
-       ;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=20962
        (uri (string-append
-             "https://web.archive.org/web/20160402202958/"
-             "https://www.fossil-scm.org/download/fossil-src-"
-             version ".tar.gz"))
+             "https://www.fossil-scm.org/index.html/uv/download/"
+             "fossil-src-" version ".tar.gz"))
        (sha256
         (base32
-         "17x4vgjcfihwmq195qg32irp50panvjqfpvhqydfvv4ghwzbi9jk"))
-       (modules '((guix build utils)))
-       (snippet
-        '(begin
-           ;; Commit 0a2ebe57 on 2015-08-03 18:35:53 changed output formatting
-           ;; for some commands, but affected tests were not updated.  Use
-           ;; substitute here, which is more concise than patching.
-           (substitute* "test/clean.test"
-             (("NEW ") "NEW    "))
-           (substitute* '("test/revert.test" "test/mv-rm.test")
-             (("REVERTED:") "REVERT  ")
-             (("DELETE:")   "DELETE  ")
-             (("UNMANAGE:") "UNMANAGE "))
-           ;; Fix use of __DATE__ and __TIME__
-           (substitute* "src/main.c"
-             (("Compiled on %s %s") "Compiled")
-             (("__DATE__, __TIME__, ") ""))
-           #t))
-       (patches (list (search-patch "fossil-test-fixes.patch")))))
+         "07ds6rhq69bhydpm9a01mgdhxf88p9b6y5hdnhn8gjc7ba92zyf1"))))
     (build-system gnu-build-system)
     (native-inputs
      `(("tcl" ,tcl)                     ;for configuration only