algo3-tp1-20151

TestCase subclass: #SistemaNotasTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Algo3TP1-Tests'!

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 3/31/2015 19:16'!
test01_FlujoEstadosDeTP
| sistema estado idEntrega |
sistema := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.
sistema nuevoTP: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noEntregado.

idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noCorregido.

sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 2.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noAprobado.

idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noCorregido.

sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 10.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #aprobado.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:45'!
test09_validacionEntregaTPConVencimiento
| sistema estado idEntrega fecha |
sistema := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.
fecha := Date year: 2015 month: 3 day: 10.
sistema nuevoTP: 'tp1' conVencimiento: fecha.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noEntregado.

fecha := Date year: 2015 month: 3 day: 15.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1' conFecha: fecha.

self assert: idEntrega = #noValido.! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:45'!
test08_validacionMailAlumnoUnico
| sistema   |
sistema := SistemaNotas new.

sistema nuevoAlumno: '[email protected]' conPadron: '111111'.
self assert: (sistema cantidadAlumnos) = 1.

sistema nuevoAlumno: '[email protected]' conPadron: '111112'.
self assert: (sistema cantidadAlumnos) = 2.

sistema nuevoAlumno: '[email protected]' conPadron: '111113'.
self assert: (sistema cantidadAlumnos) = 2.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 3/31/2015 19:17'!
test02_FlujoEstadosDeTPOpcional
| sistema estado idEntrega |
sistema := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.
sistema nuevoTPOpcional: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noEntregado.

idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noCorregido.

sistema pruebasExitosas: false paraEntrega: idEntrega.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noAprobado.

idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #noCorregido.

sistema pruebasExitosas: true paraEntrega: idEntrega.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
self assert: estado = #aprobado.! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 3/31/2015 19:23'!
test03_AlumnoAprobado
| sistema estado idEntrega |
sistema  := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.

sistema nuevoTP: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 4.

sistema nuevoTP: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 4.

estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #aprobado.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 3/31/2015 19:27'!
test07_validacionPadronAlumnoUnico
| sistema   |
sistema := SistemaNotas new.

sistema nuevoAlumno: '[email protected]' conPadron: '111111'.
self assert: (sistema cantidadAlumnos) = 1.

sistema nuevoAlumno: '[email protected]' conPadron: '111112'.
self assert: (sistema cantidadAlumnos) = 2.

sistema nuevoAlumno: '[email protected]' conPadron: '111112'.
self assert: (sistema cantidadAlumnos) = 2.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:25'!
test04_AlumnoAprobadoConOptionalNoAprobado
| sistema estado idEntrega |
sistema  := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.

sistema nuevoTPOpcional: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 3.

sistema nuevoTP: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 4.

estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #aprobado.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:43'!
test05_AlumnoNoAprobado
| sistema estado idEntrega |
sistema  := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.

sistema nuevoTP: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 3.

sistema nuevoTP: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 10.

estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #noAprobado.! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:44'!
test06_AlumnoNoAprobadoPorNoEntregar
| sistema estado idEntrega |
sistema  := SistemaNotas new.
sistema nuevoAlumno: '[email protected]' conPadron: '111111'.

sistema nuevoTP: 'tp1'.
estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #noAprobado.

sistema nuevoTP: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 10.

estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #noAprobado.! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:46'!
test10_validacionTPsUnicos
| sistema   |
sistema := SistemaNotas new.

sistema nuevoTP: 'tp1'.
self assert: (sistema cantidadTPs) = 1.

sistema nuevoTP: 'tp2'.
self assert: (sistema cantidadTPs) = 2.

sistema nuevoTP: 'tp2'.
self assert: (sistema cantidadTPs) = 2.
! !

!SistemaNotasTest methodsFor: 'as yet unclassified' stamp: 'NicoPaez 4/1/2015 07:51'!
test11_AlumnoOyenteAprobado
| sistema estado idEntrega |
sistema  := SistemaNotas new.
sistema nuevoAlumnoOyente: '[email protected]' conPadron: '111111'.

sistema nuevoTP: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp1'.
estado := sistema estadoTP: 'tp1' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 4.

sistema nuevoTP: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
idEntrega := sistema nuevaEntregaDeAlumno: '[email protected]' para: 'tp2'.
estado := sistema estadoTP: 'tp2' paraAlumno:'[email protected]'.
sistema nuevaCorrecion: '[email protected]' para: idEntrega conNota: 4.

estado := sistema estadoGeneralAlumno:'[email protected]'.
self assert: estado = #aprobadoCondicional.
! !