Skip to content

Commit d5f8716

Browse files
aolofssonaolofsson
committed
Merge pull request #182 from lchamon/151_158-check_fir_firsym
dsp: p_fir, p_firsym: Implement tests
2 parents 0dfbbd3 + 5e3873a commit d5f8716

File tree

5 files changed

+328
-2
lines changed

5 files changed

+328
-2
lines changed

‎tests/dsp/Makefile.am

+9-2
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,9 @@ endif
99
LDADD = $(top_builddir)/src/libpal.la
1010

1111
check_PROGRAMS = check_p_acorr \
12-
check_p_xcorr
12+
check_p_xcorr \
13+
check_p_fir \
14+
check_p_firsym
1315

1416
check_p_acorr_SOURCES = check_p_acorr.c \
1517
acorr_test_data.h
@@ -19,9 +21,14 @@ check_p_xcorr_SOURCES = check_p_xcorr.c \
1921
xcorr_test_data_2.h \
2022
xcorr_test_data_3.h
2123

24+
check_p_fir_SOURCES = check_p_fir.c \
25+
fir_test_data.h
26+
27+
check_p_firsym_SOURCES = check_p_firsym.c \
28+
firsym_test_data.h
29+
2230
TESTS = $(check_PROGRAMS)
2331

2432
# Ubuntu 14.04 has automake-1.11. Need automake-1.12 for nicer test features.
2533
# This will have to do for now.
2634
TESTS_ENVIRONMENT = ../runtest
27-

‎tests/dsp/check_p_fir.c

+59
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,59 @@
1+
/*
2+
* Test program for dsp: p_fir function
3+
*/
4+
5+
#include <stdio.h>
6+
#include <math.h>
7+
#include <pal.h>
8+
9+
#include "fir_test_data.h"
10+
11+
12+
int main()
13+
{
14+
float error1, error2;
15+
int i;
16+
int testFail = 0;
17+
18+
19+
/*** TEST 1 ***/
20+
p_fir_f32(x1, h1, r1, nx1, nh1);
21+
22+
/* Compute maximum absolute error */
23+
error1 = 0.0;
24+
for (i = 0; i < 32; i++) {
25+
if (error1 < fabs(r1[i] - ref1[i]))
26+
error1 = fabs(r1[i] - ref1[i]);
27+
}
28+
29+
if (error1 != 0) {
30+
printf("p_fir: Test 1 - Maximum error = %f is not zero.\n\n", error1);
31+
testFail = 1;
32+
}
33+
34+
35+
/*** TEST 2 ***/
36+
p_fir_f32(x2, h2, r2, nx2, nh2);
37+
38+
/* Compute total absolute error */
39+
error2 = 0.0;
40+
for (i = 0; i < nx2; i++) {
41+
if (error2 < fabs(r2[i] - ref2[i]))
42+
error2 = fabs(r2[i] - ref2[i]);
43+
}
44+
45+
if (error2 > EPS) {
46+
printf("p_fir: Test 2 - Maximum error = %f < %.1e.\n\n", error2, EPS);
47+
testFail = 1;
48+
}
49+
50+
51+
/*** RESULTS ***/
52+
if ( testFail == 0 ) {
53+
printf("p_fir is OK!\n");
54+
} else {
55+
printf("p_fir test FAILED!\n");
56+
}
57+
58+
return(testFail);
59+
}

‎tests/dsp/check_p_firsym.c

+59
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,59 @@
1+
/*
2+
* Test program for dsp: p_firsym function
3+
*/
4+
5+
#include <stdio.h>
6+
#include <math.h>
7+
#include <pal.h>
8+
9+
#include "firsym_test_data.h"
10+
11+
12+
int main()
13+
{
14+
float error1, error2;
15+
int i;
16+
int testFail = 0;
17+
18+
19+
/*** TEST 1 ***/
20+
p_firsym_f32(x1, h1, r1, nx1, nh1);
21+
22+
/* Compute maximum absolute error */
23+
error1 = 0.0;
24+
for (i = 0; i < 32; i++) {
25+
if (error1 < fabs(r1[i] - ref1[i]))
26+
error1 = fabs(r1[i] - ref1[i]);
27+
}
28+
29+
if (error1 != 0) {
30+
printf("p_firsym: Test 1 - Maximum error = %f is not zero.\n\n", error1);
31+
testFail = 1;
32+
}
33+
34+
35+
/*** TEST 2 ***/
36+
p_firsym_f32(x2, h2, r2, nx2, nh2);
37+
38+
/* Compute maximum absolute error */
39+
error2 = 0.0;
40+
for (i = 0; i < nx2; i++) {
41+
if (error2 < fabs(r2[i] - ref2[i]))
42+
error2 = fabs(r2[i] - ref2[i]);
43+
}
44+
45+
if (error2 > EPS) {
46+
printf("p_firsym: Test 2 - Maximum error = %f < %.1e.\n\n", error2, EPS);
47+
testFail = 1;
48+
}
49+
50+
51+
/*** RESULTS ***/
52+
if ( testFail == 0 ) {
53+
printf("p_firsym is OK!\n");
54+
} else {
55+
printf("p_firsym test FAILED!\n");
56+
}
57+
58+
return(testFail);
59+
}

