args => [ expr { $_->foo } ],
},
'! ok';
+
+expr_is { $_->foo != undef }
+ {
+ type => DQ_OPERATOR,
+ operator => { Perl => 'defined' },
+ args => [ expr { $_->foo } ],
+ },
+ '!= undef => defined';
+
+expr_is { $_->foo ne undef }
+ {
+ type => DQ_OPERATOR,
+ operator => { Perl => 'defined' },
+ args => [ expr { $_->foo } ],
+ },
+ 'ne undef => defined';
+
+expr_is { $_->foo == undef }
+ expr { !($_->foo != undef) },
+ '== undef => not defined';
+
+expr_is { $_->foo eq undef }
+ expr { !($_->foo ne undef) },
+ 'eq undef => not defined';