1 /* Copyright (c) 2011-2013 Xiph.Org Foundation
2 Written by Gregory Maxwell */
3 /*
4 Redistribution and use in source and binary forms, with or without
5 modification, are permitted provided that the following conditions
6 are met:
7
8 - Redistributions of source code must retain the above copyright
9 notice, this list of conditions and the following disclaimer.
10
11 - Redistributions in binary form must reproduce the above copyright
12 notice, this list of conditions and the following disclaimer in the
13 documentation and/or other materials provided with the distribution.
14
15 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
16 ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
17 LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
18 A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
19 OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
20 EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
21 PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
22 PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
23 LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
24 NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
25 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 */
27
28 #ifdef HAVE_CONFIG_H
29 #include "config.h"
30 #endif
31
32 #include <stdio.h>
33 #include <stdlib.h>
34 #include <limits.h>
35 #include <stdint.h>
36 #include <math.h>
37 #include <string.h>
38 #include <time.h>
39 #if (!defined WIN32 && !defined _WIN32) || defined(__MINGW32__)
40 #include <unistd.h>
41 #else
42 #include <process.h>
43 #define getpid _getpid
44 #endif
45 #include "opus.h"
46 #include "test_opus_common.h"
47
48 #define MAX_PACKET (1500)
49 #define MAX_FRAME_SAMP (5760)
50
test_decoder_code0(int no_fuzz)51 int test_decoder_code0(int no_fuzz)
52 {
53 static const opus_int32 fsv[5]={48000,24000,16000,12000,8000};
54 int err,skip,plen;
55 int out_samples,fec;
56 int t;
57 opus_int32 i;
58 OpusDecoder *dec[5*2];
59 opus_int32 decsize;
60 OpusDecoder *decbak;
61 opus_uint32 dec_final_range1,dec_final_range2,dec_final_acc;
62 unsigned char *packet;
63 unsigned char modes[4096];
64 short *outbuf_int;
65 short *outbuf;
66
67 dec_final_range1=dec_final_range2=2;
68
69 packet=malloc(sizeof(unsigned char)*MAX_PACKET);
70 if(packet==NULL)test_failed();
71
72 outbuf_int=malloc(sizeof(short)*(MAX_FRAME_SAMP+16)*2);
73 for(i=0;i<(MAX_FRAME_SAMP+16)*2;i++)outbuf_int[i]=32749;
74 outbuf=&outbuf_int[8*2];
75
76 fprintf(stdout," Starting %d decoders...\n",5*2);
77 for(t=0;t<5*2;t++)
78 {
79 int fs=fsv[t>>1];
80 int c=(t&1)+1;
81 err=OPUS_INTERNAL_ERROR;
82 dec[t] = opus_decoder_create(fs, c, &err);
83 if(err!=OPUS_OK || dec[t]==NULL)test_failed();
84 fprintf(stdout," opus_decoder_create(%5d,%d) OK. Copy ",fs,c);
85 {
86 OpusDecoder *dec2;
87 /*The opus state structures contain no pointers and can be freely copied*/
88 dec2=(OpusDecoder *)malloc(opus_decoder_get_size(c));
89 if(dec2==NULL)test_failed();
90 memcpy(dec2,dec[t],opus_decoder_get_size(c));
91 memset(dec[t],255,opus_decoder_get_size(c));
92 opus_decoder_destroy(dec[t]);
93 printf("OK.\n");
94 dec[t]=dec2;
95 }
96 }
97
98 decsize=opus_decoder_get_size(1);
99 decbak=(OpusDecoder *)malloc(decsize);
100 if(decbak==NULL)test_failed();
101
102 for(t=0;t<5*2;t++)
103 {
104 int factor=48000/fsv[t>>1];
105 for(fec=0;fec<2;fec++)
106 {
107 int dur;
108 /*Test PLC on a fresh decoder*/
109 out_samples = opus_decode(dec[t], 0, 0, outbuf, 120/factor, fec);
110 if(out_samples!=120/factor)test_failed();
111 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
112 if(dur!=120/factor)test_failed();
113
114 /*Test on a size which isn't a multiple of 2.5ms*/
115 out_samples = opus_decode(dec[t], 0, 0, outbuf, 120/factor+2, fec);
116 if(out_samples!=OPUS_BAD_ARG)test_failed();
117
118 /*Test null pointer input*/
119 out_samples = opus_decode(dec[t], 0, -1, outbuf, 120/factor, fec);
120 if(out_samples!=120/factor)test_failed();
121 out_samples = opus_decode(dec[t], 0, 1, outbuf, 120/factor, fec);
122 if(out_samples!=120/factor)test_failed();
123 out_samples = opus_decode(dec[t], 0, 10, outbuf, 120/factor, fec);
124 if(out_samples!=120/factor)test_failed();
125 out_samples = opus_decode(dec[t], 0, fast_rand(), outbuf, 120/factor, fec);
126 if(out_samples!=120/factor)test_failed();
127 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
128 if(dur!=120/factor)test_failed();
129
130 /*Zero lengths*/
131 out_samples = opus_decode(dec[t], packet, 0, outbuf, 120/factor, fec);
132 if(out_samples!=120/factor)test_failed();
133
134 /*Zero buffer*/
135 outbuf[0]=32749;
136 out_samples = opus_decode(dec[t], packet, 0, outbuf, 0, fec);
137 if(out_samples>0)test_failed();
138 out_samples = opus_decode(dec[t], packet, 0, 0, 0, fec);
139 if(out_samples>0)test_failed();
140 if(outbuf[0]!=32749)test_failed();
141
142 /*Invalid lengths*/
143 out_samples = opus_decode(dec[t], packet, -1, outbuf, MAX_FRAME_SAMP, fec);
144 if(out_samples>=0)test_failed();
145 out_samples = opus_decode(dec[t], packet, INT_MIN, outbuf, MAX_FRAME_SAMP, fec);
146 if(out_samples>=0)test_failed();
147 out_samples = opus_decode(dec[t], packet, -1, outbuf, -1, fec);
148 if(out_samples>=0)test_failed();
149
150 /*Crazy FEC values*/
151 out_samples = opus_decode(dec[t], packet, 1, outbuf, MAX_FRAME_SAMP, fec?-1:2);
152 if(out_samples>=0)test_failed();
153
154 /*Reset the decoder*/
155 if(opus_decoder_ctl(dec[t], OPUS_RESET_STATE)!=OPUS_OK)test_failed();
156 }
157 }
158 fprintf(stdout," dec[all] initial frame PLC OK.\n");
159
160 /*Count code 0 tests*/
161 for(i=0;i<64;i++)
162 {
163 int dur;
164 int j,expected[5*2];
165 packet[0]=i<<2;
166 packet[1]=255;
167 packet[2]=255;
168 err=opus_packet_get_nb_channels(packet);
169 if(err!=(i&1)+1)test_failed();
170
171 for(t=0;t<5*2;t++){
172 expected[t]=opus_decoder_get_nb_samples(dec[t],packet,1);
173 if(expected[t]>2880)test_failed();
174 }
175
176 for(j=0;j<256;j++)
177 {
178 packet[1]=j;
179 for(t=0;t<5*2;t++)
180 {
181 out_samples = opus_decode(dec[t], packet, 3, outbuf, MAX_FRAME_SAMP, 0);
182 if(out_samples!=expected[t])test_failed();
183 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
184 if(dur!=out_samples)test_failed();
185 opus_decoder_ctl(dec[t], OPUS_GET_FINAL_RANGE(&dec_final_range1));
186 if(t==0)dec_final_range2=dec_final_range1;
187 else if(dec_final_range1!=dec_final_range2)test_failed();
188 }
189 }
190
191 for(t=0;t<5*2;t++){
192 int factor=48000/fsv[t>>1];
193 /* The PLC is run for 6 frames in order to get better PLC coverage. */
194 for(j=0;j<6;j++)
195 {
196 out_samples = opus_decode(dec[t], 0, 0, outbuf, expected[t], 0);
197 if(out_samples!=expected[t])test_failed();
198 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
199 if(dur!=out_samples)test_failed();
200 }
201 /* Run the PLC once at 2.5ms, as a simulation of someone trying to
202 do small drift corrections. */
203 if(expected[t]!=120/factor)
204 {
205 out_samples = opus_decode(dec[t], 0, 0, outbuf, 120/factor, 0);
206 if(out_samples!=120/factor)test_failed();
207 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
208 if(dur!=out_samples)test_failed();
209 }
210 out_samples = opus_decode(dec[t], packet, 2, outbuf, expected[t]-1, 0);
211 if(out_samples>0)test_failed();
212 }
213 }
214 fprintf(stdout," dec[all] all 2-byte prefix for length 3 and PLC, all modes (64) OK.\n");
215
216 if(no_fuzz)
217 {
218 fprintf(stdout," Skipping many tests which fuzz the decoder as requested.\n");
219 free(decbak);
220 for(t=0;t<5*2;t++)opus_decoder_destroy(dec[t]);
221 printf(" Decoders stopped.\n");
222
223 err=0;
224 for(i=0;i<8*2;i++)err|=outbuf_int[i]!=32749;
225 for(i=MAX_FRAME_SAMP*2;i<(MAX_FRAME_SAMP+8)*2;i++)err|=outbuf[i]!=32749;
226 if(err)test_failed();
227
228 free(outbuf_int);
229 free(packet);
230 return 0;
231 }
232
233 {
234 /*We only test a subset of the modes here simply because the longer
235 durations end up taking a long time.*/
236 static const int cmodes[4]={16,20,24,28};
237 static const opus_uint32 cres[4]={116290185,2172123586u,2172123586u,2172123586u};
238 static const opus_uint32 lres[3]={3285687739u,1481572662,694350475};
239 static const int lmodes[3]={0,4,8};
240 int mode=fast_rand()%4;
241
242 packet[0]=cmodes[mode]<<3;
243 dec_final_acc=0;
244 t=fast_rand()%10;
245
246 for(i=0;i<65536;i++)
247 {
248 int factor=48000/fsv[t>>1];
249 packet[1]=i>>8;
250 packet[2]=i&255;
251 packet[3]=255;
252 out_samples = opus_decode(dec[t], packet, 4, outbuf, MAX_FRAME_SAMP, 0);
253 if(out_samples!=120/factor)test_failed();
254 opus_decoder_ctl(dec[t], OPUS_GET_FINAL_RANGE(&dec_final_range1));
255 dec_final_acc+=dec_final_range1;
256 }
257 if(dec_final_acc!=cres[mode])test_failed();
258 fprintf(stdout," dec[%3d] all 3-byte prefix for length 4, mode %2d OK.\n",t,cmodes[mode]);
259
260 mode=fast_rand()%3;
261 packet[0]=lmodes[mode]<<3;
262 dec_final_acc=0;
263 t=fast_rand()%10;
264 for(i=0;i<65536;i++)
265 {
266 int factor=48000/fsv[t>>1];
267 packet[1]=i>>8;
268 packet[2]=i&255;
269 packet[3]=255;
270 out_samples = opus_decode(dec[t], packet, 4, outbuf, MAX_FRAME_SAMP, 0);
271 if(out_samples!=480/factor)test_failed();
272 opus_decoder_ctl(dec[t], OPUS_GET_FINAL_RANGE(&dec_final_range1));
273 dec_final_acc+=dec_final_range1;
274 }
275 if(dec_final_acc!=lres[mode])test_failed();
276 fprintf(stdout," dec[%3d] all 3-byte prefix for length 4, mode %2d OK.\n",t,lmodes[mode]);
277 }
278
279 skip=fast_rand()%7;
280 for(i=0;i<64;i++)
281 {
282 int j,expected[5*2];
283 packet[0]=i<<2;
284 for(t=0;t<5*2;t++)expected[t]=opus_decoder_get_nb_samples(dec[t],packet,1);
285 for(j=2+skip;j<1275;j+=4)
286 {
287 int jj;
288 for(jj=0;jj<j;jj++)packet[jj+1]=fast_rand()&255;
289 for(t=0;t<5*2;t++)
290 {
291 out_samples = opus_decode(dec[t], packet, j+1, outbuf, MAX_FRAME_SAMP, 0);
292 if(out_samples!=expected[t])test_failed();
293 opus_decoder_ctl(dec[t], OPUS_GET_FINAL_RANGE(&dec_final_range1));
294 if(t==0)dec_final_range2=dec_final_range1;
295 else if(dec_final_range1!=dec_final_range2)test_failed();
296 }
297 }
298 }
299 fprintf(stdout," dec[all] random packets, all modes (64), every 8th size from from %d bytes to maximum OK.\n",2+skip);
300
301 debruijn2(64,modes);
302 plen=(fast_rand()%18+3)*8+skip+3;
303 for(i=0;i<4096;i++)
304 {
305 int j,expected[5*2];
306 packet[0]=modes[i]<<2;
307 for(t=0;t<5*2;t++)expected[t]=opus_decoder_get_nb_samples(dec[t],packet,plen);
308 for(j=0;j<plen;j++)packet[j+1]=(fast_rand()|fast_rand())&255;
309 memcpy(decbak,dec[0],decsize);
310 if(opus_decode(decbak, packet, plen+1, outbuf, expected[0], 1)!=expected[0])test_failed();
311 memcpy(decbak,dec[0],decsize);
312 if(opus_decode(decbak, 0, 0, outbuf, MAX_FRAME_SAMP, 1)<20)test_failed();
313 memcpy(decbak,dec[0],decsize);
314 if(opus_decode(decbak, 0, 0, outbuf, MAX_FRAME_SAMP, 0)<20)test_failed();
315 for(t=0;t<5*2;t++)
316 {
317 int dur;
318 out_samples = opus_decode(dec[t], packet, plen+1, outbuf, MAX_FRAME_SAMP, 0);
319 if(out_samples!=expected[t])test_failed();
320 if(t==0)dec_final_range2=dec_final_range1;
321 else if(dec_final_range1!=dec_final_range2)test_failed();
322 if(opus_decoder_ctl(dec[t], OPUS_GET_LAST_PACKET_DURATION(&dur))!=OPUS_OK)test_failed();
323 if(dur!=out_samples)test_failed();
324 }
325 }
326 fprintf(stdout," dec[all] random packets, all mode pairs (4096), %d bytes/frame OK.\n",plen+1);
327
328 plen=(fast_rand()%18+3)*8+skip+3;
329 t=rand()&3;
330 for(i=0;i<4096;i++)
331 {
332 int count,j,expected;
333 packet[0]=modes[i]<<2;
334 expected=opus_decoder_get_nb_samples(dec[t],packet,plen);
335 for(count=0;count<10;count++)
336 {
337 for(j=0;j<plen;j++)packet[j+1]=(fast_rand()|fast_rand())&255;
338 out_samples = opus_decode(dec[t], packet, plen+1, outbuf, MAX_FRAME_SAMP, 0);
339 if(out_samples!=expected)test_failed();
340 }
341 }
342 fprintf(stdout," dec[%3d] random packets, all mode pairs (4096)*10, %d bytes/frame OK.\n",t,plen+1);
343
344 {
345 int tmodes[1]={25<<2};
346 opus_uint32 tseeds[1]={140441};
347 int tlen[1]={157};
348 opus_int32 tret[1]={480};
349 t=fast_rand()&1;
350 for(i=0;i<1;i++)
351 {
352 int j;
353 packet[0]=tmodes[i];
354 Rw=Rz=tseeds[i];
355 for(j=1;j<tlen[i];j++)packet[j]=fast_rand()&255;
356 out_samples=opus_decode(dec[t], packet, tlen[i], outbuf, MAX_FRAME_SAMP, 0);
357 if(out_samples!=tret[i])test_failed();
358 }
359 fprintf(stdout," dec[%3d] pre-selected random packets OK.\n",t);
360 }
361
362 free(decbak);
363 for(t=0;t<5*2;t++)opus_decoder_destroy(dec[t]);
364 printf(" Decoders stopped.\n");
365
366 err=0;
367 for(i=0;i<8*2;i++)err|=outbuf_int[i]!=32749;
368 for(i=MAX_FRAME_SAMP*2;i<(MAX_FRAME_SAMP+8)*2;i++)err|=outbuf[i]!=32749;
369 if(err)test_failed();
370
371 free(outbuf_int);
372 free(packet);
373 return 0;
374 }
375
376 #ifndef DISABLE_FLOAT_API
test_soft_clip(void)377 void test_soft_clip(void)
378 {
379 int i,j;
380 float x[1024];
381 float s[8] = {0, 0, 0, 0, 0, 0, 0, 0};
382 fprintf(stdout," Testing opus_pcm_soft_clip... ");
383 for(i=0;i<1024;i++)
384 {
385 for (j=0;j<1024;j++)
386 {
387 x[j]=(i&255)*(1/32.f)-4.f;
388 }
389 opus_pcm_soft_clip(&x[i],1024-i,1,s);
390 for (j=i;j<1024;j++)
391 {
392 if(x[i]>1.f)test_failed();
393 if(x[i]<-1.f)test_failed();
394 }
395 }
396 for(i=1;i<9;i++)
397 {
398 for (j=0;j<1024;j++)
399 {
400 x[j]=(i&255)*(1/32.f)-4.f;
401 }
402 opus_pcm_soft_clip(x,1024/i,i,s);
403 for (j=0;j<(1024/i)*i;j++)
404 {
405 if(x[i]>1.f)test_failed();
406 if(x[i]<-1.f)test_failed();
407 }
408 }
409 opus_pcm_soft_clip(x,0,1,s);
410 opus_pcm_soft_clip(x,1,0,s);
411 opus_pcm_soft_clip(x,1,1,0);
412 opus_pcm_soft_clip(x,1,-1,s);
413 opus_pcm_soft_clip(x,-1,1,s);
414 opus_pcm_soft_clip(0,1,1,s);
415 printf("OK.\n");
416 }
417 #endif
418
main(int _argc,char ** _argv)419 int main(int _argc, char **_argv)
420 {
421 const char * oversion;
422 const char * env_seed;
423 int env_used;
424
425 if(_argc>2)
426 {
427 fprintf(stderr,"Usage: %s [<seed>]\n",_argv[0]);
428 return 1;
429 }
430
431 env_used=0;
432 env_seed=getenv("SEED");
433 if(_argc>1)iseed=atoi(_argv[1]);
434 else if(env_seed)
435 {
436 iseed=atoi(env_seed);
437 env_used=1;
438 }
439 else iseed=(opus_uint32)time(NULL)^((getpid()&65535)<<16);
440 Rw=Rz=iseed;
441
442 oversion=opus_get_version_string();
443 if(!oversion)test_failed();
444 fprintf(stderr,"Testing %s decoder. Random seed: %u (%.4X)\n", oversion, iseed, fast_rand() % 65535);
445 if(env_used)fprintf(stderr," Random seed set from the environment (SEED=%s).\n", env_seed);
446
447 /*Setting TEST_OPUS_NOFUZZ tells the tool not to send garbage data
448 into the decoders. This is helpful because garbage data
449 may cause the decoders to clip, which angers CLANG IOC.*/
450 test_decoder_code0(getenv("TEST_OPUS_NOFUZZ")!=NULL);
451 #ifndef DISABLE_FLOAT_API
452 test_soft_clip();
453 #endif
454
455 return 0;
456 }
457