20_print.t 457 B

123456789101112131415161718
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Slic3r::XS;
  5. use Test::More tests => 5;
  6. {
  7. my $print = Slic3r::Print->new;
  8. isa_ok $print, 'Slic3r::Print';
  9. isa_ok $print->config, 'Slic3r::Config::Static::Ref';
  10. isa_ok $print->default_object_config, 'Slic3r::Config::Static::Ref';
  11. isa_ok $print->default_region_config, 'Slic3r::Config::Static::Ref';
  12. isa_ok $print->placeholder_parser, 'Slic3r::GCode::PlaceholderParser::Ref';
  13. }
  14. __END__