diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-02 15:12:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-02 15:12:47 +0000 |
| commit | 54f45c29ffd76a941dd03fe5df68c5e990b2ee8d (patch) | |
| tree | 292b0df82466677ac950337bdfa7233421870cc3 | |
| parent | 5cfbcfcdc45b1cdd758241f7f02495ded7acc722 (diff) | |
| download | perl-54f45c29ffd76a941dd03fe5df68c5e990b2ee8d.tar.gz | |
Forgot to check in the -d: file.
p4raw-id: //depot/perl@19381
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | t/lib/Devel/switchd.pm | 6 | ||||
| -rw-r--r-- | t/run/switchd.t | 2 |
3 files changed, 8 insertions, 1 deletions
@@ -2462,6 +2462,7 @@ t/japh/abigail.t Obscure tests t/lib/1_compile.t See if the various libraries and extensions compile t/lib/commonsense.t See if configuration meets basic needs t/lib/compmod.pl Helper for 1_compile.t +t/lib/Devel/switchd.pm Module for t/run/switchd.t t/lib/dprof/test1_t Perl code profiler tests t/lib/dprof/test1_v Perl code profiler tests t/lib/dprof/test2_t Perl code profiler tests diff --git a/t/lib/Devel/switchd.pm b/t/lib/Devel/switchd.pm new file mode 100644 index 0000000000..b034364df2 --- /dev/null +++ b/t/lib/Devel/switchd.pm @@ -0,0 +1,6 @@ +package Devel::DevelTest; +use strict; BEGIN { } # use strict; BEGIN { ... } to incite [perl #21890] +package DB; +sub DB { print join(",", caller), ";" } +1; + diff --git a/t/run/switchd.t b/t/run/switchd.t index 83d4976b71..91efbef211 100644 --- a/t/run/switchd.t +++ b/t/run/switchd.t @@ -32,7 +32,7 @@ __SWDTEST__ push @tmpfiles, $filename; $| = 1; # Unbufferize. $r = runperl( - switches => [ '-Ilib', '-d:DevelTest' ], + switches => [ '-Ilib', '-d:switchd' ], progfile => $filename, ); like($r, qr/^main,swdtest.tmp,9;Foo,swdtest.tmp,5;Foo,swdtest.tmp,6;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Foo,swdtest.tmp,6;$/i); |