[perl #54474] [BUG] cmp doesn't works for integers

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #54474]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54474 >


Parrot's op cmp doesn't work for integers.

$ cat v.pir
.sub main :main
     $P99 = subclass 'Integer', 'Int'

     .local pmc a, b
     a = new 'Int'
     a = 1

     b = new 'Int'
     b = 2

     $I0 = cmp a, b
     say $I0

     $I0 = cmp b, a
     say $I0
.end
$ ./parrot v.pir
1
1
$

Expected results
-1
1

(Thanks to pmichaud for clean version of test case)