# $Id: /mirror/trunk/languages/eclectus/t/harness 27040 2008-04-19T12:48:18.095429Z bernhard  $

=head1 NAME

languages/eclectus/t/harness - A harness for Eclectus

=head1 SYNOPSIS

  cd languages/eclectus && perl t/harness

  cd languages && perl -I../lib eclectus/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.

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

# pragmata
use strict;
use warnings;
use 5.008;
use lib qw( ../lib ../../lib ../../lib );

use Parrot::Test::Harness
    language => 'eclectus',
    exec     => ($^O eq 'MSWin32')
              ? [ 'csi', '-R', 'alexpander', '-i', '-k', 'none', '-I', 'riaxpander',
		  '-e', '(load "chicken/prelude.scm")', '-s' ]
              : [ 'gosh', '-fcase-fold', '-I', '.',  '-I', 'riaxpander', '-l', 'gauche/prelude.scm' ],
    files    => [ 't/*.t' ];

=head1 SEE ALSO

  F<languages/perl6/t/harness>
  F<languages/t/harness>
  F<lib/Parrot/Test/Harness>

=cut
