mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-01 11:52:47 +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]
|
||
|
}
|
||
|
}
|