Changeset 3463

Timestamp:

05/19/05 21:29:25 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5016

Message:

Fixed [**] and added a test for it, thanks to AtnNn?++ for reporting.

Files:

• src/Pugs/Parser.hs (modified) (1 diff)
• t/builtins/lists/reduce.t (modified) (2 diffs)

src/Pugs/Parser.hs

@@ -1154 +1154 @@
     where
     defaultInfixOps = concat
-        [ " * / % x xx +& +< +> ~& ~< ~> "
+        [ " ** * / % x xx +& +< +> ~& ~< ~> "
         , " + - ~ +| +^ ~| ~^ ?| "
         , " & ^ | "

t/builtins/lists/reduce.t

@@ -14 +14 @@
 =cut
 
-plan 24;
+plan 25;
 
 {
@@ -23 +23 @@
   is((reduce { $^a + $^b } 100, @array), 100 + $sum, "basic reduce works (2)");
 
-  is(([+] @array),     $sum, "[+] works");
-  is(([*] 1,2,3),   (1*2*3), "[*] works");
-  is(([-] 1,2,3),   (1-2-3), "[-] works");
-  is(([/] 12,4,3), (12/4/3), "[/] works");
+  is(([+]  @array),        $sum, "[+] works");
+  is(([*]  1,2,3),      (1*2*3), "[*] works");
+  is(([-]  1,2,3),      (1-2-3), "[-] works");
+  is(([/]  12,4,3),    (12/4/3), "[/] works");
+  # XXX -- is [...] always left-associative?
+  is(([**] 2,2,3),  ((2**2)**3), "[**] works");
 }