Télécharger la plaquette Cast3M


fr en

Télécharger test_enle.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier test_enle.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4.  
  5.  
  6. *======================================================================*
  7. * Cas test : test_enle.dgibi
  8. * Classe   : Verification et Validation
  9. *======================================================================*
  10. *
  11. * Teste le bon fonctionnement de l'operateur ENLE sur les objets de type
  12. *  - LISTREEL
  13. *  - LISTENTI
  14. *  - LISTMOTS
  15. *  - LISTCHPO
  16. *
  17. * Auteur        : C. BERTHINIER
  18. * Creation      : 29/01/2018
  19. * Modifications :
  20. *======================================================================*
  21.  
  22.  
  23. *======================================================================*
  24. * LISTREEL
  25. *======================================================================*
  26. * Verification du Fonctionnement
  27. Lst0 = PROG 10. 15. 20. 25. ;
  28. Lst1a= LECT 2 ;
  29. Lst1b= LECT 2 2 1 1 1 1 ;
  30. Lst1c= LECT ;
  31.  
  32. Lst2a = ENLE Lst0 Lst1a ;
  33. Lst2b = ENLE Lst0 Lst1b ;
  34. Lst2c = ENLE Lst0 Lst1c ;
  35.  
  36. * Validation du resultat
  37. * 1ere LISTE *
  38. Lst1U=ORDO (UNIQ Lst1a);
  39. JJJ  = 1;
  40. DIM2 = DIME Lst1U;
  41. SI (JJJ <EG DIM2);
  42.   ENTI2= EXTR Lst1U JJJ;
  43. SINO;
  44.   ENTI2= 0;
  45. FINS;
  46. ENTI2= EXTR Lst1U JJJ;
  47. KKK  = 1;
  48. REPE SURI (DIME Lst0);
  49.   III = &SURI ;
  50.   SI(III EGA ENTI2);
  51.     JJJ  = JJJ + 1;
  52.     SI (JJJ <EG DIM2);
  53.       ENTI2= EXTR Lst1U JJJ;
  54.     SINO;
  55.       ENTI2= 0;
  56.     FINS;
  57.     ITER SURI;
  58.   FINS;
  59.  
  60.   ENTI1 = EXTR Lst0  &SURI ;
  61.   ENTI3 = EXTR Lst2a KKK   ;
  62.   KKK   = KKK + 1 ;
  63.   SI(NEG ENTI1 ENTI3);
  64.     ERRE 5;
  65.   FINS;
  66. FIN SURI;
  67.  
  68. * 2eme LISTE *
  69. Lst1U=ORDO (UNIQ Lst1b);
  70. LIST Lst1U;
  71. JJJ  = 1;
  72. DIM2 = DIME Lst1U;
  73. SI (JJJ <EG DIM2);
  74.   ENTI2= EXTR Lst1U JJJ;
  75. SINO;
  76.   ENTI2= 0;
  77. FINS;
  78. ENTI2= EXTR Lst1U JJJ;
  79. KKK  = 1;
  80. REPE SURI (DIME Lst0);
  81.   III = &SURI ;
  82.   SI(III EGA ENTI2);
  83.     JJJ  = JJJ + 1;
  84.     SI (JJJ <EG DIM2);
  85.       ENTI2= EXTR Lst1U JJJ;
  86.     SINO;
  87.       ENTI2= 0;
  88.     FINS;
  89.     ITER SURI;
  90.   FINS;
  91.  
  92.   ENTI1 = EXTR Lst0  &SURI ;
  93.   ENTI3 = EXTR Lst2b KKK   ;
  94.   KKK   = KKK + 1 ;
  95.   SI(NEG ENTI1 ENTI3);
  96.     ERRE 5;
  97.   FINS;
  98. FIN SURI;
  99.  
  100.  
  101. * 3eme LISTE *
  102. Lst1U=ORDO (UNIQ Lst1c);
  103. JJJ  = 1;
  104. DIM2 = DIME Lst1U;
  105. SI (JJJ <EG DIM2);
  106.   ENTI2= EXTR Lst1U JJJ;
  107. SINO;
  108.   ENTI2= 0;
  109. FINS;
  110. KKK  = 1;
  111. REPE SURI (DIME Lst0);
  112.   III = &SURI ;
  113.   SI(III EGA ENTI2);
  114.     JJJ  = JJJ + 1;
  115.     SI (JJJ <EG DIM2);
  116.       ENTI2= EXTR Lst1U JJJ;
  117.     SINO;
  118.       ENTI2= 0;
  119.     FINS;
  120.     ITER SURI;
  121.   FINS;
  122.  
  123.   ENTI1 = EXTR Lst0  &SURI ;
  124.   ENTI3 = EXTR Lst2c KKK   ;
  125.   KKK   = KKK + 1 ;
  126.   SI(NEG ENTI1 ENTI3);
  127.     ERRE 5;
  128.   FINS;
  129. FIN SURI;
  130.  
  131.  
  132. *======================================================================*
  133. * LISTENTI
  134. *======================================================================*
  135. * Verification du Fonctionnement
  136. Lst0 = LECT 10 15 20 25 ;
  137. Lst1a= LECT 2 ;
  138. Lst1b= LECT 2 2 1 1 1 1 ;
  139. Lst1c= LECT ;
  140.  
  141. Lst2a = ENLE Lst0 Lst1a ;
  142. Lst2b = ENLE Lst0 Lst1b ;
  143. Lst2c = ENLE Lst0 Lst1c ;
  144.  
  145. * Validation du resultat
  146. * 1ere LISTE *
  147. Lst1U=ORDO (UNIQ Lst1a);
  148. JJJ  = 1;
  149. DIM2 = DIME Lst1U;
  150. SI (JJJ <EG DIM2);
  151.   ENTI2= EXTR Lst1U JJJ;
  152. SINO;
  153.   ENTI2= 0;
  154. FINS;
  155. ENTI2= EXTR Lst1U JJJ;
  156. KKK  = 1;
  157. REPE SURI (DIME Lst0);
  158.   III = &SURI ;
  159.   SI(III EGA ENTI2);
  160.     JJJ  = JJJ + 1;
  161.     SI (JJJ <EG DIM2);
  162.       ENTI2= EXTR Lst1U JJJ;
  163.     SINO;
  164.       ENTI2= 0;
  165.     FINS;
  166.     ITER SURI;
  167.   FINS;
  168.  
  169.   ENTI1 = EXTR Lst0  &SURI ;
  170.   ENTI3 = EXTR Lst2a KKK   ;
  171.   KKK   = KKK + 1 ;
  172.   SI(NEG ENTI1 ENTI3);
  173.     ERRE 5;
  174.   FINS;
  175. FIN SURI;
  176.  
  177. * 2eme LISTE *
  178. Lst1U=ORDO (UNIQ Lst1b);
  179. LIST Lst1U;
  180. JJJ  = 1;
  181. DIM2 = DIME Lst1U;
  182. SI (JJJ <EG DIM2);
  183.   ENTI2= EXTR Lst1U JJJ;
  184. SINO;
  185.   ENTI2= 0;
  186. FINS;
  187. ENTI2= EXTR Lst1U JJJ;
  188. KKK  = 1;
  189. REPE SURI (DIME Lst0);
  190.   III = &SURI ;
  191.   SI(III EGA ENTI2);
  192.     JJJ  = JJJ + 1;
  193.     SI (JJJ <EG DIM2);
  194.       ENTI2= EXTR Lst1U JJJ;
  195.     SINO;
  196.       ENTI2= 0;
  197.     FINS;
  198.     ITER SURI;
  199.   FINS;
  200.  
  201.   ENTI1 = EXTR Lst0  &SURI ;
  202.   ENTI3 = EXTR Lst2b KKK   ;
  203.   KKK   = KKK + 1 ;
  204.   SI(NEG ENTI1 ENTI3);
  205.     ERRE 5;
  206.   FINS;
  207. FIN SURI;
  208.  
  209.  
  210. * 3eme LISTE *
  211. Lst1U=ORDO (UNIQ Lst1c);
  212. JJJ  = 1;
  213. DIM2 = DIME Lst1U;
  214. SI (JJJ <EG DIM2);
  215.   ENTI2= EXTR Lst1U JJJ;
  216. SINO;
  217.   ENTI2= 0;
  218. FINS;
  219. KKK  = 1;
  220. REPE SURI (DIME Lst0);
  221.   III = &SURI ;
  222.   SI(III EGA ENTI2);
  223.     JJJ  = JJJ + 1;
  224.     SI (JJJ <EG DIM2);
  225.       ENTI2= EXTR Lst1U JJJ;
  226.     SINO;
  227.       ENTI2= 0;
  228.     FINS;
  229.     ITER SURI;
  230.   FINS;
  231.  
  232.   ENTI1 = EXTR Lst0  &SURI ;
  233.   ENTI3 = EXTR Lst2c KKK   ;
  234.   KKK   = KKK + 1 ;
  235.   SI(NEG ENTI1 ENTI3);
  236.     ERRE 5;
  237.   FINS;
  238. FIN SURI;
  239.  
  240.  
  241. *======================================================================*
  242. * LISTMOTS
  243. *======================================================================*
  244. * Verification du Fonctionnement
  245. Lst0 = MOTS 'MO1' 'MO2' 'MO3' 'MO4' ;
  246. Lst1a= LECT 2 ;
  247. Lst1b= LECT 2 2 1 1 1 1 ;
  248. Lst1c= LECT ;
  249.  
  250. Lst2a = ENLE Lst0 Lst1a ;
  251. Lst2b = ENLE Lst0 Lst1b ;
  252. Lst2c = ENLE Lst0 Lst1c ;
  253.  
  254. * Validation du resultat
  255. * 1ere LISTE *
  256. Lst1U=ORDO (UNIQ Lst1a);
  257. JJJ  = 1;
  258. DIM2 = DIME Lst1U;
  259. SI (JJJ <EG DIM2);
  260.   ENTI2= EXTR Lst1U JJJ;
  261. SINO;
  262.   ENTI2= 0;
  263. FINS;
  264. ENTI2= EXTR Lst1U JJJ;
  265. KKK  = 1;
  266. REPE SURI (DIME Lst0);
  267.   III = &SURI ;
  268.   SI(III EGA ENTI2);
  269.     JJJ  = JJJ + 1;
  270.     SI (JJJ <EG DIM2);
  271.       ENTI2= EXTR Lst1U JJJ;
  272.     SINO;
  273.       ENTI2= 0;
  274.     FINS;
  275.     ITER SURI;
  276.   FINS;
  277.  
  278.   ENTI1 = EXTR Lst0  &SURI ;
  279.   ENTI3 = EXTR Lst2a KKK   ;
  280.   KKK   = KKK + 1 ;
  281.   SI(NEG ENTI1 ENTI3);
  282.     ERRE 5;
  283.   FINS;
  284. FIN SURI;
  285.  
  286. * 2eme LISTE *
  287. Lst1U=ORDO (UNIQ Lst1b);
  288. LIST Lst1U;
  289. JJJ  = 1;
  290. DIM2 = DIME Lst1U;
  291. SI (JJJ <EG DIM2);
  292.   ENTI2= EXTR Lst1U JJJ;
  293. SINO;
  294.   ENTI2= 0;
  295. FINS;
  296. ENTI2= EXTR Lst1U JJJ;
  297. KKK  = 1;
  298. REPE SURI (DIME Lst0);
  299.   III = &SURI ;
  300.   SI(III EGA ENTI2);
  301.     JJJ  = JJJ + 1;
  302.  
  303.     SI (JJJ <EG DIM2);
  304.       ENTI2= EXTR Lst1U JJJ;
  305.     SINO;
  306.       ENTI2= 0;
  307.     FINS;
  308.     ITER SURI;
  309.   FINS;
  310.  
  311.   ENTI1 = EXTR Lst0  &SURI ;
  312.   ENTI3 = EXTR Lst2b KKK   ;
  313.   KKK   = KKK + 1 ;
  314.   SI(NEG ENTI1 ENTI3);
  315.     ERRE 5;
  316.   FINS;
  317. FIN SURI;
  318.  
  319.  
  320. * 3eme LISTE *
  321. Lst1U=ORDO (UNIQ Lst1c);
  322. JJJ  = 1;
  323. DIM2 = DIME Lst1U;
  324. SI (JJJ <EG DIM2);
  325.   ENTI2= EXTR Lst1U JJJ;
  326. SINO;
  327.   ENTI2= 0;
  328. FINS;
  329. KKK  = 1;
  330. REPE SURI (DIME Lst0);
  331.   III = &SURI ;
  332.   SI(III EGA ENTI2);
  333.     JJJ  = JJJ + 1;
  334.     SI (JJJ <EG DIM2);
  335.       ENTI2= EXTR Lst1U JJJ;
  336.     SINO;
  337.       ENTI2= 0;
  338.     FINS;
  339.     ITER SURI;
  340.   FINS;
  341.  
  342.   ENTI1 = EXTR Lst0  &SURI ;
  343.   ENTI3 = EXTR Lst2c KKK   ;
  344.   KKK   = KKK + 1 ;
  345.   SI(NEG ENTI1 ENTI3);
  346.     ERRE 5;
  347.   FINS;
  348. FIN SURI;
  349.  
  350.  
  351. *======================================================================*
  352. * LISTCHPO
  353. *======================================================================*
  354. * Verification du Fonctionnement
  355. 'OPTI' 'DIME' 2 'ELEM' 'QUA4';
  356. P1 = 0. 0.;
  357. P2 = 1. 0.;
  358. L1 = 'DROI' 11 P1 P2;
  359.  
  360.  
  361. CHP1 ='MANU' 'CHPO' L1 1 'C1' 1.;
  362. CHP2 ='MANU' 'CHPO' L1 1 'C2' 1.;
  363. CHP3 ='MANU' 'CHPO' L1 1 'C3' 1.;
  364. CHP4 ='MANU' 'CHPO' L1 1 'C4' 1.;
  365.  
  366. Lst0 = SUIT CHP1 CHP2 CHP3 CHP4 ;
  367. Lst1a= LECT 2 ;
  368. Lst1b= LECT 2 2 1 1 1 1 ;
  369. Lst1c= LECT ;
  370.  
  371. Lst2a = ENLE Lst0 Lst1a ;
  372. Lst2b = ENLE Lst0 Lst1b ;
  373. Lst2c = ENLE Lst0 Lst1c ;
  374.  
  375. * Validation du resultat
  376. * 1ere LISTE *
  377. Lst1U=ORDO (UNIQ Lst1a);
  378. JJJ  = 1;
  379. DIM2 = DIME Lst1U;
  380. SI (JJJ <EG DIM2);
  381.   ENTI2= EXTR Lst1U JJJ;
  382. SINO;
  383.   ENTI2= 0;
  384. FINS;
  385. ENTI2= EXTR Lst1U JJJ;
  386. KKK  = 1;
  387. REPE SURI (DIME Lst0);
  388.   III = &SURI ;
  389.   SI(III EGA ENTI2);
  390.     JJJ  = JJJ + 1;
  391.     SI (JJJ <EG DIM2);
  392.       ENTI2= EXTR Lst1U JJJ;
  393.     SINO;
  394.       ENTI2= 0;
  395.     FINS;
  396.     ITER SURI;
  397.   FINS;
  398.  
  399.   ENTI1 = EXTR Lst0  &SURI ;
  400.   ENTI3 = EXTR Lst2a KKK   ;
  401.   KKK   = KKK + 1 ;
  402.   SI(NEG ENTI1 ENTI3);
  403.     ERRE 5;
  404.   FINS;
  405. FIN SURI;
  406.  
  407. * 2eme LISTE *
  408. Lst1U=ORDO (UNIQ Lst1b);
  409. LIST Lst1U;
  410. JJJ  = 1;
  411. DIM2 = DIME Lst1U;
  412. SI (JJJ <EG DIM2);
  413.   ENTI2= EXTR Lst1U JJJ;
  414. SINO;
  415.   ENTI2= 0;
  416. FINS;
  417. ENTI2= EXTR Lst1U JJJ;
  418. KKK  = 1;
  419. REPE SURI (DIME Lst0);
  420.   III = &SURI ;
  421.   SI(III EGA ENTI2);
  422.     JJJ  = JJJ + 1;
  423.  
  424.     SI (JJJ <EG DIM2);
  425.       ENTI2= EXTR Lst1U JJJ;
  426.     SINO;
  427.       ENTI2= 0;
  428.     FINS;
  429.     ITER SURI;
  430.   FINS;
  431.  
  432.   ENTI1 = EXTR Lst0  &SURI ;
  433.   ENTI3 = EXTR Lst2b KKK   ;
  434.   KKK   = KKK + 1 ;
  435.   SI(NEG ENTI1 ENTI3);
  436.     ERRE 5;
  437.   FINS;
  438. FIN SURI;
  439.  
  440.  
  441. * 3eme LISTE *
  442. Lst1U=ORDO (UNIQ Lst1c);
  443. JJJ  = 1;
  444. DIM2 = DIME Lst1U;
  445. SI (JJJ <EG DIM2);
  446.   ENTI2= EXTR Lst1U JJJ;
  447. SINO;
  448.   ENTI2= 0;
  449. FINS;
  450. KKK  = 1;
  451. REPE SURI (DIME Lst0);
  452.   III = &SURI ;
  453.   SI(III EGA ENTI2);
  454.     JJJ  = JJJ + 1;
  455.     SI (JJJ <EG DIM2);
  456.       ENTI2= EXTR Lst1U JJJ;
  457.     SINO;
  458.       ENTI2= 0;
  459.     FINS;
  460.     ITER SURI;
  461.   FINS;
  462.  
  463.   ENTI1 = EXTR Lst0  &SURI ;
  464.   ENTI3 = EXTR Lst2c KKK   ;
  465.   KKK   = KKK + 1 ;
  466.   SI(NEG ENTI1 ENTI3);
  467.     ERRE 5;
  468.   FINS;
  469. FIN SURI;
  470.  
  471. FIN;
  472.  
  473.  
  474.  
  475.  

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