1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
#!/usr/bin/octave -qf
## Audacity Octave unit test runner
#
# Max Maisel
#
if !(nargin == 1 || nargin == 2)
printf("Usage: ./testbench.m <test-file.m> [-v]\n");
exit(2);
end
arg_list = argv();
if exist(arg_list{1}, "file") != 2
printf("Specified test file does not exist!\n");
exit(2);
end
global VERBOSE;
VERBOSE=0;
if nargin == 2
if strcmp(arg_list{2}, "-v") == 1
VERBOSE=1;
else
printf("Unknown argument %s. Abort!", arg_list{2});
exit(2);
end
end
## Initialization and helper functions
UID=num2str(getuid());
PIPE_TO_PATH=strcat("/tmp/audacity_script_pipe.to.", UID);
PIPE_FROM_PATH=strcat("/tmp/audacity_script_pipe.from.", UID);
TMP_FILENAME=strcat(pwd(), "/tmp.wav");
printf("Open scripting pipes, this may freeze if Audacity does not run...\n");
global PIPE_TO;
global PIPE_FROM;
global PRINT_COMMANDS;
PRINT_COMMANDS=false;
PIPE_TO=fopen(PIPE_TO_PATH, "w");
PIPE_FROM=fopen(PIPE_FROM_PATH, "r");
## aud-do helper function
function aud_do(command)
global PIPE_TO;
global PIPE_FROM;
global PRINT_COMMANDS;
if PRINT_COMMANDS
puts(command);
end
fwrite(PIPE_TO, command);
fflush(PIPE_TO);
do
string = fgets(PIPE_FROM);
if PRINT_COMMANDS
puts(string);
end
fflush(stdout);
until strncmp(string, "BatchCommand finished:", length("BatchCommand finished:"));
end
## Selection helper functions
function remove_all_tracks()
aud_do("SelectTracks: Track=0 TrackCount=100 Mode=Set\n");
aud_do("RemoveTracks:\n");
end
function select_tracks(num, count)
aud_do("Select: Start=0 Mode=Set\n");
aud_do("SelCursorToTrackEnd:\n");
aud_do(sprintf("SelectTracks: Track=%d TrackCount=%d Mode=Set\n", num, count));
end
## Float equal comparison helper
function [ret] = float_eq(x, y, eps=0.001)
ret = abs(x - y) < eps;
end
## Test report helper
global TESTS_FAILED;
global TESTS_RUN;
global TESTS_SKIPPED;
global CURRENT_TEST;
TESTS_FAILED = 0;
TESTS_RUN = 0;
TESTS_SKIPPED = 0;
CURRENT_TEST="";
function plot_failure(x, y)
global VERBOSE;
if VERBOSE == 0
return;
end
figure(1)
plot(x, 'r')
hold on
plot(y, 'b')
plot(log10(abs(x-y)), 'g')
hold off
legend("Audacity", "Octave", "log-delta", "location", "southeast")
input("Press enter to continue", "s")
end
function do_test_equ(x, y, msg, eps=0.001, skip = false)
cmp = all(all(float_eq(x, y, eps)));
if do_test(cmp, msg, skip) == 0
plot_failure(x, y);
end
end
function do_test_neq(x, y, msg, eps=0.001, skip = false)
cmp = all(all(!float_eq(x, y, eps)));
if do_test(cmp, msg, skip) == 0
plot_failure(x, y);
end
end
function do_test_gte(x, y, msg, skip = false)
cmp = all(all(x >= y));
if do_test(cmp, msg, skip) == 0
plot_failure(x, y);
end
end
function do_test_lte(x, y, msg, skip = false)
cmp = all(all(x <= y));
if do_test(cmp, msg, skip) == 0
plot_failure(x, y);
end
end
function result = do_test(result, msg, skip = false)
global TESTS_RUN;
global TESTS_FAILED;
global TESTS_SKIPPED;
global CURRENT_TEST;
TESTS_RUN = TESTS_RUN + 1;
ANSI_COLOR_RED = "\x1b[31m";
ANSI_COLOR_GREEN = "\x1b[32m";
ANSI_COLOR_YELLOW = "\x1b[33m";
ANSI_COLOR_RESET = "\x1b[0m";
suffix = "";
if !strcmp(msg, "")
suffix = cstrcat(" - ", msg);
end
if skip
TESTS_SKIPPED = TESTS_SKIPPED + 1;
printf(ANSI_COLOR_YELLOW);
printf(cstrcat("[Skip]: ", CURRENT_TEST, suffix, "\n"));
printf(ANSI_COLOR_RESET);
result = 1;
else
if result
printf(ANSI_COLOR_GREEN);
printf(cstrcat("[Success]: ", CURRENT_TEST, suffix, "\n"));
printf(ANSI_COLOR_RESET);
return;
else
TESTS_FAILED = TESTS_FAILED + 1;
printf(ANSI_COLOR_RED);
printf(cstrcat("[Failed]: ", CURRENT_TEST, suffix, "\n"));
printf(ANSI_COLOR_RESET);
return;
end
end
end
## Run tests
printf("Starting tests...\n");
source(arg_list{1});
## Cleanup and result reporting
unlink(TMP_FILENAME);
fclose(PIPE_FROM);
fclose(PIPE_TO);
printf("%d tests run, %d tests failed, %d tests skipped\n", TESTS_RUN, TESTS_FAILED, TESTS_SKIPPED);
if TESTS_FAILED != 0
printf("Some tests failed!\n");
if VERBOSE == 0
printf("Re-run with -v option for details.\n");
end
exit(1);
elseif TESTS_SKIPPED != 0
printf("Some tests were skipped!\n");
else
printf("All tests succeeded!\n");
end
exit(0)
|
