Error creating addFactoryMessage: of targetClass

[Lin777]

Al completar el TypeInfo por defecto se genera como salida el objeto de la clase al que el metodo pertenece , esto puede causar errores cuando se busca crear un objeto X pero el metodo de clase no devuelve un objeto del tipo X sino que devuelve un objeto detipo Y.

Para replicar:

|typeInfo aBlock generated |
aBlock := [PDFDemos widthTest; rotationTest].

typeInfo := STypeInfo asTypeInfo: (
        SSTypeCollector profile: aBlock onPackagesMatching: 'Artefact*').

generated := PDFDocument createTestCaseConfigWithName: 'ArtefactGenerated'.

generated addTypeInfo: typeInfo withKey: 'art';
    typeInfo: 'art';
    fitness: #statement;
    numberOfGenerations: 10;
    numberOfStatements: 30;
    populationSize: 20;
    stopIterations: 7;
    targetPackageRegex: 'Artefact*';
    outputPackageName: 'Generated';
    lastMessage: 'Transcript show: ''artefact'''";
    setUpMethod: 'setUp
    ^ self';
    tearDownMethod: 'tearDown
    ^ self'".

aBlock := [PDFDemos widthTest; rotationTest; datatableTest].
(STestCaseFactoryPharo from: ArtefactGenerated )
    generateViews;
    seedBlock: aBlock;
    createTestCases;
    yourself.

Este error causa problemas principalmente cuando se busca crear la clase targetClass como primer statement.

Para corregirlo se podria:

• No poner el objeto al que el metodo pertenece como salida por defecto (en particular para los metodos del lado de la clase).... aunque esto limitaria el crecimiento, ya que en particular para el lado de la clase se enfocaria mas en los metodos en los que se tiene un typeInfo
  • Dar N opciones para que el objeto pueda crearse, pasado el limite, lanzar error