Ticket #660: ro.t.patch

File ro.t.patch, 1.9 KB (added by bobw, 5 years ago)

a patch for t/pmc/ro.t

  • t/pmc/ro.t

     
    6666    foo = 43 
    6767    pop_eh 
    6868    ok( 0, "integer_set_read_only_is_not_writable" ) 
    69     end 
     69    goto end 
    7070 
    7171eh_label: 
    7272    .local string message 
    7373    .get_results($P0) 
    7474    message = $P0['message'] 
    7575    is( message, "set_integer_native() in read-only instance of 'Integer'", "integer_set_read_only_is_not_writable" ) 
     76end: 
    7677.end 
    7778 
    7879.sub integer_set_read_only_can_be_read 
     
    127128    pop_eh 
    128129 
    129130    ok(0, 'integer_add') 
     131    goto end 
    130132 
    131133eh_label: 
    132134    .local string message 
    133135    .get_results($P0) 
    134136    message = $P0['message'] 
    135137    is( message, "i_add_int() in read-only instance of 'Integer'", 'integer_add' ) 
     138end: 
    136139.end 
    137140 
    138141.sub complex_i_add 
     
    151154    add foo, 4 
    152155    pop_eh 
    153156    ok( 0, 'complex_i_add') 
     157    goto end 
    154158 
    155159eh_label: 
    156160    .local string message 
    157161    .get_results($P0) 
    158162    message = $P0['message'] 
    159163    is( message, "i_add_int() in read-only instance of 'Complex'", 'complex_i_add' ) 
    160  
     164end: 
    161165.end 
    162166 
    163167.sub resizablepmcarray_non_recursive_part 
     
    184188    pop_eh 
    185189 
    186190    ok(0, 'resizablepmcarray_non_recursive_part') 
     191    goto end 
    187192 
    188193eh_label: 
    189194    .local string message 
    190195    .get_results($P0) 
    191196    message = $P0['message'] 
    192197    is( message, "set_pmc_keyed_int() in read-only instance of 'ResizablePMCArray'", 'resizablepmcarray_non_recursive_part' ) 
     198end: 
    193199.end 
    194200 
    195201.sub objects 
     
    202208    eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS) 
    203209    set_addr eh, eh_label 
    204210 
    205  
    206211    fooclass = newclass 'Foo' 
    207212    addattribute fooclass, 'bar' 
    208213    foo = new ['Foo'] 
     
    215220    pop_eh 
    216221 
    217222    ok( 0, 'objects') 
     223    goto end 
    218224 
    219225eh_label: 
    220226    .local string message 
    221227    .get_results($P0) 
    222228    message = $P0['message'] 
    223229    is( message, "set_attr_str() in read-only instance of 'Foo'", 'objects' ) 
     230end: 
    224231.end 
    225232 
    226233=pod