# Copyright (C) 2006-2007, The Perl Foundation.
# $Id: fetchspec 24491 2008-01-03 18:15:38Z particle $

=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/spec/S03-operators
    t/spec/S02-literals
);

foreach my $srcfile (@spectests) {
    my $tgtfile = $srcfile;
    $tgtfile =~ s!^t/(spec/)?!!;

    my $dirname = dirname($tgtfile);
    mkpath "t/spec/$dirname";
    my $svncmd = 
      "svn export --force http://svn.pugscode.org/pugs/$srcfile t/spec/$tgtfile";
    print "$svncmd\n";
    system($svncmd);
}

exit(0);

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:


