From 84075cab8196fadfab4c2be556a370be3b0bed52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Adjemian=20=28Charybdis=29?=
 <stephane.adjemian@univ-lemans.fr>
Date: Wed, 11 Sep 2013 17:21:26 +0200
Subject: [PATCH] Added unitary tests (instantiation of the dynSeries class
 form an excel file).

---
 matlab/@dynSeries/dynSeries.m   |  84 +++++++++++++++++++++++++++++++-
 tests/dynseries_test_data-1.xls | Bin 0 -> 6144 bytes
 tests/dynseries_test_data-2.xls | Bin 0 -> 5632 bytes
 tests/dynseries_test_data-3.xls | Bin 0 -> 5632 bytes
 tests/dynseries_test_data-4.xls | Bin 0 -> 5632 bytes
 5 files changed, 83 insertions(+), 1 deletion(-)
 create mode 100644 tests/dynseries_test_data-1.xls
 create mode 100644 tests/dynseries_test_data-2.xls
 create mode 100644 tests/dynseries_test_data-3.xls
 create mode 100644 tests/dynseries_test_data-4.xls

diff --git a/matlab/@dynSeries/dynSeries.m b/matlab/@dynSeries/dynSeries.m
index 98c5cfc2a..9d56f5b5f 100644
--- a/matlab/@dynSeries/dynSeries.m
+++ b/matlab/@dynSeries/dynSeries.m
@@ -357,7 +357,6 @@ ts.time = ts.init:(ts.init+ts.nobs);
 %$ T = all(t);
 %@eof:7
 
-
 %@test:8
 %$ t = zeros(8,1);
 %$
@@ -381,3 +380,86 @@ ts.time = ts.init:(ts.init+ts.nobs);
 %$ T = all(t);
 %@eof:8
 
