5 languages/scheme/t/harness - A harness for scheme
9 cd languages && perl -I../lib scheme/t/harness --files
11 cd languages && perl -I../lib scheme/t/harness
13 cd languages && perl -I../lib scheme/t/harness \
14 scheme/t/logic/basic.t \
15 scheme/t/logic/defines.t
19 If I'm called with a single
20 argument of "--files", I just return a list of files to process.
21 This list is one per line, and is relative to the languages dir.
23 If I'm called with no args, I run the complete suite.
25 Otherwise I run the tests that were passed on the command line.
31 use lib "$FindBin::Bin/../../../lib", "$FindBin::Bin/..";;
37 my $language = 'scheme';
39 if ( grep { m/^--files$/ } @ARGV ) {
40 # Only the Makefile in 'parrot/languages' uses --files
41 my $dir = File::Spec->catfile( $language, 't' );
42 my @files = glob( File::Spec->catfile( $dir, '*', '*.t' ) );
43 print join( "\n", @files );
44 print "\n" if scalar(@files);
47 if ( scalar(@ARGV) ) {
48 # Someone specified tests for me to run.
49 @files = grep { -f $_ } @ARGV
51 ( undef, undef, my $current_dir ) = File::Spec->splitpath( Cwd::getcwd() );
52 if ( $current_dir eq 'languages' ) {
53 @files = glob( File::Spec->catfile( $language, 't', '*', '*.t' ) );
55 elsif ( $current_dir eq $language ) {
56 @files = glob( File::Spec->catfile( 't', '*', '*.t' ) );
59 Test::Harness::runtests( @files ) if scalar( @files );
64 F<languages/tcl/t/harness>, F<languages/scheme/t/harness>, F<languages/m4/t/harness>, F<languages/python/t/harness>