strUtils/test10.mod

MODULE test10;

IMPORT strUtils, InOut, Strings;

VAR
  chaine1 : ARRAY[0..10] OF CHAR;
  chaine2 : ARRAY[0..10] OF CHAR;
  chaine3 : ARRAY[0..6]  OF CHAR;
  chaine4 : ARRAY[0..15] OF CHAR;

BEGIN

  InOut.WriteString("Test 1 : source et destination de taille égales ");
  InOut.WriteLn;
  
  chaine1 := "et voila";
  chaine2 := "";
  InOut.WriteString(" test de la copie complète d'un array of CHAR dans une autre");
  InOut.WriteLn;
  strUtils.copyAll(chaine1, chaine2);
  InOut.WriteString("Voilà la chaine 1 : ");
  InOut.WriteString(chaine1);
  InOut.WriteLn;
  InOut.WriteString("Et voilà la chaine 2 : ");
  InOut.WriteString(chaine2);
  InOut.WriteCard(Strings.Length(chaine2),5);
  InOut.WriteLn;
  InOut.WriteLn;
  
  InOut.WriteString("Test 2 : taille source < taille destination ");
  InOut.WriteLn;
  chaine3 := "toto";
  strUtils.copyAll(chaine3, chaine2);
  InOut.WriteString("Voilà la chaine 3 : ");
  InOut.WriteString(chaine3);
  InOut.WriteLn;
  InOut.WriteString("Et voilà la chaine 2 : ");
  InOut.WriteString(chaine2);
  InOut.WriteCard(Strings.Length(chaine2),5);
  InOut.WriteLn;
  InOut.WriteLn;
  
  InOut.WriteString("Test 3 : taille source > taille destination ");
  InOut.WriteLn;
  chaine4 := "Une chaine beauc";
  InOut.WriteCard(Strings.Length(chaine4),5);
  InOut.WriteLn;
  strUtils.copyAll(chaine4, chaine2); 
  InOut.WriteString("Voilà la chaine 4 : ");
  InOut.WriteString(chaine4);
  InOut.WriteLn;
  InOut.WriteString("Et voilà la chaine 2 : ");
  InOut.WriteString(chaine2);
  InOut.WriteCard(Strings.Length(chaine2),5);
  InOut.WriteLn;
  InOut.WriteLn;
END test10.