Télécharger la plaquette Cast3M


fr en

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.    mot1='CHAI' 'RES2' &SURi ;
  45.   'NOMM' mot1 &SURi;
  46. 'FIN'  SURi ;
  47.  
  48. *Calcule RESj = RESj ** &SURi;
  49.  NBREP = 5;
  50. 'REPE' SURj NBREP ;
  51.   'REPE' SURi NBASS ;
  52.      mot1 ='CHAI' RES2 &SURi ;   
  53.      RESj ='ASSI' &SURi ('TEXT' mot1) * &SURi ;
  54.     'NOMM' mot1 RESj ;
  55.   'FIN'  SURi ;
  56. 'FIN'  SURj ;
  57.  
  58. *Teste si les resultats sont BONS
  59. 'REPE' SURi NBASS ;
  60.    mot1 ='CHAI' 'RES2' &SURi ;
  61.    TEXT1='TEXT' mot1 ;
  62.    SOLi =&SURi ** (NBREP + 1) ;
  63.   'SI' ('NEG' TEXT1 SOLi);
  64.     'MESS' 'ERREUR 2 ASSISTANT' ' ' &SURi;
  65.     'MESS' mot1 ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  66.     'ERREUR' 21;
  67.   'FINS' ;
  68. 'FIN'  SURi ;
  69.  
  70. ************************************************************************
  71. *Operations avec des FLOTTANTS dans les ASSISTANTS
  72. ************************************************************************
  73. *Initialise RESj = &SURi ;
  74. 'REPE' SURi NBASS ;
  75.    mot1 ='CHAI' 'RES3' &SURi;
  76.   'NOMM' mot1 ('FLOT' &SURi);
  77. 'FIN'  SURi ;
  78.  
  79. *Calcule RESj = RESj ** &SURi;
  80.  NBREP = 5;
  81. 'REPE' SURj NBREP ;
  82.   'REPE' SURi NBASS ;
  83.      mot1 ='CHAI' 'RES3' &SURi ;   
  84.      TEXT1='TEXT' mot1 ;
  85.      RESj ='ASSI' &SURi TEXT1 * &SURi ;
  86.     'NOMM' mot1 RESj ;
  87.   'FIN'  SURi ;
  88. 'FIN'  SURj ;
  89.  
  90. *Teste si les resultats sont BONS
  91. 'REPE' SURi NBASS ;
  92.   mot1 ='CHAI' 'RES3' &SURi ;   
  93.   TEXT1='TEXT' mot1 ;
  94.   SOLi =('FLOT' &SURi) ** (NBREP + 1) ;
  95.   'SI' ('NEG' TEXT1 SOLi);
  96.     'MESS' 'ERREUR 3 ASSISTANT' ' ' &SURi;
  97.     'MESS' mot1 ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  98.     'ERREUR' 21;
  99.   'FINS' ;
  100. 'FIN'  SURi ;
  101.  
  102. ************************************************************************
  103. *Operations avec des MOTS dans les ASSISTANTS
  104. ************************************************************************
  105. *Initialise RESj = 'CHAI' 'TOTO' &SURi ;
  106. 'REPE' SURi NBASS ;
  107.    mot1 = 'CHAI' 'RES4' &SURi;
  108.   'NOMM' mot1 ('CHAI' 'TOTO' &SURi);
  109. 'FIN'  SURi ;
  110.  
  111. *Calcule RESj = 'CHAI' RESj RESj;
  112.  NBREP = 2;
  113. 'REPE' SURj NBREP ;
  114.   'REPE' SURi NBASS ;
  115.      mot1 ='CHAI' 'RES4' &SURi ;
  116.      TEXT1='TEXT' mot1 ;
  117.      RESj ='ASSI' &SURi 'CHAI' TEXT1 TEXT1 ;
  118.     'NOMM' mot1 RESj ;
  119.   'FIN'  SURi ;
  120. 'FIN'  SURj ;
  121.  
  122. *Teste si les résultats sont BONS
  123. 'REPE' SURi NBASS ;
  124.    mot1 ='CHAI' 'RES4' &SURi ;
  125.    TEXT1='TEXT' mot1 ;
  126.    SOLi ='CHAI' 'TOTO' &SURi ;
  127.   'REPE' SURj NBREP ;
  128.      SOLi ='ET' SOLi SOLi ;
  129.   'FIN'  SURj;
  130.   'SI' ('NEG' TEXT1 SOLi) ;
  131.     'MESS' 'ERREUR 4 ASSISTANT' ' ' &SURi;
  132.     'MESS' mot1 ' est faux' ' ' TEXT1 ' ' 'au lieu de' ' ' SOLi ;
  133.     'ERREUR' 21;
  134.   'FINS' ;
  135. 'FIN'  SURi ;
  136.  
  137.  FIN;
  138.  
  139.  
  140.  
  141.  

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