Télécharger test_addition_LIST.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : test_addition_list.dgibi
  2.  
  3. ************************************************************************
  4. ************************************************************************
  5. ************************************************************************
  6. * Auteur : C. BERTHINIER
  7. * Date : Novembre 2014
  8.  
  9.  
  10.  
  11. * Ce Cas-Test permet de vérifier que les opérations '+' et '-' sur les
  12. * {LISTENTI, LISTREEL} avec {LISTENTI, LISTREEL, ENTIER, FLOTTANTS}
  13. * sont effectuées conformément à la notice
  14.  
  15. LISTRE1 = PROG 1. 2. 3. ;
  16. LISTRE2 = PROG 4. 8. 24. ;
  17.  
  18.  
  19. LISTEN1 = LECT 4 5 6 ;
  20. LISTEN2 = LECT 5 9 25 ;
  21.  
  22. FLOT1 = 10. ;
  23. ENTI1 = 11 ;
  24.  
  25. ************************************************************************
  26. * OPERATIONS ENTRE LES LIST(ENTI/REEL) *
  27. ************************************************************************
  28.  
  29. * Addition entre 2 LISTREEL
  30. OBJ1 = LISTRE1;
  31. OBJ2 = LISTRE2;
  32. OBJ3 = OBJ1 '+' OBJ2 ;
  33.  
  34. TEST = (EXTR OBJ3 1);
  35. REF = 5. ;
  36. SI ( TEST NEG REF );
  37. MESS 'ERREUR de + entre 2 LISTREEL';
  38. MESS 'Valeur obtenue : ' TEST;
  39. MESS 'Valeur attendue : ' REF ;
  40. ERRE 5;
  41. FINSI;
  42.  
  43. * Soustraction entre 2 LISTREEL
  44. OBJ1 = LISTRE1;
  45. OBJ2 = LISTRE2;
  46. OBJ3 = OBJ1 '-' OBJ2 ;
  47.  
  48. TEST = (EXTR OBJ3 1);
  49. REF = (-3.) ;
  50. SI ( TEST NEG REF );
  51. MESS 'ERREUR de - entre 2 LISTREEL';
  52. MESS 'Valeur obtenue : ' TEST;
  53. MESS 'Valeur attendue : ' REF ;
  54. ERRE 5;
  55. FINSI;
  56.  
  57. ************************************************************************
  58.  
  59. * Addition entre 2 LISTENTI
  60. OBJ1 = LISTEN1;
  61. OBJ2 = LISTEN2;
  62. OBJ3 = OBJ1 '+' OBJ2 ;
  63.  
  64. TEST = (EXTR OBJ3 1);
  65. REF = 9 ;
  66. SI ( TEST NEG REF );
  67. MESS 'ERREUR de - entre 2 LISTENTI';
  68. MESS 'Valeur obtenue : ' TEST;
  69. MESS 'Valeur attendue : ' REF ;
  70. ERRE 5;
  71. FINSI;
  72.  
  73. * Soustraction entre 2 LISTENTI
  74. OBJ1 = LISTEN1;
  75. OBJ2 = LISTEN2;
  76. OBJ3 = OBJ1 '-' OBJ2 ;
  77.  
  78. TEST = (EXTR OBJ3 1);
  79. REF = (-1) ;
  80. SI ( TEST NEG REF );
  81. MESS 'ERREUR de - entre 2 LISTENTI';
  82. MESS 'Valeur obtenue : ' TEST;
  83. MESS 'Valeur attendue : ' REF ;
  84. ERRE 5;
  85. FINSI;
  86.  
  87. ************************************************************************
  88.  
  89. * Addition entre 1 LISTREEL et 1 LISTENTI
  90. OBJ1 = LISTRE2;
  91. OBJ2 = LISTEN2;
  92. OBJ3 = OBJ1 '+' OBJ2 ;
  93.  
  94. TEST = (EXTR OBJ3 1);
  95. REF = 9. ;
  96. SI ( TEST NEG REF );
  97. MESS 'ERREUR de + entre 1 LISTREEL et 1 LISTENTI';
  98. MESS 'Valeur obtenue : ' TEST;
  99. MESS 'Valeur attendue : ' REF ;
  100. ERRE 5;
  101. FINSI;
  102.  
  103. * Soustraction entre 1 LISTREEL et 1 LISTENTI
  104. OBJ1 = LISTRE2;
  105. OBJ2 = LISTEN2;
  106. OBJ3 = OBJ1 '-' OBJ2 ;
  107.  
  108. TEST = (EXTR OBJ3 1);
  109. REF = (-1.) ;
  110. SI ( TEST NEG REF );
  111. MESS 'ERREUR de - entre 1 LISTREEL et 1 LISTENTI';
  112. MESS 'Valeur obtenue : ' TEST;
  113. MESS 'Valeur attendue : ' REF ;
  114. ERRE 5;
  115. FINSI;
  116.  
  117. ************************************************************************
  118.  
  119. * Addition entre 1 LISTENTI et 1 LISTREEL
  120. OBJ1 = LISTEN2;
  121. OBJ2 = LISTRE2;
  122. OBJ3 = OBJ1 '+' OBJ2 ;
  123.  
  124. TEST = (EXTR OBJ3 1);
  125. REF = 9. ;
  126. SI ( TEST NEG REF );
  127. MESS 'ERREUR de + entre 1 LISTENTI et 1 LISTREEL';
  128. MESS 'Valeur obtenue : ' TEST;
  129. MESS 'Valeur attendue : ' REF ;
  130. ERRE 5;
  131. FINSI;
  132.  
  133. * Soustraction entre 1 LISTENTI et 1 LISTREEL
  134. OBJ1 = LISTEN2;
  135. OBJ2 = LISTRE2;
  136. OBJ3 = OBJ1 '-' OBJ2 ;
  137.  
  138. TEST = (EXTR OBJ3 1);
  139. REF = 1. ;
  140. SI ( TEST NEG REF );
  141. MESS 'ERREUR de - entre 1 LISTENTI et 1 LISTREEL';
  142. MESS 'Valeur obtenue : ' TEST;
  143. MESS 'Valeur attendue : ' REF ;
  144. ERRE 5;
  145. FINSI;
  146.  
  147. ************************************************************************
  148. * OPERATIONS AVEC LES ENTIERS *
  149. ************************************************************************
  150.  
  151. * Addition entre 1 LISTREEL et 1 ENTIER
  152. OBJ1 = LISTRE1;
  153. OBJ2 = 3;
  154. OBJ3 = OBJ1 '+' OBJ2 ;
  155.  
  156. TEST = (EXTR OBJ3 1);
  157. REF = 4. ;
  158. SI ( TEST NEG REF );
  159. MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  160. MESS 'Valeur obtenue : ' TEST;
  161. MESS 'Valeur attendue : ' REF ;
  162. ERRE 5;
  163. FINSI;
  164.  
  165. * Soustraction entre 1 LISTREEL et 1 ENTIER
  166. OBJ1 = LISTRE1;
  167. OBJ2 = 3;
  168. OBJ3 = OBJ1 '-' OBJ2 ;
  169.  
  170. TEST = (EXTR OBJ3 1);
  171. REF = -2. ;
  172. SI ( TEST NEG REF );
  173. MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  174. MESS 'Valeur obtenue : ' TEST;
  175. MESS 'Valeur attendue : ' REF ;
  176. ERRE 5;
  177. FINSI;
  178.  
  179. ************************************************************************
  180.  
  181. * Addition entre 1 ENTIER et 1 LISTREEL
  182. OBJ1 = 3;
  183. OBJ2 = LISTRE1;
  184. OBJ3 = OBJ1 '+' OBJ2 ;
  185.  
  186. TEST = (EXTR OBJ3 1);
  187. REF = 4. ;
  188. SI ( TEST NEG REF );
  189. MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  190. MESS 'Valeur obtenue : ' TEST;
  191. MESS 'Valeur attendue : ' REF ;
  192. ERRE 5;
  193. FINSI;
  194.  
  195. * Soustraction entre 1 ENTIER et 1 LISTREEL
  196. OBJ1 = 3;
  197. OBJ2 = LISTRE1;
  198. OBJ3 = OBJ1 '-' OBJ2 ;
  199.  
  200. TEST = (EXTR OBJ3 1);
  201. REF = 2. ;
  202. SI ( TEST NEG REF );
  203. MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  204. MESS 'Valeur obtenue : ' TEST;
  205. MESS 'Valeur attendue : ' REF ;
  206. ERRE 5;
  207. FINSI;
  208.  
  209. ************************************************************************
  210.  
  211. * Addition entre 1 LISTENTI et 1 ENTIER
  212. OBJ1 = LISTEN1;
  213. OBJ2 = 1;
  214. OBJ3 = OBJ1 '+' OBJ2 ;
  215.  
  216. TEST = (EXTR OBJ3 1);
  217. REF = 5 ;
  218. SI ( TEST NEG REF );
  219. MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  220. MESS 'Valeur obtenue : ' TEST;
  221. MESS 'Valeur attendue : ' REF ;
  222. ERRE 5;
  223. FINSI;
  224.  
  225. * Soustraction entre 1 LISTENTI et 1 ENTIER
  226. OBJ1 = LISTEN1;
  227. OBJ2 = 1;
  228. OBJ3 = OBJ1 '-' OBJ2 ;
  229.  
  230. TEST = (EXTR OBJ3 1);
  231. REF = 3 ;
  232. SI ( TEST NEG REF );
  233. MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  234. MESS 'Valeur obtenue : ' TEST;
  235. MESS 'Valeur attendue : ' REF ;
  236. ERRE 5;
  237. FINSI;
  238.  
  239. ************************************************************************
  240.  
  241. * Addition entre 1 ENTIER et 1 LISTENTI
  242. OBJ1 = 1;
  243. OBJ2 = LISTEN1;
  244. OBJ3 = OBJ1 '+' OBJ2 ;
  245.  
  246. TEST = (EXTR OBJ3 1);
  247. REF = 5 ;
  248. SI ( TEST NEG REF );
  249. MESS 'ERREUR de + entre 1 LISTENTI et 1 ENTIER';
  250. MESS 'Valeur obtenue : ' TEST;
  251. MESS 'Valeur attendue : ' REF ;
  252. ERRE 5;
  253. FINSI;
  254.  
  255. * Soustraction entre 1 ENTIER et 1 LISTENTI
  256. OBJ1 = 1;
  257. OBJ2 = LISTEN1;
  258. OBJ3 = OBJ1 '-' OBJ2 ;
  259.  
  260. TEST = (EXTR OBJ3 1);
  261. REF = -3 ;
  262. SI ( TEST NEG REF );
  263. MESS 'ERREUR de - entre 1 LISTENTI et 1 ENTIER';
  264. MESS 'Valeur obtenue : ' TEST;
  265. MESS 'Valeur attendue : ' REF ;
  266. ERRE 5;
  267. FINSI;
  268.  
  269. ************************************************************************
  270. * OPERATIONS AVEC LES FLOTTANTS *
  271. ************************************************************************
  272.  
  273.  
  274. * Addition entre 1 LISTREEL et 1 FLOTTANT
  275. OBJ1 = LISTRE1;
  276. OBJ2 = 3.;
  277. OBJ3 = OBJ1 '+' OBJ2 ;
  278.  
  279. TEST = (EXTR OBJ3 1);
  280. REF = 4. ;
  281. SI ( TEST NEG REF );
  282. MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  283. MESS 'Valeur obtenue : ' TEST;
  284. MESS 'Valeur attendue : ' REF ;
  285. ERRE 5;
  286. FINSI;
  287.  
  288. * Soustraction entre 1 LISTREEL et 1 FLOTTANT
  289. OBJ1 = LISTRE1;
  290. OBJ2 = 3.;
  291. OBJ3 = OBJ1 '-' OBJ2 ;
  292.  
  293. TEST = (EXTR OBJ3 1);
  294. REF = -2. ;
  295. SI ( TEST NEG REF );
  296. MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  297. MESS 'Valeur obtenue : ' TEST;
  298. MESS 'Valeur attendue : ' REF ;
  299. ERRE 5;
  300. FINSI;
  301.  
  302. ************************************************************************
  303.  
  304. * Addition entre 1 FLOTTANT et 1 LISTREEL
  305. OBJ1 = 3.;
  306. OBJ2 = LISTRE1;
  307. OBJ3 = OBJ1 '+' OBJ2 ;
  308.  
  309. TEST = (EXTR OBJ3 1);
  310. REF = 4. ;
  311. SI ( TEST NEG REF );
  312. MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  313. MESS 'Valeur obtenue : ' TEST;
  314. MESS 'Valeur attendue : ' REF ;
  315. ERRE 5;
  316. FINSI;
  317.  
  318. * Soustraction entre 1 FLOTTANT et 1 LISTREEL
  319. OBJ1 = 3.;
  320. OBJ2 = LISTRE1;
  321. OBJ3 = OBJ1 '-' OBJ2 ;
  322.  
  323. TEST = (EXTR OBJ3 1);
  324. REF = 2. ;
  325. SI ( TEST NEG REF );
  326. MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  327. MESS 'Valeur obtenue : ' TEST;
  328. MESS 'Valeur attendue : ' REF ;
  329. ERRE 5;
  330. FINSI;
  331.  
  332. ************************************************************************
  333.  
  334. * Addition entre 1 LISTENTI et 1 FLOTTANT
  335. OBJ1 = LISTEN1;
  336. OBJ2 = 1.;
  337. OBJ3 = OBJ1 '+' OBJ2 ;
  338.  
  339. TEST = (EXTR OBJ3 1);
  340. REF = 5 ;
  341. SI ( TEST NEG REF );
  342. MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  343. MESS 'Valeur obtenue : ' TEST;
  344. MESS 'Valeur attendue : ' REF ;
  345. ERRE 5;
  346. FINSI;
  347.  
  348. * Soustraction entre 1 LISTENTI et 1 FLOTTANT
  349. OBJ1 = LISTEN1;
  350. OBJ2 = 1.;
  351. OBJ3 = OBJ1 '-' OBJ2 ;
  352.  
  353. TEST = (EXTR OBJ3 1);
  354. REF = 3 ;
  355. SI ( TEST NEG REF );
  356. MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  357. MESS 'Valeur obtenue : ' TEST;
  358. MESS 'Valeur attendue : ' REF ;
  359. ERRE 5;
  360. FINSI;
  361.  
  362. ************************************************************************
  363.  
  364. * Addition entre 1 FLOTTANT et 1 LISTENTI
  365. OBJ1 = 1.;
  366. OBJ2 = LISTEN1;
  367. OBJ3 = OBJ1 '+' OBJ2 ;
  368.  
  369. TEST = (EXTR OBJ3 1);
  370. REF = 5 ;
  371. SI ( TEST NEG REF );
  372. MESS 'ERREUR de + entre 1 LISTENTI et 1 FLOTTANT';
  373. MESS 'Valeur obtenue : ' TEST;
  374. MESS 'Valeur attendue : ' REF ;
  375. ERRE 5;
  376. FINSI;
  377.  
  378. * Soustraction entre 1 FLOTTANT et 1 LISTENTI
  379. OBJ1 = 1.;
  380. OBJ2 = LISTEN1;
  381. OBJ3 = OBJ1 '-' OBJ2 ;
  382.  
  383. TEST = (EXTR OBJ3 1);
  384. REF = -3 ;
  385. SI ( TEST NEG REF );
  386. MESS 'ERREUR de - entre 1 LISTENTI et 1 FLOTTANT';
  387. MESS 'Valeur obtenue : ' TEST;
  388. MESS 'Valeur attendue : ' REF ;
  389. ERRE 5;
  390. FINSI;
  391.  
  392. FIN;
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  

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