Tcl Source Code: Artifact [cf63ac14d3]

Artifact cf63ac14d3d20da21894345217568092033c6c42:

Attachment "ct.tcl" to ticket [1593707fff] added by melbardis 2006-11-10 02:35:00.
# test case for attempting simultaneous access to same file

package require Thread

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        after 10
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err2

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err3

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err4

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err5

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err6

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err7

catch {
    thread::create -preserved [subst -nocommands {
        # load the erlag i/f
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
        
        
        puts "thread exit"
        
        thread::release
    }]
} err8


      catch {
        package require stooop
        package require rrdtool
        package require ftpd
        package require csv
        package require ftp
        package require html
        package require math
    } terr

puts "err=$err terr=$terr"
vwait xxx