Re: [gentoo-user] Re: jffs2 on gentoo

[Jan Seeger <jan.seeger@thenybble.de>]

[-- Attachment #1: Type: text/plain, Size: 1578 bytes --]

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

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]