Changeset 3371

Timestamp:

05/18/05 02:43:02 (4 years ago)

Author:

mugwump

svk:copy_cache_prev:

4945

Message:

More operator overloading tests (sorry for the flurry of commits)

Files:

• t/subroutines/operator_overloading.t (modified) (4 diffs)

t/subroutines/operator_overloading.t

@@ -4 +4 @@
 use Test;
 
-plan 11;
+plan 15;
 
 =pod
@@ -53 +53 @@
          :todo<feature>);
 
+# don't know if these syntaxes are legal...
 eval_ok('sub infix:"<"($one, $two) { return (rand(1) <=> 0.5) }',
-        "quoted infix subs", :todo<bug>);
+        "quoted infix sub", :todo<bug>);
+eval_ok('sub infix:«<»($one, $two) { return (rand(1) <=> 0.5) }',
+        "frenchquoted infix sub", :todo<bug>);
 
 sub postfix:<W> ($wobble) { return "ANDANDAND$wobble"; };
@@ -60 +63 @@
 is("boop" W, "ANDANDANDboop", 
    'postfix operator overloading for new operator');
+
+sub postfix:<&&&&&> ($wobble) { return "ANDANDANDANDAND$wobble"; };
+is("boop"&&&&&, "ANDANDANDANDANDboop",
+   "postfix operator overloading for new operator (weird)");
 
 my $var = 0;
@@ -69 +76 @@
 is(Σ [1..10], 55, "sum prefix operator");
 
+# check that the correct overloaded method is called
 sub postfix:<!> ($x) { [*] 1..$x }
+sub postfix:<!> (Str $x) { return($x.uc ~ "!!!") }
+
 is(10!, 3628800, "factorial postfix operator");
+is("boobies"!, "BOOBIES!!!", "correct overloaded method called");