sigh. And fix escaping slashes in the URL.
Index: languages/perl6/t/fetchspec =================================================================== --- languages/perl6/t/fetchspec (revision 20380) +++ languages/perl6/t/fetchspec (working copy) @@ -1,52 +0,0 @@ -# Copyright (C) 2006-2007, The Perl Foundation. -# $Id$ - -=head1 NAME - -fetchspec - retrieve selected tests from Pugs test repo - -=head1 SYNOPSIS - -This script uses svn to retrieve selected tests from the -Perl 6 test repository (currently at http://svn.pugscode.org/t). - -This script expects to be called from the languages/perl6/ -directory. - -=cut - -use strict; -use File::Path; -use File::Basename qw(dirname); - -my @spectests = qw( - t/01-sanity - t/operators/auto.t - t/operators/bit.t - t/operators/cond.t - t/operators/context_forcers.t - t/operators/eq.t - t/operators/relational.t - t/builtins/math/trig.t -); - -foreach my $tfile (@spectests) { - $tfile =~ s!^t/!!; - my $dirname = dirname($tfile); - mkpath "t/spec/$dirname"; - my $svncmd = - "svn export --force http://svn.pugscode.org/pugs/t/$tfile t/spec/$tfile"; - print "$svncmd\n"; - system($svncmd); -} - -exit(0); - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 100 -# End: -# vim: expandtab shiftwidth=4: - - Index: languages/perl6/config/makefiles/root.in =================================================================== --- languages/perl6/config/makefiles/root.in (revision 20380) +++ languages/perl6/config/makefiles/root.in (working copy) @@ -107,14 +107,23 @@ # this target has nothing to do testclean: +SPECTESTS = \ + t/spec/01-sanity \ + t/spec/operators/auto.t \ + t/spec/operators/bit.t \ + t/spec/operators/cond.t \ + t/spec/operators/context_forcers.t \ + t/spec/operators/eq.t \ + t/spec/operators/relational.t \ + t/spec/builtins/math/trig.t \ + spectest: all t/spec # XXX when tests pass, run more here. - @echo "only running sanity tests..." - $(PERL) t/harness t/spec/01-sanity t/spec/operators t/spec/builtins \ - t/spec/builtins/math + @echo "Running subset of perl6 test suite..." + $(PERL) t/harness $(SPECTESTS) t/spec: - $(PERL) t/fetchspec + svn export --force http:////svn.pugscode.org/pugs/t t/spec CLEANUPS = \ perl6.pbc \
