The Trunk: Tests-eem.379.mcz

Eliot Miranda uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-eem.379.mcz

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

Name: Tests-eem.379
Author: eem
Time: 3 July 2017, 4:13:10.068801 pm
UUID: cdac3950-d5ff-488a-b17c-a733bd79b74e
Ancestors: Tests-eem.378

Use the abstract class-side interface for image segment use now that we have both LegacyImageSegment and NativeImageSegment.

=============== Diff against Tests-eem.378 ===============

Item was changed:
  ----- Method: BitmapStreamTests>>validateImageSegment (in category 'private') -----
  validateImageSegment
  "array is set up with an array."
  | other filename |
  filename := 'bitmapStreamTest.extSeg'.
 
  FileDirectory default deleteFileNamed: filename ifAbsent: [ ].
 
+ (ImageSegment copyFromRootsForExport: {array})
- (ImageSegment new copyFromRootsForExport: (Array with: array))
           writeForExport: filename.
 
  other := (FileDirectory default readOnlyFileNamed: filename)
  fileInObjectAndCode.
 
  self assert: array = other originalRoots first.
 
  "clean up disk"
  FileDirectory default deleteFileNamed: filename ifAbsent: [ ]!

Item was changed:
  ----- Method: ImageSegmentTest>>testImageSegmentsShouldBeWritableToaFile (in category 'testing') -----
  testImageSegmentsShouldBeWritableToaFile
  "This should not throw an exception"
  | classes |
  classes := UIManager subclasses reject: [:sc| sc isActiveManager].
+ NativeImageSegment new
- ImageSegment new
  copyFromRoots: classes asArray sizeHint: 100;
  extract;
  writeToFile: 'InactiveUIManagers';
  yourself.
 
  "TODO: write assertions showing that something meaningful actually happened."
 
  "now bring them back in again"
  classes do: [:ea| ea new]!