diff options
| author | stbuehler <stbuehler@152afb58-edef-0310-8abb-c4023f1b3aa9> | 2009-10-16 18:54:10 +0000 |
|---|---|---|
| committer | stbuehler <stbuehler@152afb58-edef-0310-8abb-c4023f1b3aa9> | 2009-10-16 18:54:10 +0000 |
| commit | c5557df984a80b9ef02f722b2fef3a918ae4e7df (patch) | |
| tree | 2ebdd2b34b213acd41d60d6cf497734985f06a11 | |
| parent | 4ca0d9c0fbe4c5ab2634f7e990ee6270c085b834 (diff) | |
| download | lighttpd-c5557df984a80b9ef02f722b2fef3a918ae4e7df.tar.gz | |
tests: improve test system (RUNTESTS, bt full)
git-svn-id: svn://svn.lighttpd.net/lighttpd/trunk@2663 152afb58-edef-0310-8abb-c4023f1b3aa9
| -rwxr-xr-x | tests/LightyTest.pm | 2 | ||||
| -rwxr-xr-x | tests/run-tests.pl | 7 |
2 files changed, 5 insertions, 4 deletions
diff --git a/tests/LightyTest.pm b/tests/LightyTest.pm index 84f246cf..ae84703b 100755 --- a/tests/LightyTest.pm +++ b/tests/LightyTest.pm @@ -117,7 +117,7 @@ sub start_proc { } elsif (defined $ENV{"TRACEME"} && $ENV{"TRACEME"} eq 'truss') { $cmdline = "truss -a -l -w all -v all -o strace ".$cmdline; } elsif (defined $ENV{"TRACEME"} && $ENV{"TRACEME"} eq 'gdb') { - $cmdline = "gdb --batch --ex 'run' --ex 'bt' --args ".$cmdline." > gdb.out"; + $cmdline = "gdb --batch -ex 'run' -ex 'bt full' --args ".$cmdline." > gdb.out"; } elsif (defined $ENV{"TRACEME"} && $ENV{"TRACEME"} eq 'valgrind') { $cmdline = "valgrind --tool=memcheck --show-reachable=yes --leak-check=yes --log-file=valgrind ".$cmdline; } diff --git a/tests/run-tests.pl b/tests/run-tests.pl index aacbdab0..3650d557 100755 --- a/tests/run-tests.pl +++ b/tests/run-tests.pl @@ -2,18 +2,19 @@ use strict; -use Test::Harness qw(&runtests $verbose); +use Test::Harness qw(&runtests $verbose); $verbose = (defined $ENV{'VERBOSE'} ? $ENV{'VERBOSE'} : 0); +my $tests = (defined $ENV{'RUNTESTS'} ? $ENV{'RUNTESTS'} : ''); my $srcdir = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.'); opendir DIR, $srcdir; my (@fs, $f); while ($f = readdir(DIR)) { - if ($f =~ /\.t$/) { + if ($f =~ /^(.*)\.t$/) { + next if ($tests ne '' and $tests !~ /(^|\s+)$1(\s+|$)/); push @fs, $srcdir.'/'.$f; } } closedir DIR; runtests @fs; - |