Perfect candidates for hbtest.

Brgds,
Viktor

On 2009.06.26., at 11:50, Mindaugas Kavaliauskas wrote:

Hi,


Thank You! I'm still very impressed about the level of your compatibility tests!!!!


Regards,
Mindaugas

Przemyslaw Czerpak wrote:
On Thu, 25 Jun 2009, Mindaugas Kavaliauskas wrote:
Hi,
C:\cawi32\sample\test>cat test172.prg
PROC main()
 SET(4, "YYYY-MM-DD")
 ? CTOD("2009-06-25 Hello")
 ? CTOD("2009-06-25 12:13:14")
RETURN
C:\cawi32\sample\test>TEST172.EXE
2009-06-25
2009-06-25
C:\cawi32\sample\test>hbrun test172.prg
2009-06-25
   -  -
Should be fixed after:
2009-06-26 11:13 UTC+0200 Przemyslaw Czerpak (druzus/at/ priv.onet.pl)
HB_CTOT() also. I tested it with:
     PROC main()
        LOCAL tNow, cNow
        SET DATE FORMAT TO "YYYY-MM-DD"
        tNow := HB_DATETIME()
        ? tNow
        cNow := HB_TTOC(tNow)
        ? cNow
        ? HB_CTOT(cNow)
? HB_CTOT("xxxxx0002006xxxxx/xxxx0000012yyyyy/zzzz29aa as" + ;
                  "x ttx11  :  001 : 00038  .xxx xx 0093456")
        ?
        ? CTOD(DTOC(DATE())+" 1")
        ? CTOD(DTOC(DATE())+"x1")
        ? CTOD("000002009.000000012.0000000000000027.1")
        ? CTOD("  0002009.   000012.          000028 1")
        ? CTOD("xx0002009.xxx000012.xxxxxxxxxx000028 1")
        ? CTOD("000 02009.00 000012.000       000028 1"), "*"
        ? CTOD("2007 11 29")
        ? CTOD("  2007   11   29  ")
        ? CTOD("2007-1 1-29")
        ? CTOD("2007- 1 1 - 2 9 ")
        SET DATE FORMAT TO "YYYY.M.DD"
        ? CTOD("2008.1 1.23")
     RETURN

_______________________________________________
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

Reply via email to