[svn:parrot] r48328 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Aug  5 12:30:14 2010
New Revision: 48328
URL: https://trac.parrot.org/parrot/changeset/48328

Log:
add a test for Opcode.get_string

Modified:
   trunk/t/pmc/oplib.t

Modified: trunk/t/pmc/oplib.t
==============================================================================
--- trunk/t/pmc/oplib.t	Thu Aug  5 07:17:42 2010	(r48327)
+++ trunk/t/pmc/oplib.t	Thu Aug  5 12:30:14 2010	(r48328)
@@ -26,7 +26,7 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan(12)
+    plan(13)
     new_oplib()
     check_elements()
     getint_end()
@@ -102,8 +102,11 @@
     ok($I0, "got same result from both ways")
 
     $I1 = op
-    $I0 = oplib['end']
+    $I0 = oplib[TESTED_OP]
     is($I0, $I1, 'opcode number from Opcode and from OpLib is the same')
+
+    $S0 = op
+    is($S0, TESTED_OP, 'name from Opcode matches name searched for')
 .end
 
 .sub family_end