# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #75830]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75830 >
<ash__> 5 but 'string' is the same as 5 but (role { method Str() {
'string'} }), 5 but True is 5 but (role { method Bool() { True } })
<colomon> rakudo: say ('foo' but 5) ~~ Real
<p6eval> rakudo 17e43e: OUTPUT«0»
<colomon> rakudo: say ('foo' but Real) ~~ Real
<p6eval> rakudo 17e43e: OUTPUT«1»
<masak> rakudo: say 5 ~~ Real
<p6eval> rakudo 17e43e: OUTPUT«1»
<colomon> rakudo: say ('foo' but 5.0) ~~ Real
<p6eval> rakudo 17e43e: OUTPUT«0»
* masak submits rakudobug
<ash__> rakudo: say ('foo' but 5.0).Num
<p6eval> rakudo 17e43e: OUTPUT«0»
<ash__> :-\
<ash__> rakudo: say ('foo' but 5).Num, ('foo' but 5).Int
<p6eval> rakudo 17e43e: OUTPUT«05»
<masak> rakudo: say Int ~~ Real
<p6eval> rakudo 17e43e: OUTPUT«1»
