blob: 9e175df658443ff03bb3857961a786657e350cf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
$NetBSD: patch-ab,v 1.1 2007/01/11 19:08:48 drochner Exp $
--- test/corrupt2.test.orig 2007-01-11 15:51:25.000000000 +0100
+++ test/corrupt2.test
@@ -33,7 +33,7 @@ do_test corrupt2-1.2 {
file delete -force corrupt.db
file delete -force corrupt.db-journal
copy_file test.db corrupt.db
- set f [open corrupt.db a]
+ set f [open corrupt.db r+]
seek $f 8 start
puts $f blah
close $f
@@ -51,7 +51,7 @@ do_test corrupt2-1.3 {
file delete -force corrupt.db
file delete -force corrupt.db-journal
copy_file test.db corrupt.db
- set f [open corrupt.db a]
+ set f [open corrupt.db r+]
fconfigure $f -encoding binary
seek $f 16 start
puts -nonewline $f "\x00\xFF"
@@ -70,7 +70,7 @@ do_test corrupt2-1.4 {
file delete -force corrupt.db
file delete -force corrupt.db-journal
copy_file test.db corrupt.db
- set f [open corrupt.db a]
+ set f [open corrupt.db r+]
fconfigure $f -encoding binary
seek $f 101 start
puts -nonewline $f "\xFF\xFF"
@@ -89,7 +89,7 @@ do_test corrupt2-1.5 {
file delete -force corrupt.db
file delete -force corrupt.db-journal
copy_file test.db corrupt.db
- set f [open corrupt.db a]
+ set f [open corrupt.db r+]
fconfigure $f -encoding binary
seek $f 101 start
puts -nonewline $f "\x00\xC8"
|
