Add the full source of BambuStudio

using version 1.0.10

xs/t/07_extrusionpath.t

@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Slic3r::XS;
+use Test::More tests => 7;
+
+my $points = [
+    [100, 100],
+    [200, 100],
+    [200, 200],
+];
+
+my $path = Slic3r::ExtrusionPath->new(
+    polyline => Slic3r::Polyline->new(@$points),
+    role     => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
+    mm3_per_mm => 1,
+);
+isa_ok $path->polyline, 'Slic3r::Polyline::Ref', 'path polyline';
+is_deeply $path->polyline->pp, $points, 'path points roundtrip';
+
+$path->reverse;
+is_deeply $path->polyline->pp, [ reverse @$points ], 'reverse path';
+
+$path->append([ 150, 150 ]);
+is scalar(@$path), 4, 'append to path';
+
+$path->pop_back;
+is scalar(@$path), 3, 'pop_back from path';
+
+ok $path->first_point->coincides_with($path->polyline->[0]), 'first_point';
+
+$path = $path->clone;
+
+is $path->role, Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER, 'role';
+
+__END__