leccionTPSueldo.o3

"!FILEOUTVERSION: 3"
| obobject5810024960 obobject31020002304 obobject2299630592 obobject15754450432 leccionTPSueldo |

leccionTPSueldo := OBLesson new title: 'leccionTPSueldo'.
self addLesson: leccionTPSueldo.

obobject2299630592 := OBMetaObject newOn: leccionTPSueldo.
obobject5810024960 := OBMetaObject newOn: leccionTPSueldo.
obobject31020002304 := OBMetaObject newOn: leccionTPSueldo.
obobject15754450432 := OBMetaObject newOn: leccionTPSueldo.
obobject2299630592 addAttributeNamed: 'neto'.
obobject2299630592 compileMethod: 'neto
   ^neto'.
obobject2299630592 compileMethod: 'initialize
	neto:=1000'.
obobject5810024960 addAttributeNamed: 'bonoPorPresentismo'.
obobject5810024960 addAttributeNamed: 'bonoPorResultados'.
obobject5810024960 addAttributeNamed: 'categoria'.
obobject5810024960 compileMethod: 'sueldo
	^ self neto + bonoPorPresentismo valor + bonoPorResultados.'.
obobject5810024960 compileMethod: 'categoria:unaCategoria 
	categoria:=unaCategoria.'.
obobject5810024960 compileMethod: 'neto
	^ categoria neto'.
obobject5810024960 compileMethod: 'bonoPorResultadosNeto
	bonoPorResultados:= self neto / 10.'.
obobject5810024960 compileMethod: 'bonoPorResultadosNulo
	bonoPorResultados:=0.'.
obobject5810024960 compileMethod: 'bonoPorPresentismo:bono 
	bonoPorPresentismo:=bono.'.
obobject5810024960 compileMethod: 'bonoPorResultadosFijo
	bonoPorResultados:=80.'.
obobject31020002304 addAttributeNamed: 'neto'.
obobject31020002304 compileMethod: 'neto
	^ neto'.
obobject31020002304 compileMethod: 'initialize
	neto:=1500'.
obobject15754450432 addAttributeNamed: 'faltas'.
obobject15754450432 compileMethod: 'faltas: listaDeFaltas
	faltas:=listaDeFaltas.'.
obobject15754450432 compileMethod: 'initialize
	faltas:=#().'.
obobject15754450432 compileMethod: 'valor
	^ faltas size = 0 ifTrue:100 ifFalse: 
		[faltas first ~= 15 & faltas size = 1 ifTrue:50 ifFalse:0]'.
obobject2299630592 attributeNamed: 'neto' pointTo: (OBExternalObjectMetaObject new: 1000).
obobject5810024960 attributeNamed: 'bonoPorPresentismo' pointTo: obobject15754450432.
obobject5810024960 attributeNamed: 'bonoPorResultados' pointTo: (OBExternalObjectMetaObject new: 80).
obobject5810024960 attributeNamed: 'categoria' pointTo: obobject31020002304.
obobject31020002304 attributeNamed: 'neto' pointTo: (OBExternalObjectMetaObject new: 1500).
obobject15754450432 attributeNamed: 'faltas' pointTo: (OBExternalObjectMetaObject new: #()).
"Workspaces exported"
leccionTPSueldo compileTest: 'testFaltoUnDiaNoImportantePepe
	bonoPorPresentismo faltas: #(3).
	self assert: bonoPorPresentismo valor equals: 50.'.
leccionTPSueldo compileTest: 'testEjercicioCuatro
	pepe categoria: gerente.
	pepe bonoPorResultadosNeto.
	bonoPorPresentismo faltas: #(15).
	self assert: pepe sueldo equals: 1100.'.
leccionTPSueldo compileTest: 'testNetoPepe
	pepe categoria: cadete.
	self assert: pepe neto equals: 1500.'.
leccionTPSueldo compileTest: 'testFaltoUnDiaImportantePepe
	bonoPorPresentismo faltas: #(15).
	self assert: bonoPorPresentismo valor equals: 0.'.
leccionTPSueldo compileTest: 'testEjercicioDos
	pepe categoria: gerente.
	pepe bonoPorResultadosNeto.
	bonoPorPresentismo faltas: #(15).
	self assert: pepe sueldo equals: 1100.'.
leccionTPSueldo compileTest: 'setUp
	gerente initialize.
	cadete initialize.
	bonoPorPresentismo initialize.	
	pepe bonoPorPresentismo: bonoPorPresentismo.'.
leccionTPSueldo compileTest: 'testNetoGerente
   self assert: gerente neto equals: 1000.'.
leccionTPSueldo compileTest: 'testNetoCadete
   self assert: cadete neto equals: 1500.'.
leccionTPSueldo compileTest: 'testEjercicioTres
	pepe categoria: gerente.
	pepe bonoPorResultadosNeto.
	bonoPorPresentismo faltas: #(14).
	self assert: pepe sueldo equals: 1150.'.
leccionTPSueldo compileTest: 'testFaltoMasDeUnDiaPepe
	bonoPorPresentismo faltas:#(3 6).
	self assert: bonoPorPresentismo valor equals: 0.'.
leccionTPSueldo compileTest: 'testEjercicioUno
	pepe categoria: cadete.
	pepe bonoPorResultadosFijo.
	bonoPorPresentismo faltas: #(2 3).	
	self assert: pepe sueldo equals: 1580.'.
leccionTPSueldo compileTest: 'testNoFaltoPepe
	self assert: bonoPorPresentismo valor equals: 100.'.
leccionTPSueldo createVariableNamed: 'gerente' pointingTo: obobject2299630592.
leccionTPSueldo createVariableNamed: 'cadete' pointingTo: obobject31020002304.
leccionTPSueldo createVariableNamed: 'pepe' pointingTo: obobject5810024960.
leccionTPSueldo createVariableNamed: 'bonoPorPresentismo' pointingTo: obobject15754450432.
leccionTPSueldo addObject: obobject2299630592.
leccionTPSueldo addObject: obobject5810024960.
leccionTPSueldo addObject: obobject31020002304.
leccionTPSueldo addObject: obobject15754450432.
^ leccionTPSueldo.