Common subdirectories: tiobench-0.3.3/scripts and tiobench-0.3.3-r/scripts diff -Nup tiobench-0.3.3/tiobench.pl tiobench-0.3.3-r/tiobench.pl --- tiobench-0.3.3/tiobench.pl Thu Sep 16 13:24:02 2004 +++ tiobench-0.3.3-r/tiobench.pl Thu Sep 16 13:24:09 2004 @@ -21,6 +21,7 @@ sub usage { "[--help] (this help text)\n\t", "[--identifier IdentString] (use IdentString as identifier in output)\n\t", "[--nofrag] (don't write fragmented files)\n\t", + "[--raw] (use raw device defined with --dir)\n\t", "[--size SizeInMB]+\n\t", "[--numruns NumberOfRuns]+\n\t", "[--dir TestDir]+\n\t", @@ -37,7 +38,7 @@ sub usage { # look around for tiotest in different places my @tiotest_places=( '.', # current directory - '/usr/local/bin', # install target location + '/usr/sbin', # install target location split(':',$ENV{'PATH'}), # directories in current $PATH ($0 =~m#(.*)/#) # directory this script resides in ); @@ -66,7 +67,8 @@ my $rwrite_mbytes; my $rwrite_time; my $ my $read_mbytes; my $read_time; my $read_utime; my $read_stime; my $rread_mbytes; my $rread_time; my $rread_utime; my $rread_stime; my $num_runs; my $run_number; my $help; my $nofrag; -my $identifier; +my $identifier; my $rawdev; + # option parsing GetOptions("dir=s@",\@dirs, @@ -77,6 +79,7 @@ GetOptions("dir=s@",\@dirs, "numruns=i",\$num_runs, "help",\$help, "nofrag",\$nofrag, + "raw",\$rawdev, "threads=i@",\@threads); &usage if $help || $Getopt::Long::error; @@ -139,6 +142,7 @@ foreach $dir (@dirs) { my $run_string = "$tiotest -t $thread -f $thread_size ". "-r $thread_rand -b $block -d $dir -T"; $run_string .= " -W" if $nofrag; + $run_string .= " -R" if $rawdev; foreach $run_number (1..$num_runs) { my $prompt="Run #$run_number: $run_string"; print STDERR $prompt;