14 lines
190 B
Plaintext
14 lines
190 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
my @tests;
|
||
|
|
|
||
|
|
if (@ARGV) {
|
||
|
|
@tests = @ARGV;
|
||
|
|
} else {
|
||
|
|
@tests=qw(t1.cue t2.cue t3.cue);
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $cue_file (@tests) {
|
||
|
|
system("../cueparser $cue_file");
|
||
|
|
}
|