Fossil SCM

Exclude directories from file tests in the test suite. Fix an error in the release checklist.

drh 2011-02-08 12:52 trunk
Commit 6502627a3ec4b6782a572f61855659a4c41be875
--- test/delta1.test
+++ test/delta1.test
@@ -25,12 +25,12 @@
2525
# two files to make sure that deltas between these two files
2626
# work properly.
2727
#
2828
set filelist [glob $testdir/*]
2929
foreach f $filelist {
30
+ if {[file isdir $f]} continue
3031
set base [file root [file tail $f]]
31
-protOut "base=$base f=$f"
3232
set f1 [read_file $f]
3333
write_file t1 $f1
3434
for {set i 0} {$i<100} {incr i} {
3535
write_file t2 [random_changes $f1 1 1 0 0.1]
3636
fossil test-delta t1 t2
3737
--- test/delta1.test
+++ test/delta1.test
@@ -25,12 +25,12 @@
25 # two files to make sure that deltas between these two files
26 # work properly.
27 #
28 set filelist [glob $testdir/*]
29 foreach f $filelist {
 
30 set base [file root [file tail $f]]
31 protOut "base=$base f=$f"
32 set f1 [read_file $f]
33 write_file t1 $f1
34 for {set i 0} {$i<100} {incr i} {
35 write_file t2 [random_changes $f1 1 1 0 0.1]
36 fossil test-delta t1 t2
37
--- test/delta1.test
+++ test/delta1.test
@@ -25,12 +25,12 @@
25 # two files to make sure that deltas between these two files
26 # work properly.
27 #
28 set filelist [glob $testdir/*]
29 foreach f $filelist {
30 if {[file isdir $f]} continue
31 set base [file root [file tail $f]]
 
32 set f1 [read_file $f]
33 write_file t1 $f1
34 for {set i 0} {$i<100} {incr i} {
35 write_file t2 [random_changes $f1 1 1 0 0.1]
36 fossil test-delta t1 t2
37
--- test/merge2.test
+++ test/merge2.test
@@ -18,10 +18,11 @@
1818
# Tests of the delta mechanism.
1919
#
2020
2121
set filelist [glob $testdir/*]
2222
foreach f $filelist {
23
+ if {[file isdir $f]} continue
2324
set base [file root [file tail $f]]
2425
set f1 [read_file $f]
2526
write_file t1 $f1
2627
for {set i 0} {$i<100} {incr i} {
2728
expr {srand($i*2)}
2829
--- test/merge2.test
+++ test/merge2.test
@@ -18,10 +18,11 @@
18 # Tests of the delta mechanism.
19 #
20
21 set filelist [glob $testdir/*]
22 foreach f $filelist {
 
23 set base [file root [file tail $f]]
24 set f1 [read_file $f]
25 write_file t1 $f1
26 for {set i 0} {$i<100} {incr i} {
27 expr {srand($i*2)}
28
--- test/merge2.test
+++ test/merge2.test
@@ -18,10 +18,11 @@
18 # Tests of the delta mechanism.
19 #
20
21 set filelist [glob $testdir/*]
22 foreach f $filelist {
23 if {[file isdir $f]} continue
24 set base [file root [file tail $f]]
25 set f1 [read_file $f]
26 write_file t1 $f1
27 for {set i 0} {$i<100} {incr i} {
28 expr {srand($i*2)}
29
--- test/release-checklist.wiki
+++ test/release-checklist.wiki
@@ -4,11 +4,11 @@
44
official release.
55
66
<ol>
77
<li><p>
88
From a private directory (not the source tree) run
9
-"<b>tclsh $FOSSIL $SRC/test/tester.tcl</b>" where $FOSSIL is the
9
+"<b>tclsh $SRC/test/tester.tcl $FOSSIL</b>" where $FOSSIL is the
1010
name of the executable under test and $SRC is the source tree.
1111
Verify that there are no errors.
1212
1313
<li><p>
1414
Click on each of the links in in the
1515
--- test/release-checklist.wiki
+++ test/release-checklist.wiki
@@ -4,11 +4,11 @@
4 official release.
5
6 <ol>
7 <li><p>
8 From a private directory (not the source tree) run
9 "<b>tclsh $FOSSIL $SRC/test/tester.tcl</b>" where $FOSSIL is the
10 name of the executable under test and $SRC is the source tree.
11 Verify that there are no errors.
12
13 <li><p>
14 Click on each of the links in in the
15
--- test/release-checklist.wiki
+++ test/release-checklist.wiki
@@ -4,11 +4,11 @@
4 official release.
5
6 <ol>
7 <li><p>
8 From a private directory (not the source tree) run
9 "<b>tclsh $SRC/test/tester.tcl $FOSSIL</b>" where $FOSSIL is the
10 name of the executable under test and $SRC is the source tree.
11 Verify that there are no errors.
12
13 <li><p>
14 Click on each of the links in in the
15

Keyboard Shortcuts

Open search /
Next entry (timeline) j
Previous entry (timeline) k
Open focused entry Enter
Show this help ?
Toggle theme Top nav button