bump version to 7.3-2

[pve-cluster.git] / data / cts / create_many_files.pl

#!/usr/bin/perl -w

use strict;
use POSIX;
use File::Path qw(make_path remove_tree);
use IO::File;

my (undef, $nodename) = POSIX::uname();

sub safe_mkdir {
    my $dir = shift;
    (mkdir $dir) || die "safe_mkdir $dir failed - $!\n";
}

sub create_file {
    my ($filename) = shift;

    my $fh = new IO::File $filename, O_RDWR|O_CREAT|O_EXCL;
    die "cant create file $filename - $!" if !defined $fh;

    #my $data = "$filename\n" x 30;
    my $data = "0" x 2048;

    (print $fh $data) || die "write $filename failed\n";
    close ($fh);

    #system("cat $filename");
    #system("df -h /etc/pve");
}

my $testdir = "/etc/pve/manyfilestest/";

remove_tree($testdir);

safe_mkdir $testdir;

for (my $i = 0; $i < 100; $i++) {

    safe_mkdir "$testdir/$i";

    for (my $j = 0; $j < 90; $j++) {
	create_file("$testdir/$i/test$j.dat");
    }
}