Incomplete work for porting BoundingBox to XS

xs/t/17_boundingbox.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Slic3r::XS;
+use Test::More tests => 3;
+
+{
+    my @points = (
+        Slic3r::Point->new(100, 200),
+        Slic3r::Point->new(500, -600),
+    );
+    my $bb = Slic3r::Geometry::BoundingBox->new_from_points(\@points);
+    isa_ok $flow, 'Slic3r::Geometry::BoundingBox', 'new_from_points';
+    is_deeply $bb->min_point->pp, [100,-600], 'min_point';
+    is_deeply $bb->max_point->pp, [500,200], 'max_point';
+}
+
+__END__