#! perl

# $Id: /parrotcode/trunk/languages/m4/t/harness 470 2006-12-05T03:30:45.414067Z svm  $

=head1 NAME

languages/m4/t/harness - A harness for Parrot m4

=head1 SYNOPSIS

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

  cd languages/m4 && perl -Ilib -I../../lib t/harness 

  cd languages/m4 && perl -Ilib -I../../lib t/harness \
                   t/basic/006_define_with_rest \
                   t/regex/003_two_compiles.t

=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.

If I'm called with no args, I run the complete suite.

Otherwise I run the tests that were passed on the command line.

=cut

use Parrot::Test::Harness language => 'm4';
