Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .sub 'test_set_capture'
- .local pmc capt
- .local pmc capt2
- $P1 = new ['String']
- capt = new ['Capture']
- capt2 = new ['Capture']
- capt[0] = 1337
- set capt2, capt
- $I0 = capt2[0]
- is($I0, 1337, "Set PMC values correct")
- $P0 = new ['Role']
- push_eh set_badpmc
- set capt, $P5
- pop_eh
- goto finally
- set_badpmc:
- .get_results($P1)
- say "error:"
- say $P1
- ok(1, "Bad set_pmc handled properly")
- finally:
- .end
Add Comment
Please, Sign In to add comment