~ubuntu-branches/ubuntu/utopic/slic3r/utopic

« back to all changes in this revision

Viewing changes to xs/t/17_boundingbox.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

xs/t/17_boundingbox.t

 

1

#!/usr/bin/perl

 

2

 

 

3

use strict;

 

4

use warnings;

 

5

 

 

6

use Slic3r::XS;

 

7

use Test::More tests => 3;

 

8

 

 

9

{

 

10

    my @points = (

 

11

        Slic3r::Point->new(100, 200),

 

12

        Slic3r::Point->new(500, -600),

 

13

    );

 

14

    my $bb = Slic3r::Geometry::BoundingBox->new_from_points(\@points);

 

15

    isa_ok $bb, 'Slic3r::Geometry::BoundingBox', 'new_from_points';

 

16

    is_deeply $bb->min_point->pp, [100,-600], 'min_point';

 

17

    is_deeply $bb->max_point->pp, [500,200], 'max_point';

 

18

}

 

19

 

 

20

__END__

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1