| ︙ | | |
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
-
+
-
+
-
+
|
proc manifest_comment {comment} {
string map [list { } {\\s} \n {\\n} \r {\\r}] $comment
}
proc uuid_from_commit {res var} {
upvar $var UUID
regexp {^New_Version: ([0-9a-f]{40,64})$} $res m UUID
regexp {^New_Version: ([0-9a-f]{40})[0-9a-f]*$} $res m UUID
}
proc uuid_from_branch {res var} {
upvar $var UUID
regexp {^New branch: ([0-9a-f]{40,64})$} $res m UUID
regexp {^New branch: ([0-9a-f]{40})[0-9a-f]*$} $res m UUID
}
proc uuid_from_checkout {var} {
global RESULT
upvar $var UUID
fossil status
regexp {checkout:\s+([0-9a-f]{40,64})} $RESULT m UUID
regexp {checkout:\s+([0-9a-f]{40})} $RESULT m UUID
}
# Make sure we are not in an open repository and initialize new repository
test_setup
########################################
# Setup: Add file and commit #
|
| ︙ | | |
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
-
+
|
fossil timeline -n 1
test amend-bgcolor-1.$tc.c {
[string match "*Change*background*color*to*\"$result\"*" $RESULT]
}
if {[artifact_from_timeline $RESULT artid]} {
fossil artifact $artid
test amend-bgcolor-1.$tc.d {
[string match "*T +bgcolor $UUID $result*" $RESULT]
[string match "*T +bgcolor $UUID* $result*" $RESULT]
}
} else {
if {$VERBOSE} { protOut "No artifact found in timeline output" }
test amend-bgcolor-1.$tc.d false
}
}
fossil amend $UUID -bgcolor {}
|
| ︙ | | |
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
-
+
|
fossil timeline -n 1
test amend-branchcolor-1.3 {
[string match {*Change*branch*background*color*to*"yellow".*} $RESULT]
}
if {[regexp {(?x)[0-9]{2}(?::[0-9]{2}){2}\s+\[([0-9a-f]+)]} $RESULT m artid]} {
fossil artifact $artid
test amend-branchcolor-1.4 {
[string match "*T \*bgcolor $UUID2 yellow*" $RESULT]
[string match "*T \*bgcolor $UUID2* yellow*" $RESULT]
}
} else {
if {$VERBOSE} { protOut "No artifact found in timeline output" }
test amend-branchcolor-1.4 false
}
set UUIDN UUIDN
|
| ︙ | | |
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
|
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
|
-
+
|
test amend-comment-$name.1 {
[string match "*uuid:*$UUID*comment:*$comment*" $RESULT]
}
fossil timeline -n 1
if {[artifact_from_timeline $RESULT artid]} {
fossil artifact $artid
test amend-comment-$name.2 {
[string match "*T +comment $UUID *[manifest_comment $comment]*" $RESULT]
[string match "*T +comment $UUID* *[manifest_comment $comment]*" $RESULT]
}
} else {
if {$VERBOSE} { protOut "No artifact found in timeline output: $RESULT" }
test amend-comment-$name.2 false
}
fossil timeline -n 1
test amend-comment-$name.3 {
|
| ︙ | | |