Silence t/freeze.t

This commit is contained in:
Alessandro Ranellucci 2013-07-07 15:18:32 +02:00
parent 826e6c106d
commit b66a796f0b

View File

@ -16,12 +16,13 @@ use Time::HiRes qw(gettimeofday tv_interval);
my $t0 = [gettimeofday]; my $t0 = [gettimeofday];
my $print = Slic3r::Test::init_print('20mm_cube', scale => 2); my $print = Slic3r::Test::init_print('20mm_cube', scale => 2);
my $gcode = Slic3r::Test::gcode($print); my $gcode = Slic3r::Test::gcode($print);
diag sprintf 'Slicing took %s seconds', tv_interval($t0); ###diag sprintf 'Slicing took %s seconds', tv_interval($t0);
my $t1 = [gettimeofday]; my $t1 = [gettimeofday];
nstore $print, 'print.dat'; nstore $print, 'print.dat';
$print = retrieve 'print.dat'; $print = retrieve 'print.dat';
diag sprintf 'Freezing and retrieving took %s seconds', tv_interval($t1); unlink 'print.dat';
###diag sprintf 'Freezing and retrieving took %s seconds', tv_interval($t1);
isa_ok $print, 'Slic3r::Print', 'restored Print object'; isa_ok $print, 'Slic3r::Print', 'restored Print object';
} }