blob: b67eafb8a94b1414f6f6f69b2dbb2160c86791b8 (
plain) (
blame)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
--- tests/mmap_err.tcl 2008-04-12 19:45:49.000000000 -0400
+++ tests/mmap_err.tcl 2013-02-04 18:38:40.000000000 -0500
@@ -1,29 +1,10 @@
#!/usr/bin/tclsh
package require mmap
-set fd [open /tmp/messages r]
-set mp [mmap -length 30 -offset 4095 $fd]
-close $fd
-
-puts Gets:
-for {set i 0} {$i < 10} {incr i} {
- gets $mp line
- puts $line
+set fd [open messages r]
+if {[catch {mmap -length 30 -offset 4095 $fd} mp]} {
+ close $fd
+ puts "Using offset 4095 resulted in error ($mp), as expected. Good"
+} else {
+ puts "Offset 4095 should've caused an error. Test failed"
+ exit 1
}
-close $mp
-
-set fd [open /tmp/a r+]
-set mp [mmap -shared -length 30 $fd]
-close $fd
-
-flush $mp
-
-seek $mp 1
-puts -nonewline $mp alex
-seek $mp 0
-
-puts Read:
-puts [read $mp]
-
-puts [eof $mp]
-
-close $mp
--- tests/test_mem2.tcl 2008-04-21 08:34:42.000000000 -0400
+++ tests/test_mem2.tcl 2013-02-04 18:41:57.000000000 -0500
@@ -2,10 +2,10 @@
package require mmap
-catch { file copy tests/testfile tests/testfile1 }
-set fd [open tests/testfile1 r+]
+catch { file copy testfile testfile1 }
+set fd [open testfile1 r+]
set mp [mmap -shared -length 30 $fd]
close $fd
-while {1} {
+for {set i 0} {$i < 3} {incr i} {
flush $mp
@@ -23,3 +23,3 @@
close $mp
-file delete tests/testfile1
+file delete testfile1
--- tests/test_mem.tcl 2008-04-21 08:35:36.000000000 -0400
+++ tests/test_mem.tcl 2013-02-04 18:43:29.000000000 -0500
@@ -2,7 +2,7 @@
package require mmap
-while {1} {
-catch { file copy tests/testfile tests/testfile1 }
-set fd [open tests/testfile1 r+]
+for {set i 0} {$i < 3} {incr i} {
+catch { file copy testfile testfile1 }
+set fd [open testfile1 r+]
set mp [mmap -shared -length 30 $fd]
close $fd
@@ -21,4 +21,4 @@
close $mp
-file delete tests/testfile1
+file delete testfile1
}
|
