tests/test.tcl

   1 # XXX This actually creates a Unicode (UCS-2) array.  It's also rather
   2 # slow to run.  It's possible we should be using a list instead.
   3 set disk [string repeat "\u0000" [expr 1024*1024]]
   4
   5 proc plugin_open {readonly} {
   6     return 1
   7 }
   8
   9 proc get_size {h} {
  10     global disk
  11
  12     return [string length $disk]
  13 }
  14
  15 proc pread {h count offset} {
  16     global disk
  17
  18     set last [expr $offset+$count-1]
  19     return [string range $disk $offset $last]
  20 }
  21
  22 proc pwrite {h buf offset} {
  23     global disk
  24
  25     set count [string length $buf]
  26     set last [expr $offset+$count-1]
  27     set disk [string replace $disk $offset $last $buf]
  28 }