Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-09-16 16:20:50 +02:00
Code Issues Releases Wiki Activity

Update Perl pipe-test.pl script.

Browse Source
This commit is contained in:
James Crook 2018-01-14 15:04:05 +00:00
parent 7fb5ec4b7a
commit f9f3da384c
1 changed files with 32 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
scripts/piped-work/pipe-test.pl
View File

@ -140,11 +140,11 @@ sub menuCommand{
# Send a command which requests a list of all available menu commands # Send a command which requests a list of all available menu commands
sub getMenuCommands{ sub getMenuCommands{
doCommand("GetAllMenuCommands: ShowStatus=0"); doCommand("GetMenus: ShowStatus=0");
} }
sub showMenuStatus{ sub showMenuStatus{
sendCommand("GetAllMenuCommands: ShowStatus=1"); sendCommand("GetMenus: ShowStatus=1");
my @resps = getResponses(); my @resps = getResponses();
map { print "$_\n"; } @resps; map { print "$_\n"; } @resps;
} }
@ -161,7 +161,7 @@ sub noSuchCommand{
sub parameterTest{ sub parameterTest{
# Set a non-existent parameter # Set a non-existent parameter
doCommand("GetAllMenuCommands: blah=2"); doCommand("GetMenus: blah=2");
# Parameter with no '=' # Parameter with no '='
doCommand("MenuCommand: CommandName"); doCommand("MenuCommand: CommandName");
} }
@ -197,7 +197,7 @@ sub help{
# Get help on all of the listed commands # Get help on all of the listed commands
sub fullHelp{ sub fullHelp{
my @cmds = qw(BatchCommand CompareAudio MenuCommand GetAllMenuCommands GetTrackInfo Help Message Screenshot Select SetTrackInfo); my @cmds = qw(BatchCommand CompareAudio MenuCommand GetMenus GetTrackInfo Help Message Screenshot Select SetTrackInfo);
foreach my $cmd (@cmds){ foreach my $cmd (@cmds){
help($cmd); help($cmd);
} }
@ -260,10 +260,38 @@ sub getTrackInfo{
sendCommand("GetTrackInfo: Type=EndTime TrackIndex=0"); sendCommand("GetTrackInfo: Type=EndTime TrackIndex=0");
@resps = getResponses(); @resps = getResponses();
my $endTime = shift(@resps); my $endTime = shift(@resps);
sendCommand("GetTrackInfo: Type=Pan TrackIndex=0");
@resps = getResponses();
my $pan = shift(@resps);
sendCommand("GetTrackInfo: Type=Gain TrackIndex=0");
@resps = getResponses();
my $gain = shift(@resps);
sendCommand("GetTrackInfo: Type=Mute TrackIndex=0");
@resps = getResponses();
my $mute = shift(@resps);
sendCommand("GetTrackInfo: Type=Solo TrackIndex=0");
@resps = getResponses();
my $solo = shift(@resps);
sendCommand("GetTrackInfo: Type=Selected TrackIndex=0");
@resps = getResponses();
my $selected = shift(@resps);
sendCommand("GetTrackInfo: Type=Focused TrackIndex=0");
@resps = getResponses();
my $focused = shift(@resps);
sendCommand("GetTrackInfo: Type=Linked TrackIndex=0");
@resps = getResponses();
my $linked = shift(@resps);
print " Name: $name\n"; print " Name: $name\n";
print "StartTime: $startTime\n"; print "StartTime: $startTime\n";
print " EndTime: $endTime\n"; print " EndTime: $endTime\n";
print " Pan: $pan\n";
print " Gain: $gain\n";
print " Mute: $mute\n";
print " Solo: $solo\n";
print " Selected: $selected\n";
print " Focused: $focused\n";
print " Linked: $linked\n";
} }
# Assortment of different tests # Assortment of different tests
@ -390,7 +418,6 @@ sub getEffects{
FadeIn FadeIn
FadeOut FadeOut
Invert Invert
Leveller
Normalize Normalize
Phaser Phaser
Repeat Repeat