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