02_object.t 251 B

123456789101112
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Slic3r::XS;
  5. use Test::More tests => 1;
  6. my $table = Slic3r::Object::XS::ZTable->new([ 10, 20, 30, 40, 50, 60, 70, 80, 90, 100 ]);
  7. is_deeply $table->get_range(39, 69), [2, 6], 'get_layer_range';
  8. __END__