home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 59 / af059sub.adf / install.lha / Installer1.24 / install-test < prev    next >
Text File  |  1993-01-12  |  3KB  |  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.