Fixing bug that prevented -p option from working (user-specified path to test directory)

git-svn-id: svn://10.0.0.236/trunk@97872 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
pschwartau%netscape.com
2001-06-25 21:04:02 +00:00
parent b4d09e1c2f
commit f7667819bf

View File

@@ -807,7 +807,7 @@ sub expand_user_test_list {
my ($list_file) = @_;
my @retval = ();
if ($list_file =~ /\.js$/ || -d $list_file) {
if ($list_file =~ /\.js$/ || -d $opt_suite_path . $list_file) {
push (@retval, &expand_test_list_entry($list_file));
@@ -839,7 +839,7 @@ sub expand_user_test_list {
#
sub expand_test_list_entry {
my ($entry) = @_;
my $isFile = -f $entry;
my $isFile = -f $opt_suite_path . $entry;
my @retval;
#