test reversed operands
Matt S Trout [Sat, 5 Jun 2010 18:06:29 +0000 (19:06 +0100)]
t/expr.t

index e52930d..cfbbb4e 100644 (file)
--- a/t/expr.t
+++ b/t/expr.t
@@ -51,3 +51,33 @@ expr_is { $_->foo == 3 }
     ],
   },
   'Simple equality ok';
+
+expr_is { $_->foo == 3 }
+  {
+    type => DQ_OPERATOR,
+    operator => { perl => '==' },
+    args => [
+      expr { $_->foo },
+      {
+        type => DQ_VALUE,
+        subtype => { perl => 'Scalar' },
+        value => 3,
+      },
+    ],
+  },
+  'Simple equality ok';
+
+expr_is { 3 == $_->foo }
+  {
+    type => DQ_OPERATOR,
+    operator => { perl => '==' },
+    args => [
+      {
+        type => DQ_VALUE,
+        subtype => { perl => 'Scalar' },
+        value => 3,
+      },
+      expr { $_->foo },
+    ],
+  },
+  'Operand reversed equality ok';