+%@test:9
+%$ try
+%$     ts = dynSeries('dynseries_test_data-1.xls');
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1990, 1]);
+%$     t(5) = dyn_assert(ts.vobs,3);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'GDP';'Consumption';'CPI'});
+%$     t(8) = dyn_assert(ts.tex,{'GDP';'Consumption';'CPI'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:9
+
+%@test:10
+%$ try
+%$     ts = dynSeries('dynseries_test_data-2.xls');
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dyn_assert(ts.freq,4);
+%$     t(3) = dyn_assert(ts.init.freq,4);
+%$     t(4) = dyn_assert(ts.init.time,[1990, 1]);
+%$     t(5) = dyn_assert(ts.vobs,3);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Variable_1';'Variable_2';'Variable_3'});
+%$     t(8) = dyn_assert(ts.tex,{'Variable\\_1';'Variable\\_2';'Variable\\_3'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:10
+
+%@test:11
+%$ try
+%$     ts = dynSeries('dynseries_test_data-3.xls');
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dyn_assert(ts.freq,1);
+%$     t(3) = dyn_assert(ts.init.freq,1);
+%$     t(4) = dyn_assert(ts.init.time,[1, 1]);
+%$     t(5) = dyn_assert(ts.vobs,3);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'Variable_1';'Variable_2';'Variable_3'});
+%$     t(8) = dyn_assert(ts.tex,{'Variable\\_1';'Variable\\_2';'Variable\\_3'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:11
+
+%@test:12
+%$ try
+%$     ts = dynSeries('dynseries_test_data-4.xls');
+%$     t(1) = 1;
+%$ catch
+%$     t(1) = 0;
+%$ end
+%$
+%$ if t(1)
+%$     t(2) = dyn_assert(ts.freq,1);
+%$     t(3) = dyn_assert(ts.init.freq,1);
+%$     t(4) = dyn_assert(ts.init.time,[1, 1]);
+%$     t(5) = dyn_assert(ts.vobs,3);
+%$     t(6) = dyn_assert(ts.nobs,5);
+%$     t(7) = dyn_assert(ts.name,{'GDP';'Consumption';'CPI'});
+%$     t(8) = dyn_assert(ts.tex,{'GDP';'Consumption';'CPI'});
+%$ end
+%$
+%$ T = all(t);
+%@eof:12
\ No newline at end of file
diff --git a/tests/dynseries_test_data-1.xls b/tests/dynseries_test_data-1.xls
new file mode 100644
index 0000000000000000000000000000000000000000..fe75d170d1f4519ab8fcb2fe1287ae71763535bf
GIT binary patch
literal 6144
zcmeHLU2IfU5T3i+Ew>c9+d@%6>ZQt3pfxNt5n_=3P<|3AOQ|t2B)XJsS=gVZY=b@+
zmjVe7l4vmcLZT#nAsW;el|+pYeel7*7)j74@QujBLNta1Sif)Xy>h$k(k&7rre`zf
z%$+mm%$YfJ=FHh2zOO%j{Db)yq^LY0ez{Sok!la!0AAyMheUk9NxM-f6kIaU>2eQQ
z;JUL`?qL-+F#zD6&j6SJ(q}sDJ*3w3QY*ATpJedMiX}agMmr)eVz(<V^WZUFQI(AJ
z#*0e$C*zrxf71e!*^2#M`!jwsj{5<n&OhTl&wnjo7GO4@4iE(33Xpn017HqdE}#)G
z4{#sge!v5O`G5t02LTHKO@N007JzGMc3R?#frkN09NJQ+y{X|eb~i0hV`3Mp1M=zY
zZy545_FsTUykB)j{o+^9w#zVmqdS%yu>P&mrE7>8^v%<7(lx*gIR<K-yr<O9v|gj$
z2c{0OR-s`=asnS5cSP%Et?N)5@`;Z5MJW;Z<=5aUy!@(j2m(eY;$K2yl9Zxe@ZGK6
zrm9&o&ii#kPj63O=TqnP+>FZ~1q)K#a@r!D3sd^<mC>nnDgJVF&RUB9|4Sc-O)aYD
z6xYtnZ9C+P=}XJdTg%Xwm7&+%LO<%mnaW9lZ7Ap0wmw&_Z9}d~+c~)z+Rn`d3eW2a
zIE1MC5d$@{v-R=OL^2tVyn@rY2){Fi2@vT&V#sguEMs)OPZg@pGZym@(-Y`bUTBxv
zJY)D5nA4Q~24cQ>+UP*tAx)PV<q`EwM1K=e-TV`Q|C&TKJ7k84n`6VeD0;gy>Aj<=
z;cOz4wm|HTZbBj%S-pD2)`*L&bdh!!dCW#4TO$SBGp2N5jl5?D%tinZr|@23@$oXU
zgH~ul(3%C+c0y$y^LkY?gz2uGxcuYh9nrPVDLto))_G(x%?~^5N6(q6WjbQH)?>;$
zS01LLguBDd{fSh3uhkphXZ2-Lv2<&1W+W9$HisiC!<~)NBDk||&lZgh#jSAkfKGo<
z>oAtmuI1v|B_6y5_<^=_V{Pa1YnOWP<I;?`*G?$M-<Y%-t%f_^Z4G%EbI+8Q)PiCh
zuH`L_;^U2N$9DUcH+|ey0}gRTd&CF|Y4nO>8a<|%W@if%$I_g|e0)uKY1cKEFf@A*
zvA=xyqFnpSuUlw;ks8#@<a6W_)H|s6Q&2OEpymmF9mh2WAxVUsbb+8sx|NeF59%w2
zoPG}{vlQ=~oXwU;&MM`!Gau$JUQTKm)E5&u1Io$sWb?S3mvCm_p81XFfotaJ+|-cE
zhL-siK%qmvMd>wp?oe^T?&>&>q0}dR4e~KgkVpqBr!3@rHm(A2#|`1=4tb6fOvEgL
zOgvC`UJPV#eoVpHLMHbC_qEoto;ly<#K1^qZ)PxS^}H|;Pg<)VZ|jfkh$C$2R(2%@
z2kmRy9y8?{3fe-aJklO;12!;9OhLn)KlIj>t6O%3-g(WG<x4*NnLG3qz}>lx!09DX
zhn7UkeEBedR(&17y!mYaW7@j_=Fg`9T=d23b}r1^d0Y0&6T`b=>A2Oob9X$Ih@~g*
z;~edP4uGT&onp?dIKNRk0Ik`?!JkfkXAs}#kGydSIMBaKIsG}e@9ei{k3G5|bo5Q=
z-+J}rI?w_|wC$krZsDW^dM(FNw{moJPnZ9Q1@7kiU-!Q#29#2hu_@<-ooDdx!-(vW
z9r{1So>J_$r8U6Y=x;oSZbZB70H?Fs35JGrLvji)oGn<x?n;JE;Gul#L)k17I?H@4
z0)3OyXFzUJ;$=7|C(nd@Te4kGK0=V#*l%_624tIzLjM$AJ^b%y6aEDn)IA|3i`P&F
zl=7v;k<Z(xQvDwRult}0$T~<E&^5&MAE>FVXVo3(-vasB@+wWaXR7x1{{J#%VI>Cq
H6ZwAueK0;Z

literal 0
HcmV?d00001

diff --git a/tests/dynseries_test_data-2.xls b/tests/dynseries_test_data-2.xls
new file mode 100644
index 0000000000000000000000000000000000000000..1090339482977ee6ec2b332f4dec1dca8ca28039
GIT binary patch
literal 5632
zcmeHLU2IfU5T3i;Ew?{(x22$h;96u`=+>|lBaOlSQG~=oDHsz&qT6;03)_~IC2EXe
zDUk3Wi3SrBgHaM<(x|90Q4=*n^nnNeVkAMIif=?7mPTVppzHU|y|=wxx^!331k<yb
zbEb1<&YYPuXU^RI@O|ajsSg)llC1WK6v;%UM2cN>1Gwq@9T4#VCv75=$v9-7bL|fD
zzzut^JVP%I(Ffp}&jXNFVvl!_Npo8*zysYfgkMsE(jkKwhvj*kc>Zk>BF3#QA4zw<
z$cKM6o;m$f9+=HnoOk=5`I~vX2#|gMnd^D~O95qoa=?5*1;7u$6Cjm<D!>9jHDDoN
z5#TPs-GF-livddj_X3szmI1hjpgj^_4*UVY3Y%7Ik5iV-VgH5)N=%$$u}?mm{|!^V
z=Kf2Fh!4EyG%kJxZKv#GY_vxcy}|#gwdo$B24nLqf^<DFLr#KPA@3{obM4n_^ns~G
zg6lA_A{oUWlsm3{jrJAj4f#Z6eo;yUad{qGnS(Fem%wMVBLBrDDhbJ&1>fzOUFI#9
z(|lha>)6uK-TL^L-ka0%hu#M$(snjTIya{D-)*wonog@{;?G6rsx$Hbf9a>;(;&^W
zo8!-V%Ma;n`pO*ia1Q#a9Q2Z#=qEh5Qz^-C45W&5tV|W_Se5eXxF9u8$Lf?X^Nikr
zqsY3iLy(pD#@K;)A`y$cgxh&Pe&-AmAhP4QA-~B}%+cv?HK;hvT+B<%NMKaCp;5}x
z%;8^RO;ZjT$ob}3qXm77EW64qkF0MZ`<uw>=ATIX*X1Ft6zys;($utiTLfjJB5NF^
z(LvT)NMu_igU7^_Hf)5CNw2vO0K{&5JlH&ZajeV~n3kE!vHw2U#k*Xowgj-;_0g+8
zcJ_2NKdtl>C{9~JAIrEL!pu4EDwU|$enfezWjUiE)E=tY5g&-{4{nJ)8|)q$hz^Fg
z3=I!N6E&g8no#RPspG?RYqqZFu2?YCby$}_qJ0QkY1DSPxz>f(0YBVuairm5x_PAw
zKP5GIaQk2!e<Kn$!iFR7jD|dcwM*qi^`IEX%J>wcdH5__1-$i?n;sq=@o^o+@C#`?
z`fM7*BAaHF1k+{dPB-5TEe@=5K;#R3@(mmi4jerT0l$RM7YRA3*{?l0X`^4|Z|3BF
zc+A$CJZ^`R#e{oJ?$WR23)d`CPOCs+nc?Q--u>9UwWe1&8TJ;B!+AxzK=GtEVFtmK
zW-xKz6oj7iYM@vpU8nStwB=(mOf{U3%29?_<WWzRd`y=}3p=|l<$4yb3V`my4cj#p
zzHorSN1sf*5;HUdl~fVt$QCf^Fua%A%SP5*o$=n`q5VVs$zaEGy|F~F>EVVQ(ViI6
zhMrMdyuaUiHZ7Tgd+gj&TCk)gFahI?8J3_&#*V%@er@aSz&o#)QeXSg&vgCQ0Ov?H
z0q1dc*|Y>k)~m+=bl0l@)~#;=m~P$$uzvj%z)fGiVb!9nUAHH{8r`=$Iv5MK_U(xc
z#G`|=&vA{lfEGZi^NsVYd5Jr%1xPp<Kl0O=@0d-c?1h7GUjYtuvgNX$YkMwyd*S4R
zO9CfegZ<%aXEuQ5%cAWBjk%qR5*Ut@rER(Bn4WC6^ZQTrXT{*8A{U}TZ^!eK`1%}{
zz0#xKp?h6i`Jq*?mi96ZoU4+L<a=7}(r4|^Jb(&!EB3G_AJJ(%)K7b;n{C=;jz8`L
zeX~7hKyN}~IXGu0mqNd#+3IJP5L61*w;FkUvRw|q{sC0I{Py3B{{r;unUIo1H9Q1L
z?p9~(XPV2`{u=N)1+7muKtr$YA*TO<C~QCL{)YX0kdnDgDtM+)|GU4x3syFRz(3Ld
E7y2nbivR!s

literal 0
HcmV?d00001

diff --git a/tests/dynseries_test_data-3.xls b/tests/dynseries_test_data-3.xls
new file mode 100644
index 0000000000000000000000000000000000000000..69589b55beaac25bc2a0cbf9b6acab53cb5be48d
GIT binary patch
literal 5632
zcmeHLU2IfE6h3!<%Iy!`ZD~=9)Jv76(5<oZAjDv|lp-Wj*0x4tNOZg1mWACeDNB?G
z<5D2uK@trnzK|$MUm6T*OwdG)ZS=th|6(LTpNelp9~Pof65I9r=H5$hm#(|3)rjfY
zoSC`b%(-Xg%$alM?$=+{&76Cu>5Amh!{U~?T%}Yva1CwUe)fyF&?YvQ%jIks&1Jfc
zEHG=$m3!#HCVIi#^A%uXl~#QlEophGWmuq3Quw9CkRBODJtjx7<E7JTc#KnBDU!~3
zQOfvYW0v*LTcDV&*zdGI<2U2D8=Qas8S8oetH9OZ8t_VRE!YP}3XnQ*J$Mzk0o({)
z4ZZ_>C-^RK6L<~yZZLH>TQ%G3&~5?WYhmlHdVWRAt$)%2l{$8@!Yd!F{G1_Q#r`Ys
zh_^k{$}fHZwoeYxH@YK<sPS*nb~T5HM&F!*lWs#xle0i;<t>GNsLE~1`!FaZ#uik(
zkxb%&a;H_<qRLv7n!KlEzE?;G{PHu5%DwoqbqKs#7vf)BB9f52UW{9+-eymYOfbJb
z+SA+9*Y((pIyV#YOU{56o2CrnoS4FYE)D0Z7aLy)=UW#W|Nq4&U{iz3v&gn{n`wt^
zKEAO49xQ-wDu7qsf}e5WOl2g;+MjW&x-L_p>iUdF)vGcqRNavA=AKn2;3T4MKLa&x
z;yYtU;)z78<0YKVb@)wdI#^`jv?f2w(~QyCKDD5VEMqYbF+G7^<>bv$on;LF81K~O
zn1-0IPiY~PA!)wGD37SGBl_!z>iVw;{87D8qBlPU%&3oH;$o^WLyCVvNU4G1Axwye
zuue_F4^_WUUi)UxV7T)cg=c`+w4TP1>v9Y|)1FOAqD__KYHR}%h9MH@4zvu!ld;1_
zZ|pgvFO`gp276Ou$w;Cl(D7iPt5I478RgH1g(D*|BM?5WUVlQB0Ze7HqN|-79PL)L
zkGEeQZ@--F+~{bZlNMykAuNu+aS3Wc&6c-oO`gEJtK<chM@2hT%^V7HF`t?@Z!-_;
zF4~;!CT<fp%O}M6;D%8YSs3>-A7d`hm!&zK<33W^nR%SIeV@wNJ_(@h682G-Pi6jF
z`>50IV{UiKQMb>!Au!K7`#1-miq|G;_x&Vc;I8a0^usN(bOW_;2>8UEeL%^1vaJfQ
z%$nB0gM(mMB}X6UH_Rihdby}RUPF#iYxzE}+F}jE&~lBysYm7=4}BW*ErsaJ#Yn@A
z#*KlL@$0k<@|7xOC+|Fa;?c3x;nZ;2=y^UGOBh=pY9ELU#&B$v;kU<!ht0HQ%9LHg
zPNvebB~5`jtW;a%6}11%$=9#n*t_3<{uN!?HoW^C_u*5py+6Cq=AMQvEP<N$#ZzF~
z?o}}Fjc<T?cYG7f`{VmyPWtMs2z`Wi$NuyulZW<4Mq@_T(1BPo9vLm($9HT6hrpS~
ztB*3qv29ZbjbJ){;@b;fGMdR#zg--dMH|hVRA~Ktx9idum(Je5#((BDtUq|;!VX~G
zJZv8@>g7wx^i9fgZG~`j|7U0^zyH+w^UlCx3uTPR&{057;_Guv4$7eV4n1gsWt8=>
zHtkJ6w9joR;)c5Ia?iS<If)zYUd-V@DWVI;P(Rm0-J}Jb1s>J{-);42(3_B0fsw`G
zD(E*gn`Lnck$W(R-)bbU^ve;fKZ#o}zx{XPUw~n?Cq&Y?4X1z<rdCToV{WPIH!#+|
p(0XMDG(^=LV(K4=^5(PUFRcGQ=ud-}ipsUW^ZR=#=J0p){{gvEHZuSK

literal 0
HcmV?d00001

diff --git a/tests/dynseries_test_data-4.xls b/tests/dynseries_test_data-4.xls
new file mode 100644
index 0000000000000000000000000000000000000000..39d5534fe7a76ce893bec43f5da5617111f35732
GIT binary patch
literal 5632
zcmeHLU2IfE6h3#mTW(9~ZVN>%Qm;j}1r{S>6l1V0ZJ|x1YzoH2kmypjWnq7sb{qA<
zxD=Z3Ac>|XzK|$MUx)@ZCQ72lHu~U$e=(AvPv9F-lf`HZ33UCwbMM0K(xtnKCYa9V
z%$)h==gc`XbLQOr_M5u%C*NzlAO-0$sgT)Rl~lTL1H7592ShyJiOuG6xjYPZG2KQM
zxazExd+5a``as<CB_Lu|PI()tw7AqVEYL40{L*4cw<J-H$P3u<($h+u7`M1mM!Nk)
zDg77fvnc<%1s1Xu+uio3|E3?W02SVU`g-2~YS2<p4QLst7UT!v36MHaJ!m;-1*ieE
z5_AXXPS9PTM$jtI-JsQ=CJ@(PIVJfu;O_&ib+8tvysp_I_itFB%ET^K`sAZ!U()5P
z@4tW(@ve79&&5x`_R28NMrR~GVEtEVo30^Z@N7=wkZuKM$O)je@{Xb(Yra)aA3C**
zwFLzul2fQ~+;PpDHLpc($cH-SM@2T_Tz-LGxtCsXE`iVJfd7k0MB-A=ihj4MwaHr}
zQ+!`{boX`lcRX=k@6D9_q4xoTG)-H?xiH0lcVM|WPOazbUkvB0^Y#D#;#07xMfIGN
zx90}i4%tF{T@gG~1YchSuet%B^x#fqB*!w4snD`6Q>kTr#;fJ>%n~hEWPG`2^#)A9
z>mI{EM&jF}W3hNVy6I)y&U^8jF-(xip5uo6EKk!%XZuy5$}D{`FELL7PnDZC%hD`;
z_@|iDl*0ymzBz5QBX5_cOZ4*a`X;=;39oMc3CDj$*654DR|B-8D~#68RC07IF`SO2
zk`}<uaBmJzhbh}2mQTlk*#H9LBt8{P9=<QO9}3LzLp50KerUm)Tc;}zV7e=(E`7Ii
zU%2fV#WO(iX)P@Z)efU&#=BleY|wmM`>w#MEs<bnuz61`5goPqqR(0VsYE0h>Pw9z
zBJt+nrU!!^4bsYI=;qzRk)fy+3?I?yk7^#oQZ{S4*w*6WTfraMcy4^-xoq1y7k^Tk
z@x1Pba{P@;$Oswv@%hq_Coy-myr>ow<JeL@yht8C!nV7%A8*scjUwO3y@eV4LX4F{
zjEA5Qv$t~YSemo2A3qS>*i{V=?0`VTt{K=g%C&1A-9nL15D*ac>m%dWFu^ZDARcYw
zs{A_Jjcr_AzK!98dmLBkcY+dz7Vb8#)~`>5jpo~akuY#iwg>GvR9PM(H5(@LOGWkp
z9p}xqDqfYfZHtO4VPA9{uNCDy?x~j#^n1D8)oV59v+F7V>=5qJ(Dh>r^$kAl?8K{3
zRx%JtRbUh+2$(b>-b>A8J7cb$v4N4)XlgKRbw584ja!dCvT;vjUleXbcVSy>aL|4>
z?J;HN(8(5B_DFlcEYvpUnS!=DKk>$Imv<cqy!EOn8(QA~ft&I<D8E@f;JNu>2aBU*
zym|~oL%s%L-1;Vn4(M$V<JU7FF8bnCI~HZ^x;y>Zso?{WWYp@|e=wSeMUo4*agK*T
z?I1}`oMFtXJnKm9pinw?^!w9a8{~TqH$MC;c(B(}G5tBW=j>N!Pu#yMF!?(44_!Xp
z1<Y4~?FB~P&Pho;s2oe(is5L!mTu+upUN*dgVzMP7`+b8Nq-7opCfWe_UU)%Ay==`
z*m`J7eR&S@m#CDHlN#;PW}T3nK!m#sYdBcS&^di5pZZWX)11a4m3x5qI&B8z#wA*$
z=fZF`<lB<%eBlv-NWuPAV_%=_mNDp`K-9}`|6cqHFsOS%B#me|1*CXtb>!0lma2a<
u`sM>#pL9XOfUY5`|3H+to-Kbve?B?s;wqKhQm*~o-``~mn`gj3k^dL50XEP8

literal 0
HcmV?d00001