# $Id: harness 17096 2007-02-20 20:20:48Z paultcochrane $

=head1 NAME

languages/regex/t/harness - A harness for Parrot bc

=head1 SYNOPSIS

  cd languages && perl -I../lib regex/t/harness --files

=head1 DESCRIPTION

If I'm called with a single
argument of "--files", I just return a list of files to process.
This list is one per line, and is relative to the languages dir.

=cut

use strict;
use lib '..';

use Cwd();
use Data::Dumper;
use File::Spec;
use Test::Harness();

my $language = 'regex';

if ( grep { m/^--files$/ } @ARGV ) {
    # Only the Makefile in 'parrot/languages' uses --files
    my $dir = File::Spec->catfile( $language, 't' );
    my @files = glob( File::Spec->catfile( $dir, '*', '*.t' ) );
    print join( "\n", @files );
    print "\n" if scalar(@files);
} else {
    die "Only '--files' is supported"; 
}

=head1 HISTORY

Mostly taken from bc/t/harness.

=head1 SEE ALSO

  F<languages/tcl/t/harness>, F<languages/scheme/t/harness>, F<languages/m4/t/harness>, F<languages/python/t/harness>

=head1 AUTHOR

Bernhard Schmalhofer - <Bernhard.Schmalhofer@gmx.de>

=cut
