lenses/tests/test_solaris_system.aug

   1 (* Test for system lens *)
   2 module Test_solaris_system =
   3
   4   let conf = "*ident  \"@(#)system 1.18    97/06/27 SMI\" /* SVR4 1.5 */
   5 *
   6 * SYSTEM SPECIFICATION FILE
   7 *
   8
   9 moddir: /kernel /usr/kernel /other/modules
  10
  11 rootfs:ufs
  12 rootdev:/sbus@1,f8000000/esp@0,800000/sd@3,0:a
  13
  14 include: win
  15 include: sys/shmsys
  16
  17 exclude: win
  18 exclude: sys/shmsys
  19
  20 forceload: drv/foo
  21 forceload: drv/ssd
  22
  23 set nautopush=32
  24 set noexec_user_stack=1
  25 set zfs:zfs_arc_max=12884901888
  26 set test_module:debug = 0x13
  27 set fcp:ssfcp_enable_auto_configuration=1
  28 set scsi_options = 0x7F8
  29 set moddebug & ~0x880
  30 set moddebug | 0x40
  31 "
  32
  33   test Solaris_System.lns get conf =
  34     { "#comment" = "ident  \"@(#)system 1.18    97/06/27 SMI\" /* SVR4 1.5 */" }
  35     { }
  36     { "#comment" = "SYSTEM SPECIFICATION FILE" }
  37     { }
  38     { }
  39     { "moddir"
  40         { "1" = "/kernel" }
  41         { "2" = "/usr/kernel" }
  42         { "3" = "/other/modules" } }
  43     { }
  44     { "rootfs" = "ufs" }
  45     { "rootdev" = "/sbus@1,f8000000/esp@0,800000/sd@3,0:a" }
  46     { }
  47     { "include" = "win" }
  48     { "include" = "sys/shmsys" }
  49     { }
  50     { "exclude" = "win" }
  51     { "exclude" = "sys/shmsys" }
  52     { }
  53     { "forceload" = "drv/foo" }
  54     { "forceload" = "drv/ssd" }
  55     { }
  56     { "set"
  57         { "variable" = "nautopush" }
  58         { "operator" = "=" }
  59         { "value" = "32" } }
  60     { "set"
  61         { "variable" = "noexec_user_stack" }
  62         { "operator" = "=" }
  63         { "value" = "1" } }
  64     { "set"
  65         { "module" = "zfs" }
  66         { "variable" = "zfs_arc_max" }
  67         { "operator" = "=" }
  68         { "value" = "12884901888" } }
  69     { "set"
  70         { "module" = "test_module" }
  71         { "variable" = "debug" }
  72         { "operator" = "=" }
  73         { "value" = "0x13" } }
  74     { "set"
  75         { "module" = "fcp" }
  76         { "variable" = "ssfcp_enable_auto_configuration" }
  77         { "operator" = "=" }
  78         { "value" = "1" } }
  79     { "set"
  80         { "variable" = "scsi_options" }
  81         { "operator" = "=" }
  82         { "value" = "0x7F8" } }
  83     { "set"
  84         { "variable" = "moddebug" }
  85         { "operator" = "&" }
  86         { "value" = "~0x880" } }
  87     { "set"
  88         { "variable" = "moddebug" }
  89         { "operator" = "|" }
  90         { "value" = "0x40" } }
  91
  92 (* Check that moddir supports colons and spaces *)
  93   let moddir_colons = "moddir:/kernel:/usr/kernel:/other/modules
  94 "
  95
  96   test Solaris_System.lns get moddir_colons =
  97     { "moddir"
  98         { "1" = "/kernel" }
  99         { "2" = "/usr/kernel" }
 100         { "3" = "/other/modules" } }
 101
 102 (* Local Variables: *)
 103 (* mode: caml       *)
 104 (* End:             *)