@@ -29,7 +29,7 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
2929 head -n 5 .node_files.tmp || echo "File .node_files.tmp is empty."; \
3030 echo "--- END DEBUG (awk) ---"; \
3131 echo "--- DEBUG: Attempting to derive subject names for this node... ---"; \
32- DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'chomp; s# ^lib/##; s#\.rb$$##; my @parts = split /\//; my $$result = ""; foreach my $$part (@parts) { $$part =~ s#_([a-z])#uc($$1)#eg; $$result .= "::" . ucfirst($$part); } $$result =~ s/^:: //; print "$$result\n"'); \
32+ DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'next unless /\S/; chomp; s# ^lib/##; s#\.rb$$##; my @parts = split /\//; my $$result = ""; foreach my $$part (@parts) { next unless $$part; $$part =~ s#_([a-z])#uc($$1)#eg; $$result .= ucfirst($$part) . "::" ; } $$result =~ s/::$$ //; print "$$result\n" if $$result && $$result !~ /^::/ '); \
3333 PERL_EXIT_CODE=$$?; \
3434 if [ $$PERL_EXIT_CODE -ne 0 ]; then \
3535 echo "ERROR: Perl command failed with exit code $$PERL_EXIT_CODE"; \
@@ -38,15 +38,14 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
3838 elif [ -z "$$DERIVED_NAMES" ]; then \
3939 echo "Perl command produced no output (expected if no files for node)."; \
4040 else \
41- echo "$$DERIVED_NAMES" | sed 's/^:://' ; \
41+ echo "$$DERIVED_NAMES"; \
4242 fi; \
4343 echo "--- END DEBUG (perl) ---"; \
44- DERIVED_NAMES_FILTERED=$$(echo "$$DERIVED_NAMES" | sed 's/^:://'); \
45- SUBJECT_ARGS=$$(echo "$$DERIVED_NAMES_FILTERED" | tr '\\n' ' '); \
44+ SUBJECT_ARGS=$$(echo "$$DERIVED_NAMES" | xargs); \
4645 if [ -z "$$SUBJECT_ARGS" ]; then \
4746 echo "No subjects derived for this node. Skipping."; \
4847 else \
49- echo "Attempting to run mutant for derived subjects: $$SUBJECT_ARGS"; \
48+ echo "Attempting to run mutant for derived subjects (mutant should apply its own ignore rules) : $$SUBJECT_ARGS"; \
5049 RAILS_ENV=test bundle exec mutant run $$SUBJECT_ARGS; \
5150 fi; \
5251 rm -f .all_files.tmp .node_files.tmp
0 commit comments