Browse files

Add unit test to check that nested config options work

  • Loading branch information...
1 parent 15f0719 commit db754dca4d8fb2811b5c89e0a6a6e485a1aca019 @alexrj committed Dec 23, 2012
Showing with 34 additions and 23 deletions.
  1. +34 −23 t/custom_gcode.t
View
57 t/custom_gcode.t
@@ -1,4 +1,4 @@
-use Test::More tests => 1;
+use Test::More tests => 2;
use strict;
use warnings;
@@ -10,32 +10,43 @@ BEGIN {
use Slic3r;
use Slic3r::Test;
-my $config = Slic3r::Config->new_from_defaults;
-
-my $test = sub {
- my ($conf) = @_;
- $conf ||= $config;
-
- my $print = Slic3r::Test::init_print('2x20x10', config => $conf);
+{
+ my $config = Slic3r::Config->new_from_defaults;
- my $last_move_was_z_change = 0;
- Slic3r::Test::GCodeReader->new(gcode => Slic3r::Test::gcode($print))->parse(sub {
- my ($self, $cmd, $args, $info) = @_;
+ my $test = sub {
+ my ($conf) = @_;
+ $conf ||= $config;
+
+ my $print = Slic3r::Test::init_print('2x20x10', config => $conf);
- if ($last_move_was_z_change && $cmd ne $config->layer_gcode) {
- fail 'custom layer G-code was not applied after Z change';
- }
- if (!$last_move_was_z_change && $cmd eq $config->layer_gcode) {
- fail 'custom layer G-code was not applied after Z change';
- }
+ my $last_move_was_z_change = 0;
+ Slic3r::Test::GCodeReader->new(gcode => Slic3r::Test::gcode($print))->parse(sub {
+ my ($self, $cmd, $args, $info) = @_;
+
+ if ($last_move_was_z_change && $cmd ne $config->layer_gcode) {
+ fail 'custom layer G-code was not applied after Z change';
+ }
+ if (!$last_move_was_z_change && $cmd eq $config->layer_gcode) {
+ fail 'custom layer G-code was not applied after Z change';
+ }
+
+ $last_move_was_z_change = (defined $info->{dist_Z} && $info->{dist_Z} > 0);
+ });
- $last_move_was_z_change = (defined $info->{dist_Z} && $info->{dist_Z} > 0);
- });
+ 1;
+ };
- 1;
-};
+ $config->set('layer_gcode', '_MY_CUSTOM_GCODE_');
+ ok $test->(), "custom layer G-code is applied after Z move and before other moves";
+}
+
+#==========================================================
-$config->set('layer_gcode', '_MY_CUSTOM_GCODE_');
-ok $test->(), "custom layer G-code is applied after Z move and before other moves";
+{
+ my $config = Slic3r::Config->new_from_defaults;
+ is $config->replace_options('[temperature_[foo]]', { foo => '0' }),
+ 200,
+ "nested config options";
+}
__END__

0 comments on commit db754dc

Please sign in to comment.