+ # speed calculations are a little tricky: BigInt * float comes out to NaN, so we
+ # cast the BigInts to float first
+ my $random_speed = ($stats->{RANDOM}->{BYTES} . "") / $stats->{RANDOM}->{TIME};
+ print STDERR "Wrote random (uncompressible) data at $random_speed bytes/sec\n";
+
+ # sock this away for make_tapetype's use
+ $device_speed_estimate = $random_speed;
+
+ # restart the device to clear any errors and rewind it
+ $device = open_device();