|horario atividadeObrigatoria atividadeOptativa seminario programa docente viagem horario01 horario02 data horarioInicio01 horarioFim01 horarioInicio02 horarioFim02 horarioInicio03 horarioFim03|
    docente := Docente nome: 'Docente' email:  'docente@gmail.com' documento: 12345.
    "Criação de atividades didáticas"
    atividadeObrigatoria := AtividadeDidatica nome: 'AtivDidaticaObrigatoria' sigla: 'Obr' ementa:'Ementa' preRequisitos: Set new professores:Set new creditos:10.
    atividadeOptativa := AtividadeDidatica nome: 'AtivDidaticaOptativa' sigla: 'Op' ementa:'Ementa' preRequisitos: Set new professores:Set new creditos:10.
    seminario := Seminario nome: 'Seminario' sigla: 'Sem' ementa:'Ementa' preRequisitos: Set new professores:Set new creditos:10.

    "Criação do programa com a atividade criada acima como atividades "
    programa := Programa nome:'Programa' atividadesObrigatorias: #(atividadeObrigatoria seminario) atividadesOptativas: #(atividadeOptativa) totalCreditos: 10.

    "Criação de horario"

    "Criação do horario repetitivo"
    horarioInicio01:=Time hour:15 minute:00 second:00.
    horarioFim01:= Time hour:17 minute:00 second:00.
    horario:= HorarioRepetitivo diaSemana:3 horarioInicio:horarioInicio01 horarioFim: horarioFim01.

    horarioInicio02:=Time hour:17 minute:00 second:00.
    horarioFim02:= Time hour:19 minute:00 second:00.
    horario02:= HorarioRepetitivo diaSemana:0 horarioInicio:horarioInicio02 horarioFim: horarioFim02.

    "Criação de horario único"
    data := Date newDay:25 month:10 year:2010.
    horarioInicio03:=Time hour:17 minute:00 second:00.
    horarioFim03:= Time hour:19 minute:00 second:00.
    horario01 := HorarioUnico data:data horarioInicio:horarioInicio03 horarioFim:horarioFim03.

    viagem:= Viagem nome: 'Viagem' sigla: 'Obr' ementa:'Ementa' preRequisitos: Set new professores:Set new creditos:10.

    "Criação de turma"
    atividadeObrigatoria novoHorario: horario ministrante:docente vagas:10.
    atividadeOptativa novoHorario: horario02 ministrante:docente vagas:10.
    viagem novoHorario: horario01 ministrante: docente vagas:10.
    seminario novoHorario: horario ministrante:docente.
    "cadastra professor"
    docente cadastrarEm:programa.

    docente horarioDoSemestre.