From ee3fc867e5c9434c648cb4a154d53cecbfec31e1 Mon Sep 17 00:00:00 2001 From: fernando Date: Sun, 15 Dec 2013 20:26:35 +0100 Subject: [PATCH] Changeset: 86 arreglos --- TESTS/DATOS_READONLY/fb2p_dbc.dbc | Bin 0 -> 6657 bytes TESTS/DATOS_READONLY/fb2p_dbc.dct | Bin 0 -> 27968 bytes TESTS/DATOS_READONLY/fb2p_dbc.dcx | Bin 0 -> 5632 bytes ...foxbin2prg__c_conversor_base__doBackup.PRG | 122 ++++++++++++++++++ 4 files changed, 122 insertions(+) create mode 100644 TESTS/DATOS_READONLY/fb2p_dbc.dbc create mode 100644 TESTS/DATOS_READONLY/fb2p_dbc.dct create mode 100644 TESTS/DATOS_READONLY/fb2p_dbc.dcx create mode 100644 TESTS/ut__foxbin2prg__c_conversor_base__doBackup.PRG diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dbc b/TESTS/DATOS_READONLY/fb2p_dbc.dbc new file mode 100644 index 0000000000000000000000000000000000000000..c72c78c6dc236ac7bfec11282bef7b53c88a5fbf GIT binary patch literal 6657 zcmd^@NsH7#6oBKnjLVGszLv{?NA(|!-96A^PdAxXm{X`EHEpyzX(~xONB@Hd51thC z;!Q+EL`3l9RYXL@pW=I|Om|hP5ie6E_?o=D+NdwD>ebR$=I7=Y9LKpl^9-~qvs)df zef>tG)@|0Iq`3vuHu%ZXS#%rAW%>3g<)VFewbO8FyP$lx+!$<8zP#9i@R^)9tB%*UnkQq=aWS7%8r9l=Y@y(=Xp0i|hBuI#=3gk+b za29rW60k7mEL}-*9)O2U2}1sYNA!m&f^ndFvI^Pu@3J5>g-8fu9fwDP#0BTikaad> zameBzVyOvKghY`bam7K%F7^9jOygwWbJnN4mxQbz`fDc0q(1f_A&3My3rPfRg0t3( z{3w)KSTJ$3KoMOR)=tnBNKg3E0$zWFfUW z;02)yiPKbtv^^)MK+b89e$>m@y1|7}jO$oWfy6_M>dBA|vt-=FyfFoGFXXA~+3Q>^uLtfG#!-%s0no}Ox3L8T3YKS664z1rsMrlL< literal 0 HcmV?d00001 diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dct b/TESTS/DATOS_READONLY/fb2p_dbc.dct new file mode 100644 index 0000000000000000000000000000000000000000..078324e3061dcad1353b30351bd34711b24d2ee1 GIT binary patch literal 27968 zcmeHPeQaCTb-$0)hecVIzv7Q1PM+w-qAW$T>^f=c&<^$ZWHY8nnWQWyO`uXFC3B%k znWP*CUE8H-gRcJ!L5Biew+;q|ZPC5icqNe@C`|dgS+;h)8_ndRTD1`P+A;fcd9(;Z^C7_|%J9pxbCO($7 zKkJtTmEW?3%kQA{MnCTI8!b!tD6jR&`aRli&d}!PjxNq-=jKQ82p{L|&SynGr+RYP zboS)f5pjfHeg4T@v6BAvoSx0;xpKKwrbHpFmvamFOUU|3ee8%|3^9JUQM!~XR@3Et zNg-C#b3pW4mHNfgjJR!fww#~M7c04Pb+%Z#G*`|Q(&dFxHdg>!fuYe*EIb+je70I% z2n-FWV*OlfX)&9w=Gqqn+$y$%YugU8G6%04`H=h#DZfKPem^M=AyX3vlc_{J88b%1 z)juB2xHLKAEQ{`fK& zV^Mf83Zv14nK~bec8jT)nMlMFH5jkAfzgd3-FG~qMh)^xPQ9{0yJdr%hCJtht%iJG z)OHaXD18r<`oZnr6RqQSIz;Ulxat5c^v}(HQOy|XN+zAnO{L4QcXKy2Vf6o`OWYLV zr(OXTo|<2&Z5JnrZ|};DWsqB0MJV4{mr$rFcRJld@k*g|VW_5ziHI2u$3l~)4=*uu z1`?V!`;j(6Nh1_Cr$PxcmU6_`FQ)22wmb(tyTnIb^6Zwvd>cdw@U+(E#u;fJEH@@G`*D4Co*LI&B3ioI=yKGkG*{-!OU_ z8P#i~)p4yhQqKbyGz7ER0p`%YkuEOKB{i66ac7~4XvBd=mO7cG?q-&{7_g-o(9M9J zX22E(_?iJd4CrkFczg`l+6?GrKwmRpD+9Ix;2w?rFdZoxgRyuI6m8N>CPSyqF4DPp z*rcqfMErCjGzk+YhiW1|lkC9Dg$rB6=@5_JWG@s^Drb0n0xvQ7k}wUQ4T*%e+G+E` zRDvMJnMgE@B1p$LjS@Xpek4p}Ih*j$dwOk^uI+_+@IaNlc%({qLy=hpNcUiMR%(wZ zeSj7SF^}#&jPC6g^KY-9_~(HxRV6^33=R1kQG3`L6)3>?KnLEpR%%CRa8PNf)mxy# zFTHhpr)bQ(Mi%yMvY-R3_oS0HLmlD^7#&Z@kpZ)KxAW^-Z7VQ5V8xgrV?1#e&W7{I zR8Zb_wr84PEk3N(o)G8Wl{V?GJ4B2p@3Ip`nt zQNs^F@8OWyLdl8}|Z6;@n0dmtL z;xW?aA2QP+$tpQ)bn#8Eh)+xqv`4d>^q4HV#VLA-fqP_8rrYBH4F(>Sz&^3>%-znE zcDM5l4Z_?Cckg3)#8D5SbScxfq*aAhi^wp({ z|Ltv#6CXivB6HBb^w7)L4eINqAjvpKMF#B zsONvAL9@U1?b;wHV!WXvy6^Pj*@~wR&o(^pM0d91*&(BoezJeCZzQuTE2KC_AFu6! z>F8rXw;&m(%rIcPk-Lp^I|Yjyc?cgsjYvQbxN9O9;F3`2aW$YobkE~#B6@&o2N6E& z48lX;Ry7YUtl*@9Y#j?sti&-`^>C;39zXY+dm(-#duA zTVEj=kcQuc2N^#)MKclB^v6KrtvkD9IK5kbJtV*O$gjQ9+w3Je@HVaq1UaUMRJKn{ zEaL?WsANBt(^dTb5oj@c%aI%Kellw`4pb7+vh+Tv3M?|?yNU50 zVJ?F=(u~gx6RUXHj@c1RZx1S&_HxsBegIy{Z&QFkP2#3(scXtMfN7p(y#EN`9pbY! zKh20*HB5k!_a6n;HZq4oP%!#e-uf2(q1S2=5V%Fm_g=}jnmSQK>ju?7ucs7D+yU2w zi;PwKK&@3c<__Rop;>(_M`Z0lt;sqjBGMKm>#eBm8P_(NbvD+qpiTfvwpz9;67D1C zO@XDXb(;;6@BNs4!gic7F`-IW{ymurCGg)2DQ)c%u=Z1CtP|g6EW8C@(%y6hSG864BYuI*^w;vX?F0q)&$aRTD*SbXS?cD+f z557#AcQUBEeO{Vu40K8($JUw5)*dojWR}Q#v0b-J@U7Vu#7mZae2DBLy|T@Nb$6S+ zy)Dh&L2_59;KuDP1SxyPjo#Z^1m2PCCteP8)((Q;K58;}byhfS>rRG{t@}R9y1&+7 z3$xOy9dN8W+rs^13mfb_`yteZc96GWgG}7)6JL@olL6H}YS|%aeSf?MjC%;>*1NZ9 z`hmptUayZ_!0R0l2Q_e?NaFRUUU2#%<{0}>^}%J7Qj?!gcVPZV*1k(rxs!<8`;P(q z47i}sz_{!A@WY#ri3l%_W2L=PE$1^;y}VS&=~wcl0@l8>qlh=~|NX~Nu+FZ}cd$2r z1nRs2OTeDGlQ*E}5$41#YnvOF!`a_?pLp|hZh$x9k2I3>0s7U@%*pkTg8R~c1>F~> z5N*6!kLBEGIVH*y4{~*paHE@}S*z{UnidLMyE)srQG#RG>m3ig+ygIX&lo8BC;zgF zLt|@gJ0rx{%kU2C_B#}ylP#|gx5=r6-PzAvW?`x~6fp0-Yf zCl8KO*+o%&om1J}!l~@GoC*?_Q~9x1IhEb)ROT$FLUR(gQ~6JClT*RG;bF9FQ%;5a zf1OkLfpn{oK%G-z39QShC~jO%<%=EniMPwr;jPVEU5oyBJ*D739{m;YA1<%Z=m#2R zLv?OpyEBtb9sgf(unFnO-!RmJ+g1viM37U1n&3{wy0}?K4 zZ9Z&pc)KK{&?2#8dMQT044E{k`>b?qJTy0{@i;)eDn{?fl|Vh7Sk z#cjq2F~*p7S&Vr#tr=?!a6FzH+72xw-qhs38_0Xt&Jy3n+Q=XLQOsO``+qzLx9*x^Z_{xQy_9OCmBIJ^z`Il$A%q31TzuY)$V z=$dv8-(wo(hxo5d%fB~(n?@bi0lf@be=ZW<%i^Ql>UYqp9pGQn&WW;z@Y7ldZNoSI z-Jm+rg4^EPkPFpt1N4cC_3t{#793v3za83uc8zJh!!;3)*TkEU)pgJr(B4Dtfag85 zo8SZqxzfi)8MN+|AL2{$6zaIf+}{QlRQs4`%;xPHu!y?>?Y5Zn+y>{bi_6-Zkh{ZK z2)w)}8uLP+i6bx++N2eTX z7Z?)54DWIBX3M!ushpjq8RzVkbRm!9R{2s9sK*%9w_k6LG5mNJPFiR|DgTa zE;>!4iC(5KJD*&){k>cV~buwLfh4okyPlxlB#nFjU`BJ(nWWOEF6lP0YYN1?O zS`saRFFJ*I;^h@)lt8@9{(Z%w@OI6JHD=$Ijr3!i?oh=m$uf4<~C&=iP%vBU! z--qP)Ri!^&@_SU1-$%Ui`y=W-fJlerd_jGWsQfAQeonn7)VZ)<1NMjVh!~xD%F5*6 zhxka99F|%#mlM&~M-a(;0{muJgdX97nhl~xcshS(}U z-!hkbSD#44Cw1LsQ6`85U5~_YRzZJ09*H^drY7h*wo2LCeH5xh;&Tok9>0gfhg^*i6AkriWbJVN(XPKqHma)}E;fAx zlG@*R{!$xUvwl(tL8tLFF&PUSBZfEkq54m%_AC8=Qkk69+K=P3Jt&FVBb%$&Dn<35 zl^U}T$zFLXx53yKN)4H8{x;j-Z=_wrF&Q(-Z&#Uh<%FD&!v@oG6&(3G(h;H)-{A-ui;9vQnHTeIA zYzp!3lgUQ@yQnfT9!^Bgn~C73;^lM(3+B0^j+9ZrRIoZWwlI4U2h_(teFBp;!ZNUN zhkd*g(~)pco##F=HRGhi`_lM^Y%*`z=%vN&MrNz;y zv$J#rWkhetH)C|fD%_k;r(8p1Zkj+KHEE{e;dm1y1`WY3F3#*XfhMpXkPJ81udGTF zzT4V00o7Fi8EdqbMngMwK0v0AztE81RxWlUg^qsL1h$JVl@Q=(O2uL>Low>C90;m6 zhj0#(@HP;CH2U8)?mws=yl2zTY7A8o<5F*J`@2T{N>lEO`-h-f)UV>7)*U)(+8SxO zph<4Zrv6a5H3Paj;*4Wj`b0co;GBKxOhEU$?sWJ^^yjCODG4yo zM*}*JSOFhrmjgq(`q$^fQ4y-D&*xOA7E1r`DpU)xKko|re21MzX6G`qaV*@1)73Np zJyGml!Uw=HC-n?v&ZR54So%_KL@$_EGliu}{tBgIrD?thhU9s+nFeG}3jT%|sno14XMPM6j8n z1s&3x*tBKPK+uv$Yl0TE6+sKe1Z|B(`w#PKxjgtZ@SGkl>9|j(C(OzCc~i%|z{z+x zGVy|5y_m1)g?uqLfRFy%fUDHu!+ky+U(DpPOXZwyor&u66-pTdoP|OnS4Hi3SE=A= zb+pf?M<(<@B$H~5eD~n^0aGCl5Lj&k0YOqs&g39Y=G-*l*NI4~C zmafYU0P77X^6d3#GX)i$3JltJmo0e zyoM{0wEC7Mu#Gnzqn1ICba-43;5!yavk1p-h;>5rNS_Z^pQaNr8`S5km#Jh2GQ`;u zjF@V!T+yqU30gGc5me2@a<4+lOSzGTJ51~82X{AYOzh+p11?5}o;~TXVu^GLp*wbX z^uLA8bDf3D$YpKx)4Y!E?YPzD+ z>`ce96CvpNDizzHK9v!6my2!mN$s#f#a!A%7rSC5$aGSkPbTT&-Y&i{VO)UL*_!0K z0#+zqxPW{oCzvkeiUI4o*vJ?ZK0mK>M-E!K4VTCUsY9cFYGgK#McE3XTfG(T@YqN_ z^`k>CQz>`#uJka*G&TzJ^L@Tn)Np+*Se1=#gK!iGmNeR+93vDGQych4Uk>`wG7?h| z>|{&&s~7X=+kxDr#p-JT>(n>FrS`Vu6ja*e4`Un*pCBRBk&;qDokUp4AzNz0SDPK)-!}X;BL%WNR=OA|PFHft#Zq;oP>g3XOXZ4{NEb6ur-FkKgnzJ*5Jt$$MS1FZ94yOG?j=<21r(t2SfyrOywd*A2IBNG_C5`7%3}Yf%$dC z8N`ySo1pi$vJ6Yd>uA&|KdtrHoQ@pl_U8%}=9R?jh>m5+)>f}zDGuRcaY3KM&q!QM z!<`r5<)qtTmm?uLbHimgtn@kkPhyhcdsxRcK^hr}cr-d5GR{)E4ot>oB&u%SE0iGcnqOL54GO8yoT*cn`x^=7^W`hhu}D- zs*@H8(-9ZbH?O8MRiG1bDOMMu= z(iKiy#tU`u)lun#H;qNN!#LE!O#Y;Pr9#Tw zqUWc_qY=Y~1rQY<<&KboA2))w?PKADQX$g0fZw{kORZvR2$#y0sx@Zq5onJX{m>zO z5$aT=MFw7tpkQk*htO$!n#z9Wvr^Kou&MIW=7gzjkFOjhYDX5l7>Mk@D z$Rl8JR}V3{Mt+cgcnn$2*bU+!T(LxR0ckDxE;7m5qQgeVG7=6ovJF8$W23_{yC5Md zrldRq{-#qin4$Bz0qQ*{P+h5KX==xM)xvyW2{R5c!`sP~t5LP=Nzsmuh=Af|0+z78 zg5<^g!bO}Tv$R5ILqyaq-$KQu`taJNT4J(8@P;WvP?VXy#!7fk(PfumslBQ_ycZABib3?(B2W(6T!l8;stdnW9zo`a9HJLUzms zdesrXJ$}$sySE+MOu3zlLck_9?A3hrqN@oTWT!PVO7R?4C<-y9#m0^Pr*FozA(WI}oJ$(>*JqW!xW^=-<2cZ{ip)!5H z*r69fc`MT3xUHPSW$>kn3gGm7Rz`64V0XLQO~z`QkV{H}t3=pc3$2^=7g z-T(~-RU}S9j5WUapnFpc#7oZ<9J)i60!_-SKnAj-l}!~)vgckS-f9sX)iv2o1J$}~ zTP0w^dSbp(Tq+c-HblZhBmg_p;hFPQm65Ri>`6p<4wUMkX1hBcVHAaz0r#~PS2Roo zI3jkJQ6aH{HT0aUgkUX0V*+e2a-kwL^|boY)-x6-!QA09y~_&L7eW($<5Z+xM5-EF zm6N7<*69lD8M$Snkeg>REz!`m7Fj-AK`aOIm9pG*4!Ee`q)mN2qyhF0M!qtyiZo!^ zB0^0}6^yrFmxQoXG6}6$Kuge$f^JF=SJy;a7aMECERc4&i7{8w5twrerj5{A zOks%F{g7j``E_Kpx(qiZ!F7z}dg)oiS@~OHPG<3mC%Je+M=~;416iOmK30J$m8jBW zGEHmP^sB-8e7SVV`cZURKIK&c_mF^DW)EPkleCu3FW9V19>-gAGV;qYIcvWXj#Hrc z)%rD?=^O;$*8~E; zuO8uVIJ$QtdnZU;HLAb&NVJ{$G%AqQFEUEqupX@z!8fgk+u^#3+8tr68nL4(jT;X4 zDxY@JX&<3)STbvjFh}l8`IltFVx2ML{SS@Ry^V=@9QSE9dT&FPqU{gd!`krYe*sel BOsD_= literal 0 HcmV?d00001 diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dcx b/TESTS/DATOS_READONLY/fb2p_dbc.dcx new file mode 100644 index 0000000000000000000000000000000000000000..2580acb6212a0e58e8703c3e26081f50c5bab040 GIT binary patch literal 5632 zcmeHLTTc@~6rNrw3sS685KyTI2096mYK(72p(Yp*gN?=qvzgtQmW6g_vo~5wNW8x* zk3RTM^wD^WCdSK);_Y|f>~?zziGe4QmQFI+Gc#w;p39u`ofZT^Z3tk?S6j4+miB-T zIH7KbyQPD?2jc?354OGW$+x`?Ks4GL3ROK z`!>OnZ;UUU`NG?d)sNd$3wZ#6D7OZI8=1v%4eL}j6*7UCv`l5wENK+YE!;{kj#oBR zT%Z$R^4daXawa{O&ZK9?CtAoC2icTRL;X*9BX!}5Li5C3Wko^_LaRsn{^YS40iXv| zKisIBWms5OSoLV%pIkRyD!ZHd`uIV}aj)A0Joj<<=TsyT37i6@lh97U)#Lr8F<5G9 z8xMf;UMe_+T3Znd)MSLIip{f_N>;9#8I8%46_>DK;xI_Kv3IU9?*wb{9|S8yrA6)^m*Th)CItW2wuWl~NjK z(kV3sb^3i=u*(<#w(CR1YRPBqpjw^fxDYRq60OW5GTh(|FU%bsxO z3scifRXL_}u{tdz>;Jm=mXq;*J{$fXs57>yruV>r+y4#xxBqK* zdrcqWJsHr!TbSza|9Rg<{?71lI27^^f}zme*gbe3K7bG5qvU(EnR<41Hu)O8L2uDJ z^f>tneMC=V(c}m8BpFYBMqkiZ^bOrfen&sh7W#>Pq2K5a`ipi~W9;P~n06O)5I8F6 e=wY9WS02Pwfz92k0F{GCF4ELNq5@EjpzsgpS#jS0 literal 0 HcmV?d00001 diff --git a/TESTS/ut__foxbin2prg__c_conversor_base__doBackup.PRG b/TESTS/ut__foxbin2prg__c_conversor_base__doBackup.PRG new file mode 100644 index 0000000..8deb05e --- /dev/null +++ b/TESTS/ut__foxbin2prg__c_conversor_base__doBackup.PRG @@ -0,0 +1,122 @@ +DEFINE CLASS ut__foxbin2prg__c_conversor_base__doBackup AS FxuTestCase OF FxuTestCase.prg + + #IF .F. + LOCAL THIS AS ut__foxbin2prg__c_conversor_base__doBackup OF ut__foxbin2prg__c_conversor_base__doBackup.PRG + #ENDIF + + #DEFINE C_FB2P_VALUE_I '' + #DEFINE C_FB2P_VALUE_F '' + #DEFINE CR_LF CHR(13) + CHR(10) + #DEFINE C_CR CHR(13) + #DEFINE C_LF CHR(10) + #DEFINE C_TAB CHR(9) + #DEFINE C_PROC 'PROCEDURE' + #DEFINE C_ENDPROC 'ENDPROC' + #DEFINE C_TEXT 'TEXT' + #DEFINE C_ENDTEXT 'ENDTEXT' + #DEFINE C_IF_F '#IF .F.' + #DEFINE C_ENDIF '#ENDIF' + #DEFINE C_DEFINE_CLASS 'DEFINE CLASS' + #DEFINE C_ENDDEFINE_CLASS 'ENDDEFINE' + icObj = NULL + + + ******************************************************************************************************************************************* + FUNCTION SETUP + PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + LOCAL loObj AS c_conversor_base OF "FOXBIN2PRG.PRG" + SET PROCEDURE TO 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + oFXU_LIB = CREATEOBJECT('CL_FXU_CONFIG') + oFXU_LIB.setup_comun() + + THIS.icObj = NEWOBJECT("c_conversor_bin_a_prg", "FOXBIN2PRG.PRG") + loObj = THIS.icObj + loObj.l_Test = .T. + + ENDFUNC + + + ******************************************************************************************************************************************* + FUNCTION TearDown + #IF .F. + PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + #ENDIF + THIS.icObj = NULL + + IF VARTYPE(oFXU_LIB) = "O" + oFXU_LIB.teardown_comun() + oFXU_LIB = NULL + ENDIF + RELEASE PROCEDURE 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + + ENDFUNC + + + ******************************************************************************************************************************************* + FUNCTION Evaluate_results + LPARAMETERS toEx AS EXCEPTION, tnCodError_Esperado, tcBackFile_1, tcBackFile_2, tcBackFile_3 + + #IF .F. + PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + #ENDIF + LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" + loObj = THIS.icObj + + IF PCOUNT() = 0 + THIS.messageout( "* Support method, not a valid test." ) + RETURN .T. + ENDIF + + IF ISNULL(toEx) + *-- Visualización de valores + THIS.messageout( 'BackFile_1: ' + TRANSFORM(tcBackFile_1) ) + THIS.messageout( 'BackFile_2: ' + TRANSFORM(tcBackFile_2) ) + THIS.messageout( 'BackFile_3: ' + TRANSFORM(tcBackFile_3) ) + + + *-- Evaluación de valores + THIS.assertequals( .T., FILE(tcBackFile_1), "Existencia del archivo " + tcBackFile_1 ) + THIS.assertequals( .T., FILE(tcBackFile_2), "Existencia del archivo " + tcBackFile_2 ) + IF NOT EMPTY(tcBackFile_3) + THIS.assertequals( .T., FILE(tcBackFile_3), "Existencia del archivo " + tcBackFile_3 ) + ENDIF + + ELSE + *-- Evaluación de errores + THIS.messageout( "Error " + TRANSFORM(toEx.ERRORNO) + ', ' + TRANSFORM(toEx.MESSAGE) ) + THIS.messageout( toEx.PROCEDURE + ', ' + TRANSFORM(toEx.LINENO) ) + THIS.messageout( TRANSFORM(toEx.LINECONTENTS) ) + + THIS.assertequals( tnCodError_Esperado, toEx.ERRORNO, 'Error' ) + ENDIF + ENDFUNC + + + ******************************************************************************************************************************************* + FUNCTION Deberia_HacerElBackupDelArchivoIndicado + + #IF .F. + PUBLIC oFXU_LIB AS CL_FXU_CONFIG OF 'TESTS\fxu_lib_objetos_y_funciones_de_soporte.PRG' + #ENDIF + + LOCAL lnCodError, lcMenError, lnCodError_Esperado ; + , lcMemo, lcMemo_Salida, lcMemo_Esperado, lcBackFile_1, lcBackFile_2, lcBackFile_3 ; + , loEx AS EXCEPTION + LOCAL loObj AS c_conversor_bin_a_prg OF "FOXBIN2PRG.PRG" + loObj = THIS.icObj + loEx = NULL + loObj.c_OutputFile = FORCEPATH( 'FB2P_DBC.DBC', oFXU_LIB.cPathDatosTest ) + + *-- DATOS DE ENTRADA + STORE 0 TO lnCodError + COPY FILE ( FORCEPATH( 'FB2P_DBC.D??', oFXU_LIB.cPathDatosReadOnly ) ) TO ( FORCEPATH( 'FB2P_DBC.D??', oFXU_LIB.cPathDatosTest ) ) + + *-- TEST + loObj.doBackup( @loEx, .F., @lcBackFile_1, @lcBackFile_2, @lcBackFile_3 ) + + THIS.Evaluate_results( loEx, lnCodError_Esperado, lcBackFile_1, lcBackFile_2, lcBackFile_3 ) + + ENDFUNC + + +ENDDEFINE