[svn:parrot] r35860 - trunk/t/op

Author: jonathan
Date: Wed Jan 21 02:59:32 2009
New Revision: 35860

Modified:
   trunk/t/op/annotate.t

Log:
[t] Test for annotations in eval'd code. Based on code from TT#180 (coke++).

Modified: trunk/t/op/annotate.t
==============================================================================
--- trunk/t/op/annotate.t	(original)
+++ trunk/t/op/annotate.t	Wed Jan 21 02:59:32 2009
@@ -19,13 +19,14 @@
 .sub main :main
     .include 'include/test_more.pir'
 
-    plan(29)
+    plan(33)
 
     'no_annotations'()
     'annotations_exception'()
     'annotations_ops'()
     'backtrace_annotations'()
     'parrotinterpreter_annotations'()
+    'eval_test'()
 .end
 
 
@@ -193,6 +194,44 @@
     'is'($I0, 43, 'annotations from outer sub returned at point of call with level 1')
 .end
 
+
+.sub 'eval_test'
+    .annotate 'file', 'a.tcl'
+    .annotate 'line', 3
+    $P1 = compreg 'PIR'
+    $S0 = <<"END_PIR"
+.sub 'joe'
+    .annotate 'file', 'b.tcl'
+    die "what?"
+.end
+END_PIR
+    $P2 = $P1($S0)
+    push_eh eek
+    joe()
+    pop_eh
+    die "Should not get here!"
+
+  eek:
+    .get_results($P3)
+    pop_eh
+    $P3 = $P3.'backtrace'()
+    
+    $P4 = $P3[0]
+    $P4 = $P4['annotations']
+    $S0 = $P4['file']
+    'is'($S0, 'b.tcl', 'annotation from eval code OK')
+    $I0 = exists $P4['line']
+    'is'($I0, 0, 'no line annotation (since it was not set)')
+
+    $P4 = $P3[1]
+    $P4 = $P4['annotations']
+    $S0 = $P4['file']
+    'is'($S0, 'a.tcl', 'annotation from caller of eval code OK')
+    $I0 = $P4['line']
+    'is'($I0, 3, 'annotation from caller of eval code OK')
+.end
+
+
 # Local Variables:
 #   mode: pir 
 #   fill-column: 100