Index: t/pmc/integer.t
===================================================================
--- t/pmc/integer.t	(revisione 31978)
+++ t/pmc/integer.t	(copia locale)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 19;
+use Parrot::Test tests => 20;
 
 =head1 NAME
 
@@ -539,6 +539,36 @@
 2147483600 is greater than -1000
 OUTPUT
 
+pir_output_is( << 'CODE', << 'OUTPUT', "add using subclass of Integer");
+.sub main
+    $P0 = subclass 'Integer', 'MyInteger'
+
+    .local pmc a, b, c
+
+    a = new 'MyInteger'
+    a = 1
+    say a
+
+    b = new 'MyInteger'
+    b = 2
+    say b
+
+    c = add a, b
+    say c
+.end
+
+.namespace ['MyInteger']
+
+.sub 'init' :vtable
+    $P1 = new 'Integer'
+.end
+
+CODE
+1
+2
+3
+OUTPUT
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4