home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / test / octave.test / index / dfi-t / index.exp next >
Text File  |  1996-09-28  |  2KB  |  164 lines
  1. # Tests with do_fortran_indexing == "true"
  2.  
  3. # scalar tests
  4.  
  5. set test index-s-1
  6. set prog_output "ans = 1"
  7. do_test s-1.m
  8.  
  9. set test index-s-2
  10. set prog_output "ans = 1"
  11. do_test s-2.m
  12.  
  13. set test index-s-3
  14. set prog_output "ans = 1"
  15. do_test s-3.m
  16.  
  17. set test index-s-4
  18. set prog_output "ans = 1"
  19. do_test s-4.m
  20.  
  21. set test index-s-5
  22. set prog_output "ans = 1"
  23. do_test s-5.m
  24.  
  25. set test index-s-6
  26. set prog_output "ans = 1"
  27. do_test s-6.m
  28.  
  29. set test index-s-7
  30. set prog_output "ans = 1"
  31. do_test s-7.m
  32.  
  33. set test index-s-8
  34. set prog_output "error:.*"
  35. do_test s-8.m
  36.  
  37. set test index-s-9
  38. set prog_output "error:.*"
  39. do_test s-9.m
  40.  
  41. set test index-s-10
  42. set prog_output "error:.*"
  43. do_test s-10.m
  44.  
  45. set test index-s-11
  46. set prog_output "error:.*"
  47. do_test s-11.m
  48.  
  49. set test index-s-12
  50. set prog_output "error:.*"
  51. do_test s-12.m
  52.  
  53. set test index-s-13
  54. set prog_output "error:.*"
  55. do_test s-13.m
  56.  
  57. set test index-s-14
  58. set prog_output "error:.*"
  59. do_test s-14.m
  60.  
  61. set test index-s-15
  62. set prog_output "error:.*"
  63. do_test s-15.m
  64.  
  65. set test index-s-16
  66. set prog_output "error:.*"
  67. do_test s-16.m
  68.  
  69. set test index-s-17
  70. set prog_output "error:.*"
  71. do_test s-17.m
  72.  
  73. set test index-s-18
  74. set prog_output "error:.*"
  75. do_test s-18.m
  76.  
  77. set test index-s-19
  78. set prog_output "error:.*"
  79. do_test s-19.m
  80.  
  81. set test index-s-20
  82. set prog_output "error:.*"
  83. do_test s-20.m
  84.  
  85. # vector tests
  86.  
  87. set test index-v-1
  88. set prog_output "ans = 4"
  89. do_test v-1.m
  90.  
  91. set test index-v-2
  92. set prog_output "ans = 3"
  93. do_test v-2.m
  94.  
  95. set test index-v-3
  96. set prog_output "ans = 1"
  97. do_test v-3.m
  98.  
  99. set test index-v-4
  100. set prog_output "ans = 1"
  101. do_test v-4.m
  102.  
  103. set test index-v-5
  104. set prog_output "ans = 2"
  105. do_test v-5.m
  106.  
  107. set test index-v-6
  108. set prog_output "ans = 1"
  109. do_test v-6.m
  110.  
  111. set test index-v-7
  112. set prog_output "ans = 1"
  113. do_test v-7.m
  114.  
  115. set test index-v-8
  116. set prog_output "error:.*"
  117. do_test v-8.m
  118.  
  119. set test index-v-9
  120. set prog_output "error:.*"
  121. do_test v-9.m
  122.  
  123. set test index-v-10
  124. set prog_output "error:.*"
  125. do_test v-10.m
  126.  
  127. set test index-v-11
  128. set prog_output "ans = 1"
  129. do_test v-11.m
  130.  
  131. set test index-v-12
  132. set prog_output "error:.*"
  133. do_test v-12.m
  134.  
  135. set test index-v-13
  136. set prog_output "ans = 1"
  137. do_test v-13.m
  138.  
  139. set test index-v-14
  140. set prog_output "ans = 1"
  141. do_test v-14.m
  142.  
  143. set test index-v-15
  144. set prog_output "ans = 1"
  145. do_test v-15.m
  146.  
  147. # matrix tests
  148.  
  149. set test index-m-1
  150. set prog_output "ans = 1"
  151. do_test m-1.m
  152.  
  153. set test index-m-2
  154. set prog_output "ans = 1"
  155. do_test m-2.m
  156.  
  157. set test index-m-3
  158. set prog_output "error:.*"
  159. do_test m-3.m
  160.  
  161. set test index-m-4
  162. set prog_output "ans = 3"
  163. do_test m-4.m
  164.