Commit 379348a8 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

unit tests: run perl TK debugger if DEBUG is set on command line

parent b0175bf1
......@@ -21,6 +21,10 @@ ifdef TESTCASE
include $(TESTCASE)
endif
ifdef DEBUG
PERL_DBG:=-d:ptkdb
endif
# Testcases are defined by the netlists in the netlist dir
NETLISTS=$(shell find $(NETLISTS_DIR) -maxdepth 1 -type f -iname '*.v')
......@@ -51,14 +55,14 @@ synthesis : $(SYNPLIFY_LOGS)
$(CONFIGURATIONS): $(CFGDIR)/%.cfg : $(NETLISTS_DIR)/%.v
@echo -ne "Configuring $(notdir $(basename $<)) ...\r\e[$(STAT_COLS)C"
@perl ../../../bin/fiji_setup.pl -n "$<" -s "$@" > /dev/null && echo -e "[\e[32mOK\e[0m]" || \
@perl $(PERL_DBG) ../../../bin/fiji_setup.pl -n "$<" -s "$@" > /dev/null && echo -e "[\e[32mOK\e[0m]" || \
{ echo -e "[\e[31mFAILED\e[0m]" ; }
# ------------------------------------------------------ Instrumentation
$(INSTRUMENTED_NETLISTS): $(INSTRUMENT_DIR)/%/test_instrumented.vqm : $(NETLISTS_DIR)/%.v $(CFGDIR)/%.cfg $(INSTRUMENT_PERL)
@echo -ne "Instrumenting $(notdir $(basename $<)) ...\r\e[$(STAT_COLS)C"
@perl ../../../bin/fiji_instrument.pl -n "$<" -s "$(CFGDIR)/$(basename $(notdir $<)).cfg" -o $(@D) -p test > /dev/null && echo -e "[\e[32mOK\e[0m]" || \
perl $(PERL_DBG) ../../../bin/fiji_instrument.pl -n "$<" -s "$(CFGDIR)/$(basename $(notdir $<)).cfg" -o $(@D) -p test > /dev/null && echo -e "[\e[32mOK\e[0m]" || \
{ echo -e "[\e[31mFAILED\e[0m]" ; }
# ------------------------------------------------------ Synthesis Check
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment