The Trunk: MorphicExtrasTests-pre.5.mcz

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'
+ !