test 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270
  1. # Test code
  2. # Just for debugging purposes
  3. PRINT="Default CTL:\n"
  4. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  5. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  6. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  7. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  8. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  9. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  10. CTL{reset}="mixer"
  11. PRINT="After CTL{reset}=\"mixer\":\n"
  12. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  13. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  14. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  15. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  16. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  17. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  18. CTL{numid}="987"
  19. CTL{iface}="sequencer"
  20. CTL{device}="10"
  21. CTL{subdevice}="20"
  22. CTL{name}="Just Test"
  23. CTL{index}="999"
  24. PRINT="After test sequence:\n"
  25. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  26. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  27. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  28. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  29. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  30. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  31. ERROR="Ignore following error:\n "
  32. PROGRAM="__just_test"
  33. PRINT="CTL{do_count} test:\n"
  34. CTL{search}="mixer", CTL{name}="*Switch*", \
  35. PRINT=" *Switch* count result: $ctl{do_count}\n"
  36. PRINT="__ctl_search test:\n"
  37. CTL{search}="mixer", CTL{name}="*Switch*", PROGRAM!="__ctl_search", GOTO="skip_switch_search"
  38. PRINT=" *Switch 0* search result: $result\n"
  39. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  40. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  41. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  42. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  43. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  44. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  45. CTL{search}="mixer", CTL{name}="*Switch*", PROGRAM!="__ctl_search 1", GOTO="skip_switch_search"
  46. PRINT=" *Switch 1* search result: $result\n"
  47. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  48. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  49. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  50. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  51. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  52. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  53. PRINT="First ten elements:\n"
  54. CTL{search}="mixer", CTL{name}="*", CTL{do_search 0}!="1", GOTO="skip_first_ten_search"
  55. PRINT=" Element #0:\n"
  56. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  57. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  58. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  59. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  60. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  61. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  62. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  63. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  64. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  65. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  66. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  67. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  68. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  69. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  70. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  71. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  72. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  73. CTL{search}="mixer", CTL{name}="*", CTL{do_search 1}!="1", GOTO="skip_first_ten_search"
  74. PRINT=" Element #1:\n"
  75. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  76. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  77. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  78. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  79. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  80. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  81. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  82. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  83. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  84. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  85. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  86. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  87. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  88. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  89. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  90. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  91. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  92. CTL{search}="mixer", CTL{name}="*", CTL{do_search 2}!="1", GOTO="skip_first_ten_search"
  93. PRINT=" Element #2:\n"
  94. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  95. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  96. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  97. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  98. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  99. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  100. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  101. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  102. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  103. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  104. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  105. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  106. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  107. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  108. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  109. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  110. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  111. CTL{search}="mixer", CTL{name}="*", CTL{do_search 3}!="3", GOTO="skip_first_ten_search"
  112. PRINT=" Element #3:\n"
  113. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  114. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  115. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  116. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  117. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  118. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  119. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  120. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  121. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  122. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  123. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  124. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  125. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  126. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  127. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  128. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  129. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  130. CTL{search}="mixer", CTL{name}="*", CTL{do_search 4}!="1", GOTO="skip_first_ten_search"
  131. PRINT=" Element #4:\n"
  132. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  133. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  134. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  135. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  136. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  137. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  138. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  139. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  140. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  141. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  142. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  143. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  144. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  145. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  146. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  147. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  148. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  149. CTL{search}="mixer", CTL{name}="*", CTL{do_search 5}!="1", GOTO="skip_first_ten_search"
  150. PRINT=" Element #5:\n"
  151. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  152. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  153. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  154. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  155. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  156. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  157. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  158. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  159. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  160. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  161. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  162. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  163. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  164. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  165. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  166. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  167. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  168. CTL{search}="mixer", CTL{name}="*", CTL{do_search 6}!="1", GOTO="skip_first_ten_search"
  169. PRINT=" Element #6:\n"
  170. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  171. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  172. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  173. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  174. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  175. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  176. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  177. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  178. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  179. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  180. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  181. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  182. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  183. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  184. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  185. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  186. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  187. CTL{search}="mixer", CTL{name}="*", CTL{do_search 7}!="1", GOTO="skip_first_ten_search"
  188. PRINT=" Element #7:\n"
  189. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  190. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  191. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  192. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  193. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  194. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  195. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  196. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  197. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  198. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  199. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  200. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  201. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  202. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  203. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  204. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  205. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  206. CTL{search}="mixer", CTL{name}="*", CTL{do_search 8}!="1", GOTO="skip_first_ten_search"
  207. PRINT=" Element #8:\n"
  208. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  209. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  210. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  211. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  212. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  213. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  214. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  215. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  216. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  217. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  218. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  219. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  220. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  221. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  222. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  223. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  224. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  225. CTL{search}="mixer", CTL{name}="*", CTL{do_search 9}!="1", GOTO="skip_first_ten_search"
  226. PRINT=" Element #9:\n"
  227. PRINT=" CTL{numid}=\"$ctl{numid}\"\n"
  228. PRINT=" CTL{iface}=\"$ctl{iface}\"\n"
  229. PRINT=" CTL{device}=\"$ctl{device}\"\n"
  230. PRINT=" CTL{subdevice}=\"$ctl{subdevice}\"\n"
  231. PRINT=" CTL{name}=\"$ctl{name}\"\n"
  232. PRINT=" CTL{index}=\"$ctl{index}\"\n"
  233. PRINT=" CTL{type}=\"$ctl{type}\"\n"
  234. PRINT=" CTL{attr}=\"$ctl{attr}\"\n"
  235. PRINT=" CTL{owner}=\"$ctl{owner}\"\n"
  236. PRINT=" CTL{count}=\"$ctl{count}\"\n"
  237. PRINT=" CTL{min}=\"$ctl{min}\"\n"
  238. PRINT=" CTL{max}=\"$ctl{max}\"\n"
  239. PRINT=" CTL{step}=\"$ctl{step}\"\n"
  240. PRINT=" CTL{dBmin}=\"$ctl{dBmin}\"\n"
  241. PRINT=" CTL{dBmax}=\"$ctl{dBmax}\"\n"
  242. PRINT=" CTL{items}=\"$ctl{items}\"\n"
  243. PRINT=" CTL{value}=\"$ctl{value}\"\n"
  244. LABEL="skip_first_ten_search"
  245. PRINT="Elements write test #1:\n", \
  246. CTL{search}="mixer", CTL{name}="Front Playback Switch", \
  247. CTL{do_search}=="1", CTL{value}="on,on", \
  248. PRINT=" result=$result\n"
  249. PRINT="Elements write test #2:\n", \
  250. CTL{search}="mixer", CTL{name}="Front Playback Volume", \
  251. CTL{do_search}=="1", CTL{value}="32,32", \
  252. PRINT=" result=$result\n"
  253. PRINT="Elements write test #3:\n", \
  254. CTL{search}="mixer", CTL{name}="Front Playback Volume Error", \
  255. CTL{do_search}=="1", \
  256. PRINT=" result=$result\n"
  257. #CTL{reset}="mixer", CTL{name}="Input Source", PRINT="***$ctl{enums}\n"
  258. PRINT="\nAll tests done..\n"