],
},
'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';