Retro68/hfsutils/test/test3.tcl

14 lines
244 B
Tcl
Raw Normal View History

2012-03-29 08:28:43 +00:00
#
# 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]
}
}