File: test3.tcl

package info (click to toggle)
hfsutils 3.1-4
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,408 kB
  • ctags: 1,340
  • sloc: ansic: 12,976; tcl: 1,894; makefile: 595; sh: 152; perl: 29
file content (13 lines) | stat: -rw-r--r-- 245 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#
# NAME:		test3
# DESCRIPTION:	create thousands of files
#
proc test3 {} {
    mkvol [expr 100 * 1024]	;# /usr/local/mirrors/image.hfs

    puts "Creating files ..."

    for {set i 0} {$i < 25000} {incr i} {
	hcreate [format "f%x" $i]
    }
}