[svn:parrot] r48291 - branches/gsoc_instrument/t/library

[khairul at svn.parrot.org]

Author: khairul
Date: Tue Aug  3 17:23:28 2010
New Revision: 48291
URL: https://trac.parrot.org/parrot/changeset/48291

Log:
Fixed broken test.

Modified:
   branches/gsoc_instrument/t/library/instrument_eventlibrary.t

Modified: branches/gsoc_instrument/t/library/instrument_eventlibrary.t
==============================================================================
--- branches/gsoc_instrument/t/library/instrument_eventlibrary.t	Tue Aug  3 17:22:11 2010	(r48290)
+++ branches/gsoc_instrument/t/library/instrument_eventlibrary.t	Tue Aug  3 17:23:28 2010	(r48291)
@@ -216,7 +216,8 @@
     # Test that a singular function was instrumented.
     # Record the function name.
     $P0 = get_global '%test_gc_res'
-    $S0 = data['type']
+    $P1 = data['event']
+    $S0 = $P1.'pop'()
     $P0['Sc 1: Called']   = 1
     $P0['Sc 1: Function'] = $S0
 .end
@@ -229,9 +230,9 @@
     # Test that a group function was instrumented.
     # Ensure that the function is of type allocate.
     $P0 = get_global '%test_gc_res'
-    $S0 = data['type']
-    $P1 = split '_', $S0
-    $S1 = $P1[0]
+    $P1 = data['event']
+    $S0 = $P1.'pop'() # gc function name
+    $S1 = $P1.'pop'() # group
     $I1 = iseq $S1, 'allocate'
     $I2 = $P0['Sc 2: Function Ok?']
     $I3 = and $I1, $I2