Remove t/freeze.t. #1352
This commit is contained in:
parent
37bf0fa53b
commit
fe94e31bda
30
t/freeze.t
30
t/freeze.t
@ -1,30 +0,0 @@
|
|||||||
use Test::More tests => 1;
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
|
|
||||||
BEGIN {
|
|
||||||
use FindBin;
|
|
||||||
use lib "$FindBin::Bin/../lib";
|
|
||||||
}
|
|
||||||
|
|
||||||
use Slic3r;
|
|
||||||
use Slic3r::Test;
|
|
||||||
use Storable qw(nstore retrieve);
|
|
||||||
use Time::HiRes qw(gettimeofday tv_interval);
|
|
||||||
|
|
||||||
{
|
|
||||||
my $t0 = [gettimeofday];
|
|
||||||
my $print = Slic3r::Test::init_print('20mm_cube', scale => 2);
|
|
||||||
my $gcode = Slic3r::Test::gcode($print);
|
|
||||||
###diag sprintf 'Slicing took %s seconds', tv_interval($t0);
|
|
||||||
|
|
||||||
my $t1 = [gettimeofday];
|
|
||||||
nstore $print, 'print.dat';
|
|
||||||
$print = retrieve 'print.dat';
|
|
||||||
unlink 'print.dat';
|
|
||||||
###diag sprintf 'Freezing and retrieving took %s seconds', tv_interval($t1);
|
|
||||||
|
|
||||||
isa_ok $print, 'Slic3r::Print', 'restored Print object';
|
|
||||||
}
|
|
||||||
|
|
||||||
__END__
|
|
Loading…
Reference in New Issue
Block a user