mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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.
This commit is contained in:
parent
bb8b543a48
commit
7a3f940541
3 changed files with 4 additions and 215 deletions
|
@ -510,7 +510,6 @@ dist_patch_DATA = \
|
||||||
%D%/packages/patches/fltk-xfont-on-demand.patch \
|
%D%/packages/patches/fltk-xfont-on-demand.patch \
|
||||||
%D%/packages/patches/fontconfig-CVE-2016-5384.patch \
|
%D%/packages/patches/fontconfig-CVE-2016-5384.patch \
|
||||||
%D%/packages/patches/fontforge-svg-modtime.patch \
|
%D%/packages/patches/fontforge-svg-modtime.patch \
|
||||||
%D%/packages/patches/fossil-test-fixes.patch \
|
|
||||||
%D%/packages/patches/freeimage-CVE-2015-0852.patch \
|
%D%/packages/patches/freeimage-CVE-2015-0852.patch \
|
||||||
%D%/packages/patches/gawk-fts-test.patch \
|
%D%/packages/patches/gawk-fts-test.patch \
|
||||||
%D%/packages/patches/gawk-shell.patch \
|
%D%/packages/patches/gawk-shell.patch \
|
||||||
|
|
|
@ -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
|
|
||||||
}
|
|
|
@ -1148,37 +1148,16 @@ (define-public git-annex-remote-hubic
|
||||||
(define-public fossil
|
(define-public fossil
|
||||||
(package
|
(package
|
||||||
(name "fossil")
|
(name "fossil")
|
||||||
(version "1.34")
|
(version "1.35")
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(method url-fetch)
|
(method url-fetch)
|
||||||
;; Upstream source affected by
|
|
||||||
;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=20962
|
|
||||||
(uri (string-append
|
(uri (string-append
|
||||||
"https://web.archive.org/web/20160402202958/"
|
"https://www.fossil-scm.org/index.html/uv/download/"
|
||||||
"https://www.fossil-scm.org/download/fossil-src-"
|
"fossil-src-" version ".tar.gz"))
|
||||||
version ".tar.gz"))
|
|
||||||
(sha256
|
(sha256
|
||||||
(base32
|
(base32
|
||||||
"17x4vgjcfihwmq195qg32irp50panvjqfpvhqydfvv4ghwzbi9jk"))
|
"07ds6rhq69bhydpm9a01mgdhxf88p9b6y5hdnhn8gjc7ba92zyf1"))))
|
||||||
(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")))))
|
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("tcl" ,tcl) ;for configuration only
|
`(("tcl" ,tcl) ;for configuration only
|
||||||
|
|
Loading…
Reference in a new issue