diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2011-10-02 13:57:47 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2011-10-02 13:57:47 +0400 |
commit | a311220c19d16ae402531651c73af993871b556c (patch) | |
tree | e8a5e2de7f7f375439f11fd1601f4ea4187c767d /t/clean_polylines.t | |
parent | 21d287504c336620c34c08300ed09ebd103f1df7 (diff) |
New build script to install dependencies automatically
Diffstat (limited to 't/clean_polylines.t')
-rw-r--r-- | t/clean_polylines.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/clean_polylines.t b/t/clean_polylines.t index d8f2269b7..e1188d9cf 100644 --- a/t/clean_polylines.t +++ b/t/clean_polylines.t @@ -49,10 +49,10 @@ my $gear = [ ]; $polyline = Slic3r::Polyline::Closed->cast($gear); $polyline->merge_continuous_lines; -diag sprintf "original points: %d\nnew points: %d", scalar(@$gear), scalar(@{$polyline->points}); -ok (@{$polyline->points} < @$gear), 'gear was simplified using merge_continuous_lines'; +note sprintf "original points: %d\nnew points: %d", scalar(@$gear), scalar(@{$polyline->points}); +ok @{$polyline->points} < @$gear, 'gear was simplified using merge_continuous_lines'; my $num_points = scalar @{$polyline->points}; $polyline->cleanup; -diag sprintf "original points: %d\nnew points: %d", $num_points, scalar(@{$polyline->points}); -ok (@{$polyline->points} < $num_points), 'gear was further simplified using Douglas-Peucker'; +note sprintf "original points: %d\nnew points: %d", $num_points, scalar(@{$polyline->points}); +ok @{$polyline->points} < $num_points, 'gear was further simplified using Douglas-Peucker'; |