home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / system / installer1.24 / install-test.bak < prev    next >
Encoding:
Text File  |  1994-06-22  |  3.1 KB  |  164 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. ;(transcript "On making \"T:Fred\"...")
  5. ;
  6. ;(makedir "T:fred"
  7. ;    (prompt "I will now create the directory \"T:Fred\"")
  8. ;    (help @makedir-help)
  9. ;    (infos)
  10. ;    (confirm)
  11. ;)
  12. ;
  13. ;(copyfiles
  14. ;    (prompt "Copying all devices to Fred.")
  15. ;    (help @copyfiles-help)
  16. ;    (source "DEVS:")
  17. ;    (dest "T:fred/angie")
  18. ;    (pattern "#?.device")
  19. ;    (files)
  20. ;    (confirm)
  21. ;)
  22. ;
  23. ;(copylib
  24. ;    (prompt "Copying one device to Fred.")
  25. ;    (help @copylib-help)
  26. ;    (source "LIBS:version.library")
  27. ;    (dest "T:fred/angie")
  28. ;    (confirm)
  29. ;)
  30. ;
  31. ;(startup "FredApp"
  32. ;    (prompt
  33. ;        "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use FredApp.")
  34. ;    (help "No help for this function")
  35. ;    (command "assign Fred: T:\n")
  36. ;)
  37. ;
  38. ;(tooltype 
  39. ;    (prompt "Tooltype test")
  40. ;    (help "No help here either")
  41. ;    (dest "T:fred")
  42. ;    (noposition)
  43. ;    (confirm)
  44. ;)
  45. ;
  46. ;(textfile
  47. ;    (prompt "Creating a textfile...")
  48. ;    (help "The 'NO HELP' generation continues!")
  49. ;    (dest "T:fred/prayer")
  50. ;    (append "In the begining there was the Amiga 1000, and this was good...\n")
  51. ;    (include "DEVS:Mountlist")
  52. ;    (confirm)
  53. ;)
  54. ;
  55. ;(run "info >t:fred/result"
  56. ;    (prompt "Running 'info'")
  57. ;    (help "This will only work from the CLI!")
  58. ;    (confirm)
  59. ;)
  60. ;
  61. ;(if @pretend
  62. ;    (makeassign "FRED" "T:" (safe))
  63. ;    (makeassign "FRED" "T:fred")
  64. ;)
  65. ;
  66. ;(rename "Fred:result" "Fred:data"
  67. ;    (prompt "Renaming 'result' to 'data'")
  68. ;    (help "So why wasn't it named that in the first place??")
  69. ;    (confirm)
  70. ;)
  71. ;
  72. ;(delete "FRED:angie/printer.device"
  73. ;    (prompt "Going to delete Fred's printer.")
  74. ;    (help "That's nice...")
  75. ;    (confirm)
  76. ;)
  77. ;
  78. ;(message "End of first set of tests!")
  79. ;
  80. ;(set name
  81. ;    (askdir
  82. ;        (prompt "OK, where was that directory??")
  83. ;        (help @askdir-help)
  84. ;        (default "FRED:")
  85. ;    )
  86. ;)
  87. ;
  88. ;(debug "Directory was " name)
  89. ;
  90. ;(set name
  91. ;    (askfile
  92. ;        (prompt "OK, where was that file??")
  93. ;        (help @askfile-help)
  94. ;        (default "FRED:angie")
  95. ;    )
  96. ;)
  97. ;
  98. ;(debug "File was " name)
  99. ;
  100. ;(set name
  101. ;    (askstring
  102. ;        (prompt "OK, what should I have named that data file?")
  103. ;        (help @askstring-help)
  104. ;        (default "happy_file")
  105. ;    )
  106. ;)
  107. ;
  108. ;(debug "String was " name)
  109.  
  110. (set name
  111.     (asknumber
  112.         (prompt "How old are you?")
  113.         (help @asknumber-help)
  114.         (range 1 150)
  115.         (default 32)
  116.     )
  117. )
  118.  
  119. (debug "Number was " name)
  120.  
  121. ;(set name
  122. ;    (askchoice
  123. ;        (prompt "How do you rate things so far?")
  124. ;        (help @askchoice-help)
  125. ;        (choices "Pretty good" "OK" "Only fair" "Rather dismal")
  126. ;        (default 0)
  127. ;    )
  128. ;)
  129. ;
  130. ;(debug "Choice was " name)
  131. ;
  132. ;(set name
  133. ;    (askoptions
  134. ;        (prompt "What would you like to eat?")
  135. ;        (help @askoptions-help)
  136. ;        (choices "Hamburger" "Fries" "Salad" "Strawberry Shake" "Apple Pie")
  137. ;        (default 9)
  138. ;    )
  139. ;)
  140. ;
  141. ;(debug "Options bits were " name)
  142. ;
  143. ;(set name
  144. ;    (askbool
  145. ;        (prompt "Should Puerto Rico become the next state?")
  146. ;        (help "It's up to YOU.")
  147. ;        (choices "Make a State" "Nuke 'Em")
  148. ;        (default 0)
  149. ;    )
  150. ;)
  151. ;
  152. ;(debug "Result of AskBool was " name)
  153. ;
  154. ;(trap    1
  155. ;    (askbool
  156. ;        (prompt "Please hit ABORT!")
  157. ;        (help "Pretty please...")
  158. ;    )
  159. ;)
  160. ;
  161. ;(abort
  162. ;     "Well, I hope you liked this test of the emergency installer system!"
  163. ;)
  164. ;