Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-15 15:49:36 +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{
deleteAll();
menuCommand("NewAudioTrack");
menuCommand("NewMonoTrack");
doCommand("Chirp:");
menuCommand("NewAudioTrack");
menuCommand("NewMonoTrack");
doCommand("Chirp:");
my $j = 0;
@ -302,7 +302,7 @@ sub fullTest{
#screenshot($screenshotDir, "window", "None"); # (Slow)
doCommand("Select: Mode=All");
getMenuCommands();
menuCommand("NewAudioTrack");
menuCommand("NewMonoTrack");
batchFallback();
help("Screenshot");
message("Hello!");
@ -352,7 +352,9 @@ sub testClearAndPasters{
my $len = 20.0;
# 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");
setPref("/CsPresets/NoiseGen_Duration", $len);
@ -403,6 +405,8 @@ sub getEffects{
# Bass and Treble
# Repair
# NoiseRemoval
# ClickRemoval
# Paulstretch
# TimeScale (disabled because it's so slow)
@ -411,7 +415,6 @@ sub getEffects{
ChangePitch
ChangeSpeed
ChangeTempo
ClickRemoval
Compressor
Echo
Equalization
@ -428,11 +431,13 @@ sub getEffects{
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{
my $genCmd = "Chirp";
my $duration = 30.0;
menuCommand("NewAudioTrack");
menuCommand("NewMonoTrack");
doCommand("$genCmd:");
my $desc = $genCmd . "-" . $duration . "s";
return $desc;