As a followup, I have actually written said script (in perl), and would welcome any improvement comments. File size of the test file shouldn't matter, since without wear leveling, the same cells should get written over and over again.
Only thing I need to do now is run it for a long time... Unfortunately, I need
linux for that since we need to mount the drive sync. And I have no live CD in
the house... Ts. What have I come to?
Anyway, here's the script:
use strict;
use warnings;
use Digest::MD5;
use Getopt::Std;
use File::Basename;
use File::Spec;
use File::Copy;
my %opts;
getopts("d:i:",\%opts);
if (! $opts{d} || ! $opts{i}) {
die <<"EOF"
-d: Mountpoint of drive to be tested. Should be mounted with "sync" mount
option.
-i: Input file. Will be copied to mountpoint to test integrity.
Leave running for a long time to "test" your USB stick.
EOF
}
my $counter = 0;
my $originaldigest;
my $outfilename = File::Spec->catfile($opts{d},(fileparse($opts{i}))[0]);
my $digester = Digest::MD5->new();
open my $handle,"<$opts{i}";
binmode($handle);
$digester->addfile($handle);
close($handle);
$originaldigest = $digester->digest();
while (1) {
print "Running test $counter.\n";
copy($opts{i},$outfilename);
open my $outhandle,"<$outfilename";
binmode($outhandle);
$digester->addfile($outhandle);
if ($digester->digest() ne $originaldigest) {
die "Failed write at read $counter.\n";
}
close($outhandle);
unlink($outfilename);
$counter++;
}
--
thenybble.de/blog/ -- four bits at a time
pgp69UGUg3nle.pgp
Description: PGP signature
