Done. It is my fisrt contribute please control Now harbour have 4658 test instead 4455 I can't try xbase++
Harbour Regression Test Suite Copyright 1999-2000, http://www.harbour-project.org ------------------------------------------------------------------------ --- Version: Harbour devel build 1.1-1 Intl. Compiler: Borland C++ 5.5.1 (32 bit) OS: Windows Vista 6.0.6000 Date, Time: 2008.03.10 17:19:31 Output: (stdout) Shortcut opt.: ON Switches: ======================================================================== === R No. Line TestCall() -> Result | Expected ------------------------------------------------------------------------ --- ! 594 MAIN_HVMA(341) saArray[ 1000 ] Result: "E BASE 1132 Bound error array access A:2:A:{.[1].};N:1000 " Expected: "E BASE 1132 Bound error array access " ! 595 MAIN_HVMA(342) saArray[ 1000 ] := 1 Result: "E BASE 1133 Bound error array assign A:1:N:1000 " Expected: "E BASE 1133 Bound error array assign " ! 724 MAIN_HVMA(503) RTSTR( 00000500000000000000 ) Result: " 16 500000000000000" Expected: " 21 500000000000000" ! 725 MAIN_HVMA(504) RTSTR( 0500000000000000 ) Result: " 16 500000000000000" Expected: " 17 500000000000000" ! 1069 MAIN_MATH(359) Str(1234567890 * 1234567890 ) Result: " 1524157875019052100" Expected: " 1524157875019052000" ! 1429 MAIN_STR(275) AllTrim( NIL ) Result: "E BASE 2022 Argument error ALLTRIM A:1:U:NIL F:S" Expected: "E BASE 2022 Argument error ALLTRIM F:S" ! 1430 MAIN_STR(276) AllTrim( 100 ) Result: "E BASE 2022 Argument error ALLTRIM A:1:N:100 F:S" Expected: "E BASE 2022 Argument error ALLTRIM F:S" ! 1502 MAIN_STR(376) StrTran( NIL ) Result: "E BASE 1126 Argument error STRTRAN A:1:U:NIL F:S" Expected: "E BASE 1126 Argument error STRTRAN F:S" ! 1503 MAIN_STR(377) StrTran( 100 ) Result: "E BASE 1126 Argument error STRTRAN A:1:N:100 F:S" Expected: "E BASE 1126 Argument error STRTRAN F:S" ! 1504 MAIN_STR(379) StrTran( "AA", 1 ) Result: "E BASE 1126 Argument error STRTRAN A:2:C:AA;N:1 F:S" Expected: "E BASE 1126 Argument error STRTRAN F:S" ! 2318 MAIN_TRANS(529) Transform(stod("19920509"), "@E") Result: "09.05.1992" Expected: "09/05/92" ! 2721 NEW_STRINGS(484 hb_ValToStr( 4.0 / 2 ) Result: " 2.0000" Expected: " 2.00" ! 2723 NEW_STRINGS(486 hb_ValToStr( hb_SToD( "20010101" ) ) Result: "01-01-2001" Expected: "2001.01.01" ! 2787 MAIN_ARRAY(107) AFill( NIL ) Result: "E BASE 6004 Argument error AFILL A:1:U:NIL " Expected: "E BASE 6004 Argument error AFILL " ! 2831 MAIN_ARRAY(163) ASize( NIL ) Result: "E BASE 2023 Argument error ASIZE A:1:U:NIL " Expected: "E BASE 2023 Argument error ASIZE " ! 2832 MAIN_ARRAY(164) ASize( {} ) Result: "E BASE 2023 Argument error ASIZE A:1:A:{.[0].} " Expected: "E BASE 2023 Argument error ASIZE " ! 2833 MAIN_ARRAY(165) ASize( ErrorNew() ) Result: "E BASE 2023 Argument error ASIZE A:1:O:ERROR Object " Expected: "E BASE 2023 Argument error ASIZE " ! 2834 MAIN_ARRAY(167) ASize( NIL, 0 ) Result: "E BASE 2023 Argument error ASIZE A:2:U:NIL;N:0 " Expected: "E BASE 2023 Argument error ASIZE " ! 2837 MAIN_ARRAY(170) ASize( NIL, 1 ) Result: "E BASE 2023 Argument error ASIZE A:2:U:NIL;N:1 " Expected: "E BASE 2023 Argument error ASIZE " ! 2843 MAIN_ARRAY(176) ASize( NIL, -1 ) Result: "E BASE 2023 Argument error ASIZE A:2:U:NIL;N:-1 " Expected: "E BASE 2023 Argument error ASIZE " ! 2858 MAIN_ARRAY(201) Array( -1 ) Result: "E BASE 1131 Bound error array dimension A:1:N:-1 " Expected: "E BASE 1131 Bound error array dimension " ! 2859 MAIN_ARRAY(202) Array( 1, 0, -10 ) Result: "E BASE 1131 Bound error array dimension A:3:N:1;N:0;N:-10 " Expected: "E BASE 1131 Bound error array dimension " ! 3401 MAIN_MISC(554) HB_SToD("99990101") Result: HB_SToD("99990101") Expected: HB_SToD(" ") ! 3433 MAIN_MISC(595) Str(Descend( -740.354 )) Result: " 740.3540" Expected: " 740.35" ! 3434 MAIN_MISC(596) Str(Descend( -740.359 )) Result: " 740.3590" Expected: " 740.36" ! 4656 MAIN_LAST(179) __MRestore( "$NOTHERE.MEM", .F. ) Result: "E BASE 2005 Open error $NOTHERE.MEM A:2:C:$NOTHERE.MEM;L:.F. F:DR" Expected: "E BASE 2005 Open error $NOTHERE.MEM F:DR" ! 4658 MAIN_LAST(183) __MSave( BADFNAME(), "*", .T. ) Result: "E BASE 2006 Create error *BADNAM*.MEM A:3:C:*BADNAM*.MEM;C:*;L:.T. F:DR" Expected: "E BASE 2006 Create error *BADNAM*.MEM F:DR" ======================================================================== === Test calls passed: 4631 ( 99.42 % ) Test calls failed: 27 ( 0.58 % ) ---------- Total: 4658 ( Time elapsed: 0.1840 seconds ) WARNING ! Failures detected -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Przemyslaw Czerpak Sent: Sunday, March 09, 2008 4:18 PM To: Harbour Project Main Developer List. Subject: Re: RE: [Harbour] 2008-03-05 19:10 UTC+0100 PrzemyslawCzerpak(druzus/at/priv.onet.pl) On Sun, 09 Mar 2008, Massimo Belgrano wrote: > > + harbour/tests/transtst.prg > > + added regression test for transform function > Will regression test moved to utils/hbtest/rt_? If you can add them then it will be very nice. For sure it will help to verify any future modifications in TRANSFORM() code. The transform tests are in utils/hbtest/rt_trans.prg best regards, Przemek _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
