workbench/utilities/Installer/test.script

   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 "List DEVS:\n" "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 ( run "C:List \"\" SYS: >t:fred/result"
  58          ( prompt "Running 'C:List'" )
  59          ( help "This will only work from the CLI!" )
  60          ( confirm )
  61  )
  62
  63  ( if @pretend
  64          ( makeassign "FRED" "T:"  ( safe )  )
  65          ( makeassign "FRED" "T:fred" )
  66  )
  67
  68  ( rename "Fred:result" "Fred:data"
  69          ( prompt "Renaming 'result' to 'data'" )
  70          ( help "So why wasn't it named that in the first place??" )
  71          ( confirm )
  72  )
  73
  74  ( delete "FRED:angie/printer.device"
  75          ( prompt "Going to delete Fred's printer." )
  76          ( help "That's nice..." )
  77          ( confirm )
  78  )
  79
  80  ( message "End of first set of tests!" )
  81
  82  ( set name
  83          ( askdir
  84                  ( prompt "OK, where was that directory??" )
  85                  ( help @askdir-help )
  86                  ( default "FRED:" )
  87          )
  88  )
  89
  90  ( debug "Directory was " name )
  91
  92  ( set name
  93          ( askfile
  94                  ( prompt "OK, where was that file??" )
  95                  ( help @askfile-help )
  96                  ( default "FRED:angie" )
  97          )
  98  )
  99
 100  ( debug "File was " name )
 101
 102  ( set name
 103          ( askstring
 104                  ( prompt "OK, what should I have named that data file?" )
 105                  ( help @askstring-help )
 106                  ( default "happy_file" )
 107          )
 108  )
 109
 110  ( debug "String was " name )
 111
 112  ( set name
 113          ( asknumber
 114                  ( prompt "How old are you?" )
 115                  ( help @asknumber-help )
 116                  ( range 1 150 )
 117                  ( default 32 )
 118          )
 119  )
 120
 121  ( debug "Number was " name )
 122
 123  ( set name
 124          ( askchoice
 125                  ( prompt "How do you rate things so far?" )
 126                  ( help @askchoice-help )
 127                  ( choices "Pretty good" "OK" "Only fair" "Rather dismal" )
 128                  ( default 0 )
 129          )
 130  )
 131
 132  ( debug "Choice was " name )
 133
 134  ( set name
 135          ( askoptions
 136                  ( prompt "What would you like to eat?" )
 137                  ( help @askoptions-help )
 138                  ( choices "Hamburger" "Fries" "Salad" "Strawberry Shake" "Apple Pie" )
 139                  ( default 9 )
 140          )
 141  )
 142
 143  ( debug "Options bits were " name )
 144
 145  ( set name
 146          ( askbool
 147                  ( prompt "Should Puerto Rico become the next state?" )
 148                  ( help "It's up to YOU." )
 149                  ( choices "Make a State" "Nuke 'Em" )
 150                  ( default 0 )
 151          )
 152  )
 153
 154  ( debug "Result of AskBool was " name )
 155
 156  ( trap 1
 157          ( askbool
 158                  ( prompt "Please hit ABORT!" )
 159                  ( help "Pretty please..." )
 160          )
 161  )
 162
 163  ( abort
 164          "Well, I hope you liked this test of the emergency installer system!"
 165  )
 166
 167