[svn:parrot] r44746 - branches/ops_pct/compilers/opsc/t

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Mar  7 20:53:02 2010
New Revision: 44746
URL: https://trac.parrot.org/parrot/changeset/44746

Log:
Update test.

Modified:
   branches/ops_pct/compilers/opsc/t/04-op.t

Modified: branches/ops_pct/compilers/opsc/t/04-op.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/04-op.t	Sun Mar  7 20:52:39 2010	(r44745)
+++ branches/ops_pct/compilers/opsc/t/04-op.t	Sun Mar  7 20:53:02 2010	(r44746)
@@ -5,7 +5,7 @@
 pir::load_bytecode("compilers/opsc/opsc.pbc");
 pir::load_bytecode("nqp-settings.pbc");
 
-plan(8);
+plan(7);
 
 my $op := Ops::Op.new(
     code => 42,
@@ -23,10 +23,13 @@
 ok( $op.type eq 'inline',   "... with proper type");
 ok( +$op.arg_types == 3,    "... with proper arg_types");
 say('# ' ~ $op.arg_types);
-ok( $op.body eq '',         "... with empty body");
-$op.body("SOME BODY");
-ok( $op.body eq 'SOME BODY', "Op.body set");
 
 ok( $op.full_name eq 'set_i_i_ic', "full_name is correct");
 
+$op := Ops::Op.new(
+    name => 'set',
+    type => 'inline',
+);
+ok( $op.full_name eq 'set', "Argless op's full_name is correct");
+
 # vim: expandtab shiftwidth=4 ft=perl6: