[squeak-dev] The Trunk: MorphicExtrasTests-pre.5.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Oct 13 12:33:17 UTC 2018


Patrick Rein uploaded a new version of MorphicExtrasTests to project The Trunk:
http://source.squeak.org/trunk/MorphicExtrasTests-pre.5.mcz

==================== Summary ====================

Name: MorphicExtrasTests-pre.5
Author: pre
Time: 13 October 2018, 2:33:17.089477 pm
UUID: e0d35970-622f-874f-980d-4fd596769357
Ancestors: MorphicExtrasTests-nice.4

Moves the EPSCanvasTest to Morphic-Extas-Tests

=============== Diff against MorphicExtrasTests-nice.4 ===============

Item was changed:
  SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Filters'!
  SystemOrganization addCategory: #'MorphicExtrasTests-Flaps'!
+ SystemOrganization addCategory: #'MorphicExtrasTests-Postscript Canvases'!

Item was added:
+ TestCase subclass: #EPSCanvasTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'MorphicExtrasTests-Postscript Canvases'!

Item was added:
+ ----- Method: EPSCanvasTest>>performTest (in category 'private') -----
+ performTest
+ 
+ 	Utilities
+ 		useAuthorName: self className
+ 		during: [ super performTest ]!

Item was added:
+ ----- Method: EPSCanvasTest>>testSmokeTest (in category 'tests') -----
+ testSmokeTest
+ 	
+ 	| epsCode |
+ 	epsCode := (RectangleMorph new asEPS).
+ 
+ 	self assert: epsCode lines first = '%!!PS-Adobe-2.0 EPSF-2.0'.
+ 	self assert: (epsCode lines detect: [:line | 
+ 		line beginsWith: '%start morph:  a RectangleMorph'] ifNone: [nil]) notNil.
+ 	self assert: epsCode lines last = '%%EOF'
+ !



More information about the Squeak-dev mailing list