perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r30535 - branches/pdd27mmd/t/pmc

Subject: [svn:parrot] r30535 - branches/pdd27mmd/t/pmc
From:
Date: Mon, 25 Aug 2008 06:36:58 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: allison
Date: Mon Aug 25 06:36:58 2008
New Revision: 30535

Modified:
   branches/pdd27mmd/t/pmc/integer.t

Log:
[pdd27mmd] Add a simple test case for multiple dispatching
two Integer types on 'add'.


Modified: branches/pdd27mmd/t/pmc/integer.t
==============================================================================
--- branches/pdd27mmd/t/pmc/integer.t   (original)
+++ branches/pdd27mmd/t/pmc/integer.t   Mon Aug 25 06:36:58 2008
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 18;
 
 =head1 NAME
 
@@ -314,6 +314,28 @@
 ok 4
 OUTPUT
 
+pasm_output_is( <<'CODE', <<'OUT', "add" );
+   new P0, 'Integer'
+   set P0, 5
+   new P1, 'Integer'
+   set P1, 10
+   new P2, 'Integer'
+   add P2, P0, P1
+   set S0, P2
+   print S0
+   print "\n"
+   set P0, "20"
+   set P1, "30"
+   add P2, P1, P0
+   set S0, P2
+   print S0
+   print "\n"
+   end
+CODE
+15
+30
+OUT
+
 pir_output_is( << 'CODE', << 'OUTPUT', "n_<oper>" );
 .sub main :main
     $P0 = new 'Integer'

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r30535 - branches/pdd27mmd/t/pmc, allison <=