‎tests/dsp/fir_test_data.h

+102
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,102 @@
1+
/*
2+
* Test data for dsp:p_fir function
3+
* Generated using MATLAB filter(h,1,x).
4+
*/
5+
6+
#define EPS 0.0001
7+
8+
9+
/* Integers: result should be exact. Two additional values are added to all
10+
* arrays to check for out-of-boundary array accesses. */
11+
float x1[32] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
12+
18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32};
13+
float h1[18] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18};
14+
float ref1[32] = {1, 4, 10, 20, 35, 56, 84, 120, 165, 220, 286, 364, 455,
15+
560, 680, 816, 952, 1088, 1224, 1360, 1496, 1632, 1768, 1904, 2040,
16+
2176, 2312, 2448, 2584, 2720, 0, 0};
17+
float r1[32];
18+
int nx1 = 30;
19+
int nh1 = 16;
20+
21+
22+
/* Floats: error should be < 1e-4 (input is single precision ~ 1e-6 and there is
23+
* a gain of > 59 from intermediate computations). */
24+
float x2[100] = {0.488893770311789, 1.03469300991786, 0.726885133383238,
25+
-0.303440924786016, 0.293871467096658, -0.787282803758638,
26+
0.888395631757642, -1.14707010696915, -1.06887045816803,
27+
-0.809498694424876, -2.94428416199490, 1.43838029281510,
28+
0.325190539456198, -0.754928319169703, 1.37029854009523,
29+
-1.71151641885370, -0.102242446085491, -0.241447041607358,
30+
0.319206739165502, 0.312858596637428, -0.864879917324457,
31+
-0.0300512961962686, -0.164879019209038, 0.627707287528727,
32+
1.09326566903948, 1.10927329761440, -0.863652821988714,
33+
0.0773590911304249, -1.21411704361541, -1.11350074148676,
34+
-0.00684932810334806, 1.53263030828475, -0.769665913753682,
35+
0.371378812760058, -0.225584402271252, 1.11735613881447,
36+
-1.08906429505224, 0.0325574641649735, 0.552527021112224,
37+
1.10061021788087, 1.54421189550395, 0.0859311331754255,
38+
-1.49159031063761, -0.742301837259857, -1.06158173331999,
39+
2.35045722400204, -0.615601881466894, 0.748076783703985,
40+
-0.192418510588264, 0.888610425420721, -0.764849236567874,
41+
-1.40226896933876, -1.42237592509150, 0.488193909859941,
42+
-0.177375156618825, -0.196053487807333, 1.41931015064255,
43+
0.291584373984183, 0.197811053464361, 1.58769908997406,
44+
-0.804465956349547, 0.696624415849607, 0.835088165072682,
45+
-0.243715140377952, 0.215670086403744, -1.16584393148205,
46+
-1.14795277889859, 0.104874716016494, 0.722254032225002,
47+
2.58549125261624, -0.666890670701386, 0.187331024578940,
48+
-0.0824944253709554, -1.93302291785099, -0.438966153934773,
49+
-1.79467884145512, 0.840375529753905, -0.888032082329010,
50+
0.100092833139322, -0.544528929990548, 0.303520794649354,
51+
-0.600326562133734, 0.489965321173948, 0.739363123604474,
52+
1.71188778298155, -0.194123535758265, -2.13835526943994,
53+
-0.839588747336614, 1.35459432800464, -1.07215528838425,
54+
0.960953869740567, 0.124049800003193, 1.43669662271894,
55+
-1.96089999936503, -0.197698225974150, -1.20784548525980,
56+
2.90800803072936, 0.825218894228491, 1.37897197791661,
57+
-1.05818025798736};
58+
float h2[24] = {8.96196055032497, 9.96371130783181, 1.39685497922857,
59+
10.0471344175292, 6.95595170847951, 1.07294445499350,
60+
3.06348040753753, 6.01569671125482, 10.5325751897773,
61+
10.6137738871920, 1.73374389845303, 10.6765205993668,
62+
10.5288364306724, 5.33913213595125, 8.80308515777680,
63+
1.56074972489937, 4.63937410888903, 10.0730907770797,
64+
8.71428062515510, 10.5544166903219, 7.21314769072246,
65+
0.392828464316085, 9.34042236455655, 10.2739257253331};
66+
float ref2[100] = {4.38144668283389, 14.1440743241650, 17.5066120304252,
67+
10.8803455347910, 14.4220410477185, 10.4735331750688,
68+
5.14335459333896, 5.20455214577267, -12.3581379942700,
69+
3.78805933604945, -23.5746205116505, -24.4523191435555,
70+
11.6490512254190, -20.4794566776442, 3.89303020937694,
71+
8.14158434136703, -52.2662385617696, -20.9200152056978,
72+
-26.8964789453568, -28.8021421895547, 3.74129460903346,
73+
-48.4228540875274, -26.9048951626906, -1.62188437848414,
74+
-29.3012311072962, 15.6138110044446, -30.4553103418182,
75+
-61.7326728701339, -25.8767557726614, -69.0001622082354,
76+
-38.0373054463597, 1.18083533487212, -41.2393995684227,
77+
-20.0756215242485, 21.2547637015502, -4.18534418726141,
78+
9.10879322867097, -22.2155319560167, -6.69790111565424,
79+
8.29926992873398, 3.11552235460419, 29.3561816200623,
80+
25.2312421853411, 10.2826079991493, 3.53624491403252,
81+
-8.22812396323694, 11.3153216708296, 20.8263852669967,
82+
33.2539757251591, 24.5787517105350, -1.32253147982360,
83+
-23.2087480894685, -9.11723833470803, 14.2588486434917,
84+
7.77599820912536, -41.6761715263702, 26.5322920149295,
85+
59.2325054728447, 20.1049008873763, 18.3242907853753,
86+
-5.04181532485617, -7.09937268570435, 34.8923891671505,
87+
7.37687409391624, 1.18941598357724, 6.18162924923411,
88+
-28.2713035368162, 27.7875757520245, 26.4142659645616,
89+
2.32945559269692, 36.9993763381585, 7.04962423098104,
90+
30.9438791667144, -2.50541682646372, -53.8595022021612,
91+
0.179887289987949, 17.0256554469907, -2.55802111978462,
92+
10.3572582021471, 9.78131710085250, 16.1051712169320,
93+
11.6790883654813, -27.7615753507540, -15.2691287803306,
94+
-20.9308394002330, -6.01331557061655, -31.1885445500618,
95+
-25.9346441688327, -4.54559221044078, -44.4801414096818,
96+
-35.8143995654214, 30.0461501681512, 6.99283571572283,
97+
-36.5748602082542, -46.2396999089475, -34.7570636394604,
98+
-5.58620865976614, -10.8373377634534, -18.1170404789648,
99+
36.2520278025143};
100+
float r2[100];
101+
int nx2 = 24;
102+
int nh2 = 100;

‎tests/dsp/firsym_test_data.h

+99
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,99 @@
1+
/*
2+
* Test data for dsp:p_firsym function
3+
* Generated using MATLAB filter([h fliplr(h(1:end-1))],1,x).
4+
*/
5+
6+
#define EPS 0.0001
7+
8+
9+
/* Integers: result should be exact. Two additional values are added to all
10+
* arrays to check for out-of-boundary array accesses. */
11+
float x1[32] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
12+
19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32};
13+
float h1[11] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11};
14+
float ref1[32] = {1, 4, 10, 20, 35, 56, 84, 120, 165, 218, 278, 344, 415, 490,
15+
568, 648, 729, 810, 891, 972, 1053, 1134, 1215, 1296, 1377, 1458, 1539,
16+
1620, 1701, 1782, 0, 0};
17+
float r1[32];
18+
int nx1 = 30;
19+
int nh1 = 9;
20+
21+
22+
/* Floats: error should be < 1e-4 (input is single precision ~ 1e-6 and there
23+
* is a gain of > 36x from partial computations). */
24+
float x2[100] = {1.12749227834159, 0.350179410603312, -0.299066030332982,
25+
0.0228897927516298, -0.261995434966092, -1.75021236844679,
26+
-0.285650971595330, -0.831366511567624, -0.979206305167302,
27+
-1.15640165566400, -0.533557109315987, -2.00263573588306,
28+
0.964229422631628, 0.520060101455458, -0.0200278516425381,
29+
-0.0347710860284830, -0.798163584564142, 1.01868528212858,
30+
-0.133217479507735, -0.714530163787158, 1.35138576842666,
31+
-0.224771056052584, -0.589029030720801, -0.293753597735416,
32+
-0.847926243637934, -1.12012830124373, 2.52599969211831,
33+
1.65549759288735, 0.307535159238252, -1.25711835935205,
34+
-0.865468030554804, -0.176534114231451, 0.791416061628634,
35+
-1.33200442131525, -2.32986715580508, -1.44909729283874,
36+
0.333510833065806, 0.391353604432901, 0.451679418928238,
37+
-0.130284653145721, 0.183689095861942, -0.476153016619074,
38+
0.862021611556922, -1.36169447087075, 0.455029556444334,
39+
-0.848709379933659, -0.334886938964048, 0.552783345944550,
40+
1.03909065350496, -1.11763868326521, 1.26065870912090,
41+
0.660143141046978, -0.0678655535426873, -0.195221197898754,
42+
-0.217606350143192, -0.303107621351741, 0.0230456244251053,
43+
0.0512903558487747, 0.826062790211596, 1.52697668673337,
44+
0.466914435684700, -0.209713338388737, 0.625190357087626,
45+
0.183227263001437, -1.02976754356662, 0.949221831131023,
46+
0.307061919146703, 0.135174942099456, 0.515246335524849,
47+
0.261406324055383, -0.941485770955434, -0.162337672803828,
48+
-0.146054634331526, -0.532011376808821, 1.68210359466318,
49+
-0.875729346160017, -0.483815050110121, -0.712004549027423,
50+
-1.17421233145682, -0.192239517539275, -0.274070229932602,
51+
1.53007251442410, -0.249024742513714, -1.06421341288933,
52+
1.60345729812004, 1.23467914689078, -0.229626450963181,
53+
-1.50615970397972, -0.444627816446985, -0.155941035724769,
54+
0.276068253931536, -0.261163645776479, 0.443421912904091,
55+
0.391894209432449, -1.25067890682641, -0.947960922331432,
56+
-0.741106093940412, -0.507817550278174, -0.320575506600239,
57+
0.0124690413616180};
58+
float h2[13] = {4.39760914008786, 2.85857443135720, 8.80075328246738,
59+
4.74555210209899, 10.0171235387248, 2.00031731133138,
60+
2.90183208174189, 1.60092878423189, 1.49675414579530,
61+
9.56221428404098, 6.37675046102127, 6.04846222019965,
62+
1.59450278046099};
63+
float ref2[100] = {4.95827034861346, 4.76297277515964, 9.60861977062762,
64+
7.67817380312583, 9.23729638790948, -3.90033663083165,
65+
-7.47994429938189, -18.6668201529812, -18.7006595120818,
66+
-23.7198330673552, -15.2104858808631, -33.3265261109670,
67+
-24.9350504325131, -30.9355826106284, -21.3142039293257,
68+
-22.5879015689510, -18.0376653315345, -20.6135007491957,
69+
-36.6692783138386, -30.9696701756180, -42.2073906078427,
70+
-12.0821627444424, -14.8145722328935, -20.7291075635780,
71+
-27.3269796720801, -56.3979288177768, -32.0453266536831,
72+
-25.2066369856754, -12.3338777451746, -25.8144275680295,
73+
1.59843918410884, -34.1105110972878, -13.5676707462748,
74+
-39.9650941000149, -28.4672101480550, -7.67655317406452,
75+
-9.94156881179673, -14.4914974353187, -39.5922949599046,
76+
-28.6491180948370, 4.56827234699208, 26.7678005988945,
77+
5.18293451848438, -49.7412442726263, -48.2357973935824,
78+
-52.7125636270566, 1.00918532048008, -15.2175260730140,
79+
-6.68959348513663, -32.0036991150699, -3.08107942876001,
80+
0.262349230998074, -1.04601999720673, -20.7466373657216,
81+
-27.8515625602517, -33.1902651774162, -30.2995158968299,
82+
-10.5061901649451, -18.0548864389344, 12.6772083964956,
83+
22.6835831202765, 28.0207446882465, 36.3365039891753,
84+
12.3447861099388, 11.4170929932386, 5.95631050806108,
85+
10.6449164773134, 8.75477116778307, 29.2533836912012,
86+
27.2897299020354, 31.1443305958778, 26.7887016194816,
87+
31.8077494912980, 13.5486837335594, 22.5157291532519,
88+
4.54503578687006, 16.4215696901601, 1.62264253808211,
89+
18.0061643022091, -6.13179145475439, 8.03231265286830,
90+
6.83651113450072, 0.869138305658449, 23.1915068932710,
91+
-3.61925882019709, 8.25655870060134, -6.35749462788553,
92+
-1.88930190781793, 2.76841017001098, 1.48769751926061,
93+
-14.4654656042288, -27.8687525569748, -25.0840204253891,
94+
-17.9803619861117, 19.9398563033087, -0.168975160254181,
95+
-12.4576649232109, -42.8332101216382, -44.2388986012562,
96+
-18.1156295206340};
97+
float r2[100];
98+
int nx2 = 100;
99+
int nh2 = 13;

0 commit comments

Comments
 (0)