equal
deleted
inserted
replaced
234 |
234 |
235 comment := (Point asRingMinimalDefinitionIn: env) comment. |
235 comment := (Point asRingMinimalDefinitionIn: env) comment. |
236 |
236 |
237 comment content notEmpty. |
237 comment content notEmpty. |
238 comment author notEmpty. |
238 comment author notEmpty. |
239 comment time > DateAndTime new. |
239 comment time > Timestamp epoch. |
240 comment time <= DateAndTime now. |
240 comment time <= Timestamp now. |
241 |
241 |
242 |
242 |
243 ! |
243 ! |
244 |
244 |
245 testClassVariable |
245 testClassVariable |
280 env backend: (RGReadOnlyImageBackend for: env). |
280 env backend: (RGReadOnlyImageBackend for: env). |
281 |
281 |
282 method := Point >> #x asRingMinimalDefinitionIn: env. |
282 method := Point >> #x asRingMinimalDefinitionIn: env. |
283 |
283 |
284 self assert: method author notEmpty. |
284 self assert: method author notEmpty. |
285 self assert: (method time <= DateAndTime now). |
285 self assert: (method time <= Timestamp now). |
286 self assert: method selector equals: #x. |
286 self assert: method selector equals: #x. |
287 self assert: (method package isRGObject and: [ method package isPackage ]). |
287 self assert: (method package isRGObject and: [ method package isPackage ]). |
288 self assert: method package name equals: 'Kernel'. |
288 self assert: method package name equals: 'Kernel'. |
289 self assert: method package identicalTo: method parent package. |
289 self assert: method package identicalTo: method parent package. |
290 self assert: method sourceCode equals: (Point >> #x) sourceCode. |
290 self assert: method sourceCode equals: (Point >> #x) sourceCode. |