testAddDocente
    | docente01 docente02 atividadeDidatica|

    docente01 := Docente nome: 'Docente01' email:  'docente01@gmail.com' documento: 12345.
    docente02 := Docente nome: 'Docente02' email:  'docente02@gmail.com' documento: 67890.

    atividadeDidatica := AtividadeDidatica nome: 'AtivDidatica' sigla: 'AD' ementa:'Ementa' preRequisitos: nil professores: #(docente01) creditos:10.
    atividadeDidatica novoDocente: docente02.
    self assert:(atividadeDidatica professores includes: docente02).