/[suikacvs]/messaging/manakai/bin/domts2perl.pl
Suika

Diff of /messaging/manakai/bin/domts2perl.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wakaba, Wed Jan 5 12:19:38 2005 UTC revision 1.5 by wakaba, Thu Oct 6 10:53:34 2005 UTC
# Line 6  my $dir; Line 6  my $dir;
6  my $out_dir;  my $out_dir;
7  my $file_pattern;  my $file_pattern;
8  my $domtest2perl = 'domtest2perl.pl';  my $domtest2perl = 'domtest2perl.pl';
9    my %Opt = (
10      test2perl_option => [],
11    );
12  GetOptions (  GetOptions (
13      'domtest2perl-option=s' => sub {
14        shift;
15        push @{$Opt{test2perl_option}}, shift;
16      },
17    'domtest2perl-path=s' => \$domtest2perl,    'domtest2perl-path=s' => \$domtest2perl,
18    'test-directory=s' => \$dir,    'test-directory=s' => \$dir,
19    'test-file-pattern=s' => \$file_pattern,    'test-file-pattern=s' => \$file_pattern,
# Line 26  for (grep {$_ ne 'alltests.xml'} grep /$ Line 33  for (grep {$_ ne 'alltests.xml'} grep /$
33    }    }
34    my @cmd = ('perl', map ({"-I$_"} @INC),    my @cmd = ('perl', map ({"-I$_"} @INC),
35               $domtest2perl, $in_file,               $domtest2perl, $in_file,
36               '--output-file' => $out_file);               '--output-file-name' => $out_file,
37    #print STDERR join " ", @cmd, "\n";               @{$Opt{test2perl_option}});
38      print STDERR join " ", @cmd, "\n";
39    print STDERR $in_file, "\n";    print STDERR $in_file, "\n";
40    print STDERR '-> ' . $out_file, "\n";    print STDERR '-> ' . $out_file, "\n";
41    system @cmd and die "$0: $domtest2perl: $@";    system @cmd and die "$0: $domtest2perl: $@";
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24