Ticket #757: tt757.pir

File tt757.pir, 175 bytes (added by Infinoid, 4 years ago)

simple test case

Line 
1.sub main :main
2.include 'test_more.pir'
3    $P1 = get_global "func"
4    $P0 = new ['ParrotThread']
5    $P0.'run_clone'($P1)
6    $P0.'join'()
7.end
8
9.sub func
10    say '1'
11.end