Ticket #660: ro.t.patch
File ro.t.patch, 1.9 KB (added by bobw, 13 years ago) |
---|
-
t/pmc/ro.t
66 66 foo = 43 67 67 pop_eh 68 68 ok( 0, "integer_set_read_only_is_not_writable" ) 69 end69 goto end 70 70 71 71 eh_label: 72 72 .local string message 73 73 .get_results($P0) 74 74 message = $P0['message'] 75 75 is( message, "set_integer_native() in read-only instance of 'Integer'", "integer_set_read_only_is_not_writable" ) 76 end: 76 77 .end 77 78 78 79 .sub integer_set_read_only_can_be_read … … 127 128 pop_eh 128 129 129 130 ok(0, 'integer_add') 131 goto end 130 132 131 133 eh_label: 132 134 .local string message 133 135 .get_results($P0) 134 136 message = $P0['message'] 135 137 is( message, "i_add_int() in read-only instance of 'Integer'", 'integer_add' ) 138 end: 136 139 .end 137 140 138 141 .sub complex_i_add … … 151 154 add foo, 4 152 155 pop_eh 153 156 ok( 0, 'complex_i_add') 157 goto end 154 158 155 159 eh_label: 156 160 .local string message 157 161 .get_results($P0) 158 162 message = $P0['message'] 159 163 is( message, "i_add_int() in read-only instance of 'Complex'", 'complex_i_add' ) 160 164 end: 161 165 .end 162 166 163 167 .sub resizablepmcarray_non_recursive_part … … 184 188 pop_eh 185 189 186 190 ok(0, 'resizablepmcarray_non_recursive_part') 191 goto end 187 192 188 193 eh_label: 189 194 .local string message 190 195 .get_results($P0) 191 196 message = $P0['message'] 192 197 is( message, "set_pmc_keyed_int() in read-only instance of 'ResizablePMCArray'", 'resizablepmcarray_non_recursive_part' ) 198 end: 193 199 .end 194 200 195 201 .sub objects … … 202 208 eh.'handle_types'(.EXCEPTION_WRITE_TO_CONSTCLASS) 203 209 set_addr eh, eh_label 204 210 205 206 211 fooclass = newclass 'Foo' 207 212 addattribute fooclass, 'bar' 208 213 foo = new ['Foo'] … … 215 220 pop_eh 216 221 217 222 ok( 0, 'objects') 223 goto end 218 224 219 225 eh_label: 220 226 .local string message 221 227 .get_results($P0) 222 228 message = $P0['message'] 223 229 is( message, "set_attr_str() in read-only instance of 'Foo'", 'objects' ) 230 end: 224 231 .end 225 232 226 233 =pod