mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-25 14:34:29 +00:00
14 lines
244 B
Tcl
14 lines
244 B
Tcl
#
|
|
# 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]
|
|
}
|
|
}
|