lenses/tests/test_bootconf.aug

   1 (*
   2 Module: Test_BootConf
   3   Provides unit tests for the <BootConf> lens.
   4 *)
   5
   6 module Test_bootconf =
   7
   8 test BootConf.boot get "boot /bsd -s\n" =
   9   { "boot"
  10     { "image" = "/bsd" }
  11     { "arg" = "-s" } }
  12
  13 test BootConf.echo get "echo 42\n" =
  14   { "echo" = "42" }
  15
  16 test BootConf.ls get "ls /\n" =
  17   { "ls" = "/" }
  18
  19 test BootConf.ls get "ls //\n" =
  20   { "ls" = "//" }
  21
  22 test BootConf.ls get "ls /some/path/\n" =
  23   { "ls" = "/some/path/" }
  24
  25 test BootConf.machine get "machine diskinfo\n" =
  26   { "machine"
  27     { "diskinfo" } }
  28
  29 test BootConf.machine get "machine comaddr 0xdeadbeef\n" =
  30   { "machine"
  31     { "comaddr" = "0xdeadbeef" } }
  32
  33 test BootConf.set get "set tty com0\n" =
  34   { "set"
  35     { "tty" = "com0" } }
  36
  37 test BootConf.single_command get "help\n" =
  38   { "help" }
  39
  40 test BootConf.stty get "stty /dev/cuaU0 115200\n" =
  41   { "stty"
  42     { "device" = "/dev/cuaU0" }
  43     { "speed" = "115200" } }
  44
  45 test BootConf.stty get "stty /dev/cuaU0\n" =
  46   { "stty"
  47     { "device" = "/dev/cuaU0" } }