workbench/utilities/Installer/test.script_simple

   1  ( set a 1 b 2 c 3 d ( set x 4 y ( set z 5 ) Hello "World" ) z "Here I am!" )
   2  ( procedure testlauf
   3    (
   4      ( set trans "Abc" )
   5      ( while
   6        ( < count 10 )
   7        (
   8          ( set count
   9            ( + count 1 )
  10          )
  11          ( set trans
  12            ( "%s %ld" trans count )
  13          )
  14        )
  15      )
  16    )
  17  )
  18  ( complete 20 )
  19  ( set wenn ( if 0 "a" (strlen "Hallodriho" ) ) )
  20  ( set length ( strlen "abc" ) )
  21  ( set sel ( select 2 a b c d e ) )
  22  ( set sel ( select b "eins" "zwei" "drei" ) )
  23  ( set length ( strlen z ) )
  24  ( transcript %10100 20 $14 )
  25  ( welcome "Welcome to" @app-name Hello )
  26  ( set string1 ( "Hello %ld %s %ld %s." b z 99 "Test 234" ) )
  27  ( set a z )
  28  ( complete x )
  29  ( set b @abort-button )
  30  ( transcript "Ready" ( set go "GO!" steady "Steady" ) go ( "Go for %s!" "Gold" ) )
  31  ( transcript "5" ( complete 5 ) "c" ( complete c ) "\"98\"" ( complete "98" ) "z" ( complete z ) )
  32  ( transcript "Summe=" ( + 1 "2" c ( set vier 4 ) ) )
  33  ( set _and_ ( AND 10 15 ) _and_ ( AND 0 15 ) _and_ ( AND 15 0 ) _and_ ( AND -1 2 ) )
  34  ( set negative -42 )
  35  ( set test ( cat a b c " " negative " " "Hello " Hello 99 ) )
  36  ( set n 9 )
  37  ( set result1 ( while ( < 2 n ) ( ( transcript n ) ( set n ( - n 1 ) ) ) ) )
  38  ( set n 9 )
  39  ( set result2 ( until ( = 2 n ) ( ( transcript n ) ( set n ( - n 1 ) ) ) ) )
  40  ( set count 1 )
  41  ( set lauf1 ( testlauf ) )
  42  ( set count 2 )
  43  ( set lauf2 ( testlauf ) )
  44  ( set count 3 )
  45  ( set lauf3 ( testlauf ) )