tests/lock.test

   1 # This test file covers POSIX file locking
   2 #
   3 # This file contains a collection of tests for one or more of the Tcl built-in
   4 # commands. Sourcing this file into Tcl runs the tests and generates output
   5 # for errors.  No output means no errors were found.
   6 #
   7 # Copyright (c) 2003-2009 Donal K. Fellows
   8 # See the file "license.terms" for information on usage and redistribution of
   9 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10
  11 source [file dirname [info script]]/testing.tcl
  12
  13 needs constraint jim
  14 testConstraint aio.lock [expr {"lock" in [stdin -commands]}]
  15 needs constraint aio.lock
  16
  17 set fh [open locktest.file w]
  18
  19 test lock-1.1 {grab lock} {
  20         $fh lock
  21 } 1
  22
  23 test lock-1.2 {grab lock again} {
  24         $fh lock
  25 } 1
  26
  27 test lock-1.j {release lock} {
  28         $fh unlock
  29 } 1
  30
  31 test lock-1.4 {release lock again} {
  32         $fh unlock
  33 } 1
  34
  35 test lock-1.5 {grab lock from sub-process} {
  36         # Run a child process that grabs the lock for 0.5 seconds
  37         set pid [exec [info nameofexecutable] -e {set fh [open locktest.file r+]; $fh lock; sleep 0.5} >/dev/null &]
  38         sleep 0.1
  39         # Try to grab the lock - should fail
  40         set stat [$fh lock]
  41         sleep 0.5
  42         set stat
  43 } 0
  44
  45 $fh close
  46 file delete locktest.file
  47
  48 testreport