test reversed operands

diff --git a/t/expr.t b/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';