CREATE OR REPLACE PROCEDURE TESTGESTIONETUDIANTS AS
  UnEtudiant ETUDIANTS%ROWTYPE;
  UnMatricule ETUDIANTS.MATRICULE%TYPE;

  --Modifier
  EtudiantsOld ETUDIANTS%ROWTYPE;
  EtudiantsNew ETUDIANTS%ROWTYPE;
BEGIN
--Test Recherhcer Nom et Prenom
  --OK
  /*
  UnEtudiant := GestionEtudiants.Rechercher('Davey','Irwin');

  DBMS_OUTPUT.PUT_LINE ('Matricule : ' || UnEtudiant.Matricule);
  DBMS_OUTPUT.PUT_LINE ('Nom : ' || UnEtudiant.Nom);
  DBMS_OUTPUT.PUT_LINE ('Prénom : ' || UnEtudiant.Prenom);
  DBMS_OUTPUT.PUT_LINE ('Nationalité : ' || UnEtudiant.Nationalite);
  DBMS_OUTPUT.PUT_LINE ('Etat civil : ' || UnEtudiant.Etatcivil);
  DBMS_OUTPUT.PUT_LINE ('Sexe : ' || UnEtudiant.Sexe);
  DBMS_OUTPUT.PUT_LINE ('Situation : ' || UnEtudiant.Situation);
  DBMS_OUTPUT.PUT_LINE ('Date entrée : ' || TO_CHAR(UnEtudiant.Dateentree, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Date Naissance : ' || TO_CHAR(UnEtudiant.Datenaissance, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Lieu naissance : ' || UnEtudiant.Lieunaissance);
  DBMS_OUTPUT.PUT_LINE ('Code pays de naissance : ' || UnEtudiant.Codepaysnaissance);
  IF(UnEtudiant.Datedeces IS NOT NULL) THEN
    DBMS_OUTPUT.PUT_LINE ('Date décès : ' || TO_CHAR(UnEtudiant.Datedeces, 'DD/MM/YYYY'));
  END IF;
  DBMS_OUTPUT.PUT_LINE ('Code postal de domicile: ' || UnEtudiant.Codepostaldom);
  DBMS_OUTPUT.PUT_LINE ('Localité de domicile: ' || UnEtudiant.Localitedom);
  DBMS_OUTPUT.PUT_LINE ('Pays de domicile : ' || UnEtudiant.Codepaysdom);
  Result
  Matricule : 1900206DAVIRW
  Nom : Davey
  Prénom : Irwin
  Nationalité : BEL
  Etat civil : C
  Sexe : M
  Situation : D
  Date entrée : 10/09/2007
  Date Naissance : 06/02/1990
  Lieu naissance : Liege
  Code pays de naissance : BEL
  Code postal de domicile: 4141
  Localité de domicile: LOUVEIGNE
  Pays de domicile : BEL
  */
  --Nom = NULL
  --UnEtudiant := GestionEtudiants.Rechercher(NULL,'Irwin');
  /*Result
  ORA-20703: Le nom ne peut pas etre NULL
  */
  --Prenom = NULL
  /*
  UnEtudiant := GestionEtudiants.Rechercher('Davey',NULL);
  Result
  ORA-20704: Le prenom ne peut pas etre NULL
  */
  --NO_DATA_FOUND
  /*
  UnEtudiant := GestionEtudiants.Rechercher('Pierre','Dupond');
  Result
  ORA-20705: Aucun étudiant trouvé pour le nom : Pierre et pour le prénom : Dupond
  */
  /* A FAIRE TEST HOMONYMES
  UnEtudiant := RECHERCHER('Ba', 'I');
  DBMS_OUTPUT.PUT_LINE ('Matricule : ' || UnEtudiant.Matricule);
  DBMS_OUTPUT.PUT_LINE ('Nom : ' || UnEtudiant.Nom);
  DBMS_OUTPUT.PUT_LINE ('Prénom : ' || UnEtudiant.Prenom);
  DBMS_OUTPUT.PUT_LINE ('Nationalité : ' || UnEtudiant.Nationalite);
  DBMS_OUTPUT.PUT_LINE ('Etat civil : ' || UnEtudiant.Etatcivil);
  DBMS_OUTPUT.PUT_LINE ('Sexe : ' || UnEtudiant.Sexe);
  DBMS_OUTPUT.PUT_LINE ('Situation : ' || UnEtudiant.Situation);
  DBMS_OUTPUT.PUT_LINE ('Date entrée : ' || TO_CHAR(UnEtudiant.Dateentree, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Date Naissance : ' || TO_CHAR(UnEtudiant.Datenaissance, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Lieu naissance : ' || UnEtudiant.Lieunaissance);
  DBMS_OUTPUT.PUT_LINE ('Code pays de naissance : ' || UnEtudiant.Codepaysnaissance);
  IF(UnEtudiant.Datedeces IS NOT NULL) THEN
    DBMS_OUTPUT.PUT_LINE ('Date décès : ' || TO_CHAR(UnEtudiant.Datedeces, 'DD/MM/YYYY'));
  END IF;
  DBMS_OUTPUT.PUT_LINE ('Code postal de domicile: ' || UnEtudiant.Codepostaldom);
  DBMS_OUTPUT.PUT_LINE ('Localité de domicile: ' || UnEtudiant.Localitedom);
  DBMS_OUTPUT.PUT_LINE ('Pays de domicile : ' || UnEtudiant.Codepaysdom);
  */
-- Test Rechercher Matricule
--Test OK
--FONCTIONNE PAS
/*
  UnEtudiant := GestionEtudiants.Rechercher('2850814BARBAY');
  DBMS_OUTPUT.PUT_LINE ('Matricule : ' || UnEtudiant.Matricule);
  DBMS_OUTPUT.PUT_LINE ('Nom : ' || UnEtudiant.Nom);
  DBMS_OUTPUT.PUT_LINE ('Prénom : ' || UnEtudiant.Prenom);
  DBMS_OUTPUT.PUT_LINE ('Nationalité : ' || UnEtudiant.Nationalite);
  DBMS_OUTPUT.PUT_LINE ('Etat civil : ' || UnEtudiant.Etatcivil);
  DBMS_OUTPUT.PUT_LINE ('Sexe : ' || UnEtudiant.Sexe);
  DBMS_OUTPUT.PUT_LINE ('Situation : ' || UnEtudiant.Situation);
  DBMS_OUTPUT.PUT_LINE ('Date entrée : ' || TO_CHAR(UnEtudiant.Dateentree, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Date Naissance : ' || TO_CHAR(UnEtudiant.Datenaissance, 'DD/MM/YYYY'));
  DBMS_OUTPUT.PUT_LINE ('Lieu naissance : ' || UnEtudiant.Lieunaissance);
  DBMS_OUTPUT.PUT_LINE ('Code pays de naissance : ' || UnEtudiant.Codepaysnaissance);
  IF(UnEtudiant.Datedeces IS NOT NULL) THEN
    DBMS_OUTPUT.PUT_LINE ('Date décès : ' || TO_CHAR(UnEtudiant.Datedeces, 'DD/MM/YYYY'));
  END IF;
  DBMS_OUTPUT.PUT_LINE ('Code postal de domicile: ' || UnEtudiant.Codepostaldom);
  DBMS_OUTPUT.PUT_LINE ('Localité de domicile: ' || UnEtudiant.Localitedom);
  DBMS_OUTPUT.PUT_LINE ('Pays de domicile : ' || UnEtudiant.Codepaysdom);
  */
  /*
  --Test Modifier Lock

  */



END TESTGESTIONETUDIANTS;