[svn:parrot] r39551 - branches/pmc_pct/compilers/pmcc/t

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Jun 14 09:10:50 2009
New Revision: 39551
URL: https://trac.parrot.org/parrot/changeset/39551

Log:
[t] Add tests for emitting MULTIs bodies.

Modified:
   branches/pmc_pct/compilers/pmcc/t/08-multi.t

Modified: branches/pmc_pct/compilers/pmcc/t/08-multi.t
==============================================================================
--- branches/pmc_pct/compilers/pmcc/t/08-multi.t	Sun Jun 14 09:10:30 2009	(r39550)
+++ branches/pmc_pct/compilers/pmcc/t/08-multi.t	Sun Jun 14 09:10:50 2009	(r39551)
@@ -7,15 +7,20 @@
     .include 'test_more.pir'
     load_bytecode 'pmcc.pbc'
 
-    plan(1)
+    plan(2)
 
     .local string filename, content
     filename = 't/data/class27.pmc'
     content = _slurp(filename)
 
     .local pmc emitter, capture
+    .local string generated
     (emitter, capture) = get_emitter_and_capture(filename, content, 'past')
-    ok("MULTI functions parsed")
+    
+    generated = emitter.'generate_c_code'(capture)
+
+    like(generated, "'Parrot_Integer_multi_add_Integer_PMC'", "Integer,PMC method generated") 
+    like(generated, "'Parrot_Integer_multi_add_DEFAULT_PMC'", "DEFAULT,PMC method generated") 
 
 .end