# New Ticket Created by Daniel Grunblatt # Please include the string: [perl #16690] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16690 >
This patch disables running the tests in t/src under a make testj. Apart from that, does anyone know why test doesn't run on OpenBSD? I get: ar: illegal option -- s usage: ar -d [-Tv] archive file ... ar -m [-Tv] archive file ... ar -m [-abiTv] position archive file ... ar -p [-Tv] archive [file ...] ar -q [-cTv] archive file ... ar -r [-cuTv] archive file ... ar -r [-abciuTv] position archive file ... ar -t [-Tv] archive [file ...] ar -x [-CouTv] archive [file ...] *** Error code 1 Daniel Grunblatt. -- attachment 1 ------------------------------------------------------ url: http://rt.perl.org/rt2/attach/35349/28632/5d0ee0/harness.patch
Index: t/harness =================================================================== RCS file: /cvs/public/parrot/t/harness,v retrieving revision 1.12 diff -u -r1.12 harness --- t/harness 15 Aug 2002 05:01:57 -0000 1.12 +++ t/harness 21 Aug 2002 14:04:54 -0000 @@ -17,6 +17,7 @@ $ENV{PARROT_QUICKTEST} = grep $_ eq 'quick', @ARGV; @ARGV = grep $_ ne 'quick', @ARGV; +my @dir = ($ENV{TEST_PROG_ARGS} =~ /j/) ? ( qw(op pmc) ) : ( qw(src op pmc) ); # Pass in a list of tests to run on the command line, else run all the tests. -my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } ( qw(src op pmc) ); +my @tests = @ARGV ? @ARGV : map { glob( "t/$_/*.t" ) } @dir; runtests(@tests);