Implement [lsort -real]

partcl · Jun 28, 2010 · 770cdcb · 770cdcb
1 parent 74889b4
commit 770cdcb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/Partcl/commands/list.pm b/src/Partcl/commands/list.pm
@@ -285,7 +285,7 @@ my sub sort_integer($a, $b) {
 }
 
 my sub sort_real($a, $b) {
-    error("NYI");
+    pir::cmp__inn(pir::clone($a), pir::clone($b));
 }
 
 =begin fromPartcl

diff --git a/t/cmd_lsort.t b/t/cmd_lsort.t
@@ -70,8 +70,7 @@ eval_is {lsort -dictionary {a10 B1 abc ab b1 a1 ab a2}} \
 
 eval_is {
   lsort -real {4.28 5.65 6.20 7.66 7.6 2.4 8.5 0.4 7.6 6.3}
-} {0.4 2.4 4.28 5.65 6.20 6.3 7.6 7.6 7.66 8.5} {-real} \
-  {TODO NQPRX}
+} {0.4 2.4 4.28 5.65 6.20 6.3 7.6 7.6 7.66 8.5} {-real}
 
 proc sortByLen {a b} {
   set sizeA [string length $a]