perl/lib/overload.t

1177 # These all check that overloaded values, rather than reference addresses,
1372     ok(!$b, "Expect overloaded boolean");
1373     ok(!$a, "Expect overloaded boolean");
1465     is($a->val, 'a & b', "overloaded &= works");
1470     is($b->val, 'b ^ c', "overloaded ^= works");
1475     is($c->val, 'c | d', "overloaded |= (by fallback) works");
1686 # overload. Lack of this means that overloaded values returned by eg a
1741 	# and overloaded objects stored in ties which will have extra
2117     is($res, 1, 'A>B using A<=> when B overloaded, no B<=>');
2121     is($res, 1, 'A<B using B<=> when A overloaded, no A<=>');
2125     is($res, 1, 'A lt B using A:cmp when B overloaded, no B:cmp');
2129     is($res, 1, 'A gt B using B:cmp when A overloaded, no A:cmp');
2179     # for all combinations with 2 overloaded operands
2205     # where the other operand is not overloaded
2231 # since 5.6 overloaded <> was leaving an extra arg on the stack!
2372     'no overload "fallback" resets fallback to undef on overloaded class';
2723     # Making Regexp class overloaded: avoid infinite recursion.
2736 	'overloaded REGEXP'
2779     is ioref->$*, 42, '(overloaded constant that is not a scalar ref)->$*';
2782     is ioref->(), 46, '(overloaded constant that is not a sub ref)->()';
2789   '(...)x... in void cx with x overloaded [perl #121827]';
2859     ::is length($o), 1, "overloaded utf8 length";
2860     ::is "$o", "\x{100}", "overloaded utf8 value";
3044 #  where $right is overloaded, should invoke
3050 # when left is overloaded
3086 # the RHS of an overloaded .= should be passed as-is to the overload
3100 # changing the overloaded object to a plain string within an overload
3110 # An arg like "$b" in $overloaded .= "$b" should be stringified
3159 # concat might return an overloaded object which still needs stringifying.
3213 # RT #133789: in multiconcat with overload, the overloaded ref returned