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

Update default tests in pipe-test.pl for 2.2.2

Browse Source
This commit is contained in:
Steve Daulton 2018-01-21 23:20:32 +00:00
parent 2ee3ba5761
commit 76954f4bcd
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -227,9 +227,9 @@ sub deleteAll{
sub compareTest{ sub compareTest{
deleteAll(); deleteAll();
menuCommand("NewAudioTrack"); menuCommand("NewMonoTrack");
doCommand("Chirp:"); doCommand("Chirp:");
menuCommand("NewAudioTrack"); menuCommand("NewMonoTrack");
doCommand("Chirp:"); doCommand("Chirp:");
my $j = 0; my $j = 0;
@ -302,7 +302,7 @@ sub fullTest{
#screenshot($screenshotDir, "window", "None"); # (Slow) #screenshot($screenshotDir, "window", "None"); # (Slow)
doCommand("Select: Mode=All"); doCommand("Select: Mode=All");
getMenuCommands(); getMenuCommands();
menuCommand("NewAudioTrack"); menuCommand("NewMonoTrack");
batchFallback(); batchFallback();
help("Screenshot"); help("Screenshot");
message("Hello!"); message("Hello!");
@ -352,7 +352,9 @@ sub testClearAndPasters{
my $len = 20.0; my $len = 20.0;
# Since there aren't proper generator commands yet, we use the preferences # Since there aren't proper generator commands yet, we use the preferences
# to control the duration # to control the duration.
# This preferences is not read in Audacity 2.2.x where duration
# is read from pluginsettings.cfg
my $origDuration = getPref("/CsPresets/NoiseGen_Duration"); my $origDuration = getPref("/CsPresets/NoiseGen_Duration");
setPref("/CsPresets/NoiseGen_Duration", $len); setPref("/CsPresets/NoiseGen_Duration", $len);
@ -403,6 +405,8 @@ sub getEffects{
# Bass and Treble # Bass and Treble
# Repair # Repair
# NoiseRemoval # NoiseRemoval
# ClickRemoval
# Paulstretch
# TimeScale (disabled because it's so slow) # TimeScale (disabled because it's so slow)
@ -411,7 +415,6 @@ sub getEffects{
ChangePitch ChangePitch
ChangeSpeed ChangeSpeed
ChangeTempo ChangeTempo
ClickRemoval
Compressor Compressor
Echo Echo
Equalization Equalization
@ -428,11 +431,13 @@ sub getEffects{
return @effects; return @effects;
} }
# Create a chirp for an effect to be applied to # Create a chirp for an effect to be applied to.
# The duration setting does not work in Audacity 2.2.x where duration
# is read from pluginsettings.cfg
sub generateBase{ sub generateBase{
my $genCmd = "Chirp"; my $genCmd = "Chirp";
my $duration = 30.0; my $duration = 30.0;
menuCommand("NewAudioTrack"); menuCommand("NewMonoTrack");
doCommand("$genCmd:"); doCommand("$genCmd:");
my $desc = $genCmd . "-" . $duration . "s"; my $desc = $genCmd . "-" . $duration . "s";
return $desc; return $desc;