[t] Add new test to Task PMC [3]

parrot · Dec 31, 2010 · b9b6a9f · b9b6a9f
1 parent 8f87d11
commit b9b6a9f
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/t/pmc/task.t b/t/pmc/task.t
@@ -44,6 +44,14 @@ pir_output_is( <<'CODE', <<'OUT', "create a task and set attributes" );
     print $P3
     print "\n"
 
+    $P2 = new ['String']
+    $P2 = "sub event"
+    setattribute $P0, 'subtype', $P2
+
+    $P3 = getattribute $P0, 'subtype'
+    print $P3
+    print "\n"
+
     $P2 = new ['Integer']
     $P2 = 10
     setattribute $P0, 'priority', $P2
@@ -67,12 +75,24 @@ pir_output_is( <<'CODE', <<'OUT', "create a task and set attributes" );
     $P3 = getattribute $P0, 'birthtime'
     print $P3
     print "\n"
+
+    $P2 = new ['String']
+    $P2 = "aditional data"
+    setattribute $P0, 'data', $P2
+
+    $P2 = get_global 'code'
+    setattribute $P0, 'code', $P2
     end
   .end
+
+  .sub code
+    say "sub"
+  .end
 CODE
 created
 inprocess
 event
+sub event
 10
 7405
 1.1