Télécharger ASSI_01.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : ASSI_01.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5. ************************************************************************
  6. * Test ASSI_01.dgibi: Jeux de données *
  7. * ----------------------------------- *
  8. ************************************************************************
  9. * CAS TEST DU 05/11/2018 PROVENANCE : TEST
  10.  
  11.  
  12. *_______________________________________________________________________
  13. * TEST ASSI_01 *
  14. * *
  15. * Verification & Validation *
  16. * *
  17. * TEST SUR L'OPERATEUR ASSI qui lance des commandes GIBIANE en *
  18. * asynchrone *
  19. *______________________________________________________________________*
  20. *Lancement d'operations elementaires "a la main" sur les ASSISTANTS
  21.  
  22. *IMPORTANT : La premiere instruction utilise ASSI pour verifier que
  23. * irt est bien initialise dans pilot.eso (pas bon en 2018)
  24. * ==> Ne rien mettre avant RES1 ='ASSI' 1 1 + 1 ;
  25.  
  26. *Addition d' ENTIERS sur l'ASSISTANT n° 1
  27. RES1 ='ASSI' 1 1 + 1 ;
  28. SOL1 = 1 + 1 ;
  29. 'SI' ('NEG' RES1 SOL1);
  30. 'MESS' 'ERREUR 1 ASSISTANT' ' ' 1 ;
  31. 'MESS' 'RES1 est faux' ' ' RES1 ' ' 'au lieu de' ' ' SOL1 ;
  32. 'FINS';
  33.  
  34. *On recupere le nombre d'ASSISTANTS
  35. NBASS = 'VALE' 'ASSI' ;
  36. APO = 'CHAI' '';
  37. MESS 'Nombre d' APO 'ASSISTANTS :' NBASS;
  38.  
  39. ************************************************************************
  40. *Operations avec des ENTIERS dans les ASSISTANTS
  41. ************************************************************************
  42. *Initialise RESj = &SURi ;
  43. 'REPE' SURi NBASS ;
  44. TEXT1='TEXT' ('CHAI' 'RES2' &SURi);
  45. 'NOMM' TEXT1 &SURi;
  46. 'FIN' SURi ;
  47.  
  48. *Calcule RESj = RESj ** &SURi;
  49. NBREP = 5;
  50. 'REPE' SURj NBREP ;
  51. 'REPE' SURi NBASS ;
  52. TEXT1='TEXT' ('CHAI' RES2 &SURi) ;
  53. RESj ='ASSI' &SURi TEXT1 * &SURi ;
  54. 'NOMM' TEXT1 RESj ;
  55. 'FIN' SURi ;
  56. 'FIN' SURj ;
  57.  
  58. *Teste si les résultats sont BONS
  59. 'REPE' SURi NBASS ;
  60. TEXT1='TEXT' ('CHAI' 'RES2' &SURi) ;
  61. SOLi =&SURi ** (NBREP + 1) ;
  62. 'SI' ('NEG' TEXT1 SOLi);
  63. 'MESS' 'ERREUR 2 ASSISTANT' ' ' &SURi;
  64. 'MESS' ('CHAI' 'RES2' &SURi) ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  65. 'ERREUR' 21;
  66. 'FINS' ;
  67. 'FIN' SURi ;
  68.  
  69. ************************************************************************
  70. *Operations avec des FLOTTANTS dans les ASSISTANTS
  71. ************************************************************************
  72. *Initialise RESj = &SURi ;
  73. 'REPE' SURi NBASS ;
  74. TEXT1='TEXT' ('CHAI' 'RES3' &SURi);
  75. 'NOMM' TEXT1 ('FLOT' &SURi);
  76. 'FIN' SURi ;
  77.  
  78. *Calcule RESj = RESj ** &SURi;
  79. NBREP = 5;
  80. 'REPE' SURj NBREP ;
  81. 'REPE' SURi NBASS ;
  82. TEXT1='TEXT' ('CHAI' 'RES3' &SURi) ;
  83. RESj ='ASSI' &SURi TEXT1 * &SURi ;
  84. 'NOMM' TEXT1 RESj ;
  85. 'FIN' SURi ;
  86. 'FIN' SURj ;
  87.  
  88. *Teste si les résultats sont BONS
  89. 'REPE' SURi NBASS ;
  90. TEXT1='TEXT' ('CHAI' 'RES3' &SURi) ;
  91. SOLi =('FLOT' &SURi) ** (NBREP + 1) ;
  92. 'SI' ('NEG' TEXT1 SOLi);
  93. 'MESS' 'ERREUR 3 ASSISTANT' ' ' &SURi;
  94. 'MESS' ('CHAI' 'RES3' &SURi) ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  95. 'ERREUR' 21;
  96. 'FINS' ;
  97. 'FIN' SURi ;
  98.  
  99. ************************************************************************
  100. *Operations avec des MOTS dans les ASSISTANTS
  101. ************************************************************************
  102. *Initialise RESj = 'CHAI' 'TOTO' &SURi ;
  103. 'REPE' SURi NBASS ;
  104. TEXT1='TEXT' ('CHAI' 'RES4' &SURi);
  105. 'NOMM' TEXT1 ('CHAI' 'TOTO' &SURi);
  106. 'FIN' SURi ;
  107.  
  108. *Calcule RESj = 'CHAI' RESj RESj;
  109. NBREP = 2;
  110. 'REPE' SURj NBREP ;
  111. 'REPE' SURi NBASS ;
  112. NOMi ='CHAI' 'RES4' &SURi ;
  113. TEXT1='TEXT' NOMi ;
  114. RESj ='ASSI' &SURi 'CHAI' TEXT1 TEXT1 ;
  115. 'NOMM' ('MOT' NOMi) RESj ;
  116. 'FIN' SURi ;
  117. 'FIN' SURj ;
  118.  
  119. *Teste si les résultats sont BONS
  120. 'REPE' SURi NBASS ;
  121. TEXT1='TEXT' ('CHAI' 'RES4' &SURi) ;
  122. SOLi ='CHAI' 'TOTO' &SURi ;
  123. 'REPE' SURj NBREP ;
  124. SOLi ='ET' SOLi SOLi ;
  125. 'FIN' SURj;
  126. 'SI' ('NEG' TEXT1 SOLi) ;
  127. 'MESS' 'ERREUR 4 ASSISTANT' ' ' &SURi;
  128. 'MESS' ('CHAI' 'RES4' &SURi) ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  129. 'ERREUR' 21;
  130. 'FINS' ;
  131. 'FIN' SURi ;
  132.  
  133. FIN;
  134.  
  135.  
  136.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales