src/io/source_sndfile.c: fix resampled position in _seek, improve test for non intege...
[aubio.git] / tests / src / io / test-source_seek.c
1 #include <aubio.h>
2 #include "utils_tests.h"
3
4 int main (int argc, char **argv)
5 {
6   uint_t err = 0;
7   if (argc < 2) {
8     err = 2;
9     PRINT_ERR("not enough arguments\n");
10     PRINT_MSG("read a wave file as a mono vector\n");
11     PRINT_MSG("usage: %s <source_path> [samplerate] [hop_size]\n", argv[0]);
12     PRINT_MSG("examples:\n");
13     PRINT_MSG(" - read file.wav at original samplerate\n");
14     PRINT_MSG("       %s file.wav\n", argv[0]);
15     PRINT_MSG(" - read file.wav at 32000Hz\n");
16     PRINT_MSG("       %s file.aif 32000\n", argv[0]);
17     PRINT_MSG(" - read file.wav at original samplerate with 4096 blocks\n");
18     PRINT_MSG("       %s file.wav 0 4096 \n", argv[0]);
19     return err;
20   }
21
22   uint_t samplerate = 0;
23   uint_t hop_size = 256;
24   uint_t n_frames = 0, read = 0;
25   uint_t old_n_frames_1 = 0, old_n_frames_2 = 0, old_n_frames_3 = 0;
26   if ( argc == 3 ) samplerate = atoi(argv[2]);
27   if ( argc == 4 ) hop_size = atoi(argv[3]);
28
29   char_t *source_path = argv[1];
30
31   fvec_t *vec = new_fvec(hop_size);
32
33   aubio_source_t* s = new_aubio_source(source_path, samplerate, hop_size);
34   if (!s) { err = 1; goto beach; }
35
36   if (samplerate == 0 ) samplerate = aubio_source_get_samplerate(s);
37
38   do {
39     aubio_source_do(s, vec, &read);
40     //fvec_print (vec);
41     n_frames += read;
42   } while ( read == hop_size );
43
44   PRINT_MSG("read %.2fs, %d frames at %dHz (%d blocks) from %s\n",
45       n_frames * 1. / samplerate,
46       n_frames, samplerate,
47       n_frames / hop_size, source_path);
48
49   old_n_frames_1 = n_frames;
50
51   aubio_source_seek (s, 0);
52
53   n_frames = 0;
54   do {
55     aubio_source_do(s, vec, &read);
56     //fvec_print (vec);
57     n_frames += read;
58   } while ( read == hop_size );
59
60   PRINT_MSG("read %.2fs, %d frames at %dHz (%d blocks) from %s\n",
61       n_frames * 1. / samplerate,
62       n_frames, samplerate,
63       n_frames / hop_size, source_path);
64
65   old_n_frames_2 = n_frames;
66
67   aubio_source_seek (s, n_frames / 2);
68
69   n_frames = 0;
70   do {
71     aubio_source_do(s, vec, &read);
72     //fvec_print (vec);
73     n_frames += read;
74   } while ( read == hop_size );
75
76   PRINT_MSG("read %.2fs, %d frames at %dHz (%d blocks) from %s\n",
77       n_frames * 1. / samplerate,
78       n_frames, samplerate,
79       n_frames / hop_size, source_path);
80
81   old_n_frames_3 = n_frames;
82
83   del_aubio_source (s);
84 beach:
85   del_fvec (vec);
86
87   // check that we got exactly the same number of frames
88   assert ( old_n_frames_2 == old_n_frames_1 );
89   // check that we got about half the frames, with 3 decimals
90   assert ( roundf(1.e3 * old_n_frames_1 / old_n_frames_3) / 1.e3 == 2.);
91   return err;
92 }