Re: [PATCH] make 'perldb' work with test files in t/

[Ken Williams]

On Monday, January 20, 2003, at 04:45  PM, Michael G Schwern wrote:

On Sun, Jan 19, 2003 at 06:28:13PM -0600, Ken Williams wrote:

Currently 'make perldb' only works when you're using a test.pl, it
fails if you're using t/foo.t files.  The following patch fixes it, by
analogy with the 'test_dynamic' section.

<snip>

-    push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)',
-                                    '$(TEST_FILE)'));
+    push(@m, $self->test_via_harness('$(FULLPERLRUN) $(TESTDB_SW)',
'$(TEST_FILES)'))
+      if $tests;
+    push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)',
'$(TEST_FILE)'))
+      if -f "test.pl";

This looks like it will do the equivalent of:

    perl -dwle 'use Test::Harness; runtests @ARGV' t/*.t

which means the user will find themselves stepping through
Test::Harness::runtests() and not their tests.

That's true. Maybe set $ENV{HARNESS_PERL_SWITCHES}? Otherwise I think a fix would require a Test::Harness patch.

-Ken