Skip to content

Commit

Permalink
Refactor 'make stresstest' to draw from t/spectest.data, and eliminat…
Browse files Browse the repository at this point in the history
…e t/stresstest.data . Add some documentation to t/spectest.data about the meanings of the various tags.
  • Loading branch information
pmichaud committed Jul 4, 2010
1 parent f0cf54e commit 0ba07fa
Show file tree
Hide file tree
Showing 4 changed files with 16 additions and 8 deletions.
6 changes: 3 additions & 3 deletions build/Makefile.in
Expand Up @@ -404,7 +404,7 @@ Test.pir: Test.pm perl6.pbc

test : coretest

fulltest: coretest spectest stresstest
fulltest: coretest stresstest

coretest: Test.pir $(PERL6_EXE)
PARROT=$(PARROT) $(PERL) t/harness t/00-parrot t/01-sanity t/02-embed
Expand All @@ -420,8 +420,8 @@ spectest_full: testable
quicktest: testable t/spectest.data
$(HARNESS_WITH_FUDGE_JOBS) --tests-from-file=t/spectest.data --long=0

stresstest: testable t/stresstest.data
$(HARNESS_WITH_FUDGE_JOBS) --tests-from-file=t/stresstest.data
stresstest: testable t/spectest.data
$(HARNESS_WITH_FUDGE_JOBS) --tests-from-file=t/spectest.data --stress=1

spectest_checkout : t/spec
t/spec :
Expand Down
8 changes: 6 additions & 2 deletions t/harness
Expand Up @@ -22,6 +22,7 @@ GetOptions(
'jobs:1' => \my $jobs,
'icu:1' => \my $do_icu,
'long:1' => \my $do_long,
'stress:0' => \my $do_stress,
'archive=s' => \my $archive,
'parrot_revision=s' => \my $parrot_revision,
);
Expand All @@ -38,8 +39,11 @@ if ($list_file) {
s/^\s+//;
s/\s+\z//;
my ($fn, $fudgespec) = split /\s+#\s*/;
next if ($fudgespec && ($fudgespec =~ m/icu/) && !$do_icu);
next if ($fudgespec && ($fudgespec =~ m/long/) && !$do_long);
if ($fudgespec) {
next if ($fudgespec =~ m/icu/) && !$do_icu;
next if ($fudgespec =~ m/long/) && !$do_long;
next if ($fudgespec =~ m/stress/) && !$do_stress;
}
$fn = "t/spec/$fn" unless $fn =~ m/^t\Q$slash\Espec\Q$slash\E/;
$fn =~ s{/}{$slash}g;
if ( -r $fn ) {
Expand Down
9 changes: 7 additions & 2 deletions t/spectest.data
Expand Up @@ -16,8 +16,12 @@
# S16-filehandles/unlink.t - regressed when spec changed (RT #68160)
# S07-iterators/range-iterator.t - regressed because conforms to obsolete version of spec
#
# moved to stresstest:
# integration/advent2009-day17.t
# Each file may have one or more markers that deselects the test:
# icu - run tests only if --icu=1 (default is 1)
# long - run tests only if --long=1 (default is 1)
# stress - run tests only if --stress=1 (default is 0)
# See the "make quicktest" and "make stresstest" targets in
# build/Makefile.in for examples of use.

integration/99problems-01-to-10.t
integration/99problems-11-to-20.t
Expand All @@ -41,6 +45,7 @@ integration/advent2009-day13.t
integration/advent2009-day14.t
integration/advent2009-day15.t
integration/advent2009-day16.t
integration/advent2009-day17.t # stress
integration/advent2009-day18.t
integration/advent2009-day19.t
integration/advent2009-day20.t
Expand Down
1 change: 0 additions & 1 deletion t/stresstest.data

This file was deleted.

0 comments on commit 0ba07fa

Please sign in to comment.