Is this a known issue?

  Chen.

________________________________________
From: Chen Kedem
Sent: 07 September 2008 10:16
To: harbour@harbour-project.org
Subject: SF bugtracker#2096950: SORT descend is wrong

http://sourceforge.net/tracker/index.php?func=detail&aid=2096950&group_id=681&atid=100681

Descending sort is wrong for negative numerics.

---tt45.prg---
proc Test()
dbcreate( "test2", { { "ITEM", "N", 10, 2 } } )
use test2
dbappend()
test2->ITEM := 5.00
dbappend()
test2->ITEM := -5.12
dbappend()
test2->ITEM := 6.00
dbappend()
test2->ITEM := 7.00
dbappend()
test2->ITEM := -5.00
? "test2:"
dbeval( {|| qout( test2->ITEM ) } )
sort to test3 on item /D
use test3
? "test3:"
dbeval( {|| qout( test3->ITEM ) } )
use
return
--------------

bld_b32 tt45 /w/a/n
tt45

With clipper:
test2:      5.00     -5.12      6.00      7.00     -5.00
test3:      7.00      6.00      5.00     -5.00     -5.12

With Harbour (ChangeLog 2008-09-07 01:44 UTC+0200 Viktor Szakats r9329):
test2:      5.00     -5.12      6.00      7.00     -5.00
test3:     -5.12     -5.00      7.00      6.00      5.00


  Chen.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to