home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / SYSTEM / SETENVJW.ZIP / SETTEST.BAT < prev   
Encoding:
DOS Batch File  |  1991-06-17  |  6.7 KB  |  326 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. set name=
  4. rem    environment space
  5. set
  6. rem    variable not found
  7. setenv name
  8. if errorlevel 8 goto a0
  9. goto error
  10. :a0
  11. rem    answer    name=%name%
  12. rem    variable created
  13. setenv name john
  14. if errorlevel 3 goto a1
  15. goto error
  16. :a1
  17. rem    answer    name=%name%
  18. rem    variable updated
  19. setenv name test
  20. if errorlevel 5 goto a2
  21. goto error
  22. :a2
  23. rem    answer    name=%name%
  24. rem    variable erased
  25. setenv name
  26. if errorlevel 2 goto b0
  27. goto error
  28. :b0
  29. rem    answer    name=%name%
  30. rem    drive invalid
  31. setenv name %%-9
  32. if errorlevel 9 goto b1
  33. goto error
  34. :b1
  35. rem    answer    name=%name%
  36. rem    drive offset
  37. setenv name %%+1:
  38. if errorlevel 5 goto b2
  39. goto error
  40. :b2
  41. rem    answer    name=%name%
  42. rem    drive offset / drive invalid
  43. setenv name %%-1:
  44. if errorlevel 9 goto b3
  45. if errorlevel 5 goto b3
  46. goto error
  47. :b3
  48. rem    answer    name=%name%
  49. rem    drive offset for current drive
  50. setenv name %%+0:
  51. if errorlevel 5 goto b4
  52. goto error
  53. :b4
  54. rem    answer    name=%name%
  55. rem    DOS version Major and Minor
  56. setenv name MS-DOS V%%dosv.%%dosm
  57. if errorlevel 5 goto b5
  58. goto error
  59. :b5
  60. rem    answer    name=%name%
  61. rem    current directory
  62. setenv name %%cwd
  63. if errorlevel 5 goto b6
  64. goto error
  65. :b6
  66. rem    answer    name=%name%
  67. rem    current drive
  68. setenv name %%drive:
  69. if errorlevel 5 goto b7
  70. goto error
  71. :b7
  72. rem    answer    name=%name%
  73. rem    current time
  74. setenv name %%time
  75. if errorlevel 5 goto b8
  76. goto error
  77. :b8
  78. rem    answer    name=%name%
  79. rem    current date
  80. setenv name %%date
  81. if errorlevel 5 goto b9
  82. goto error
  83. :b9
  84. rem    answer    name=%name%
  85. rem    current date
  86. setenv name 1 is %%date1 2 is %%date2 3 is %%date3
  87. if errorlevel 5 goto c0
  88. goto error
  89. :c0
  90. rem    answer    name=%name%
  91. rem    prompt message
  92. setenv name %%prompt Hi there 
  93. if errorlevel 5 goto c1
  94. if errorlevel 2 goto c1
  95. goto error
  96. :c1
  97. rem    answer    name=%name%
  98. rem    missing delimiter
  99. setenv name %%prompt %%def#test
  100. if errorlevel 6 goto c2
  101. goto error
  102. :c2
  103. rem    answer    name=%name%
  104. rem    setenv version 1.1 and greater
  105. rem    prompt and  noecho
  106. setenv name %%prompt %%noecho Hi there 
  107. if errorlevel 5 goto c3
  108. if errorlevel 2 goto c3
  109. goto error
  110. :c3
  111. rem    answer    name=%name%
  112. rem    setenv version 1.3 and greater
  113. rem    prompt and upper case
  114. setenv name %%prompt %%upper Hi there 
  115. if errorlevel 5 goto c4
  116. if errorlevel 2 goto c4
  117. goto error
  118. :c4
  119. rem    answer    name=%name%
  120. rem    prompt and default value
  121. setenv name %%prompt %%def#test# Hi there 
  122. if errorlevel 5 goto c5
  123. if errorlevel 3 goto c5
  124. goto error
  125. :c5
  126. rem    answer    name=%name%
  127. rem    setenv version 1.5 and greater
  128. rem    prompt and time out no default
  129. setenv name %%prompt %%timo=04 Hi there 
  130. if errorlevel 2 goto c6
  131. goto error
  132. :c6
  133. rem    answer    name=%name%
  134. rem    setenv version 1.5 and greater
  135. rem    prompt and time out with default
  136. setenv name %%prompt %%def#test# %%timo=04 Hi there 
  137. if errorlevel 3 goto c7
  138. goto error
  139. :c7
  140. rem    answer    name=%name%
  141. rem    setenv version 1.5 and greater
  142. rem    time out with default with defaut
  143. setenv name %%prompt %%def#test# %%timo=04 Hi there 
  144. if errorlevel 5 goto d0
  145. goto error
  146. :d0
  147. rem    answer    name=%name%
  148. rem    order test 1
  149. setenv name %%prompt %%noecho %%upper %%def#test# Hi there 
  150. if errorlevel 5 goto d1
  151. goto error
  152. :d1
  153. rem    answer    name=%name%
  154. rem    order test 2
  155. setenv name %%prompt %%upper %%noecho %%def#test# Hi there 
  156. if errorlevel 5 goto d2
  157. goto error
  158. :d2
  159. rem    answer    name=%name%
  160. rem    order test 3
  161. setenv name %%prompt %%def#test# %%noecho %%upper Hi there 
  162. if errorlevel 5 goto d3
  163. goto error
  164. :d3
  165. rem    answer    name=%name%
  166. rem    order test 4
  167. setenv name %%prompt %%def#test# %%noecho %%upper %%timo=4 Hi there 
  168. if errorlevel 5 goto d4
  169. goto error
  170. :d4
  171. rem    answer    name=%name%
  172. rem    order test 5
  173. setenv name %%prompt %%timo=4 %%def#test# %%noecho %%upper Hi there 
  174. if errorlevel 5 goto f0
  175. goto error
  176. :f0
  177. rem    answer    name=%name%
  178. rem    setenv version 1.5 and greater
  179. rem    change upper case
  180. setenv name
  181. setenv name %%chgup
  182. if errorlevel 8 goto f1
  183. goto error
  184. :f1
  185. rem    answer    name=%name%
  186. rem    setenv version 1.5 and greater
  187. rem    change upper case
  188. setenv name test this is a test message
  189. setenv name %%chgup
  190. if errorlevel 5 goto g0
  191. goto error
  192. :g0
  193. rem    answer    name=%name%
  194. rem    setenv version 1.2 and greater
  195. rem    replace variable
  196. setenv name
  197. setenv name %%rep#t#h#
  198. if errorlevel 8 goto g1
  199. goto error
  200. :g1
  201. rem    answer    name=%name%
  202. rem    setenv version 1.2 and greater
  203. rem    replace variable
  204. setenv name test
  205. setenv name %%rep#t#h#
  206. if errorlevel 5 goto g2
  207. goto error
  208. :g2
  209. rem    answer    name=%name%
  210. rem    setenv version 1.2 and greater
  211. rem    missing delimiter
  212. setenv name %%rep#t
  213. if errorlevel 6 goto g3
  214. goto error
  215. :g3
  216. rem    answer    name=%name%
  217. rem    setenv version 1.2 and greater
  218. rem    missing delimiter
  219. setenv name %%rep#t#
  220. if errorlevel 6 goto h0
  221. goto error
  222. :h0
  223. rem    answer    name=%name%
  224. rem    setenv version 1.4 test
  225. rem    test Setenv variable data size
  226. setenv name
  227. setenv ans %%prompt %%def#NO# %%upper 170 bytes free in envir. space (Y/N) 
  228. setenv ans %%rep#E##
  229. setenv ans %%rep#S##
  230. setenv ans %%rep# ##
  231. if not "%ans%" == "Y" goto h1
  232. set lett=abcdefghij
  233. set numb=0123456789
  234. set unde=__________
  235. set brac=()()()()
  236. setenv a %lett%%brac%*%lett%*%lett%*%unde%*%lett%*%unde%*
  237. rem    answer    name=%a%
  238. setenv brac
  239. setenv unde
  240. setenv a %%rep#*#%numb%#
  241. set 
  242. setenv a %%rep#%numb%%lett%%numb%%lett%%numb%#-out-#
  243. rem    answer    name=%a%
  244. setenv lett
  245. setenv numb
  246. setenv a
  247. :h1
  248. setenv ans
  249. rem    setenv version 1.3 and greater
  250. rem    root test
  251. setenv c %%prompt %%def#e# Drive letter for Command.Com 
  252. setenv c %%rep# ##
  253. if not "%c%" == "" goto z0
  254. echo root command environment not run missing drive.
  255. goto endtest
  256. :z0
  257. setenv d %%drive:
  258. setenv e %%cwd
  259. %c%:\command  /c setenv %%rce name fred
  260. if errorlevel 1 goto z1
  261. %d%
  262. cd %e%
  263. goto error
  264. :z1
  265. rem    answer    name=%name%
  266. %d%
  267. cd %e%
  268. :endtest
  269. rem    cleanup
  270. setenv c
  271. setenv d
  272. setenv e
  273. setenv name
  274. setenv
  275. rem    End of Test.
  276. goto fini
  277. :error
  278. echo An error occured.
  279. if errorlevel 10 goto full
  280. if errorlevel 9 goto letter
  281. if errorlevel 8 goto not
  282. if errorlevel 7 goto dos
  283. if errorlevel 6 goto del
  284. if errorlevel 5 goto update
  285. if errorlevel 4 goto over
  286. if errorlevel 3 goto create
  287. if errorlevel 2 goto erase
  288. if errorlevel 1 goto root
  289. if errorlevel 0 goto help
  290. echo no errorlevel status
  291. goto fini
  292. :full
  293. echo environment space is full.
  294. goto fini
  295. :letter
  296. echo offset drive will be invalid.
  297. goto fini
  298. :not
  299. echo environment variable not found.
  300. goto fini
  301. :dos
  302. echo don't know about MS-DOS V1.x
  303. goto fini
  304. :del
  305. echo unmatched delimiter.
  306. goto fini
  307. :update
  308. echo environment variable updated.
  309. goto fini
  310. :over
  311. echo environment space over written. 
  312. goto fini
  313. :create
  314. echo environment variable created.
  315. goto fini
  316. :erase
  317. echo environment variable erased.
  318. goto fini
  319. :root
  320. echo root environment set.
  321. goto fini
  322. :help
  323. echo no command, help issued.
  324. goto fini
  325. :fini
  326.