89 lines
2.8 KiB
Plaintext
89 lines
2.8 KiB
Plaintext
module Test_vfstab =
|
|
|
|
let simple = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro\n"
|
|
let simple_tree =
|
|
{ "1"
|
|
{ "spec" = "/dev/dsk/c0t0d0s1" }
|
|
{ "fsck" = "/dev/rdsk/c0t0d0s1" }
|
|
{ "file" = "/test" }
|
|
{ "vfstype" = "ufs" }
|
|
{ "passno" = "1" }
|
|
{ "atboot" = "yes" }
|
|
{ "opt" = "ro" } }
|
|
test Vfstab.lns get simple = simple_tree
|
|
|
|
let trailing_ws = "/dev/dsk/c0t0d0s1\t /dev/rdsk/c0t0d0s1\t /test\t ufs\t 1\t yes\t ro \t \n"
|
|
test Vfstab.lns get trailing_ws = simple_tree
|
|
|
|
(* Now test combinations where unneeded fields can be replaced by dashes and
|
|
then should not appear in the tree. *)
|
|
let gen_empty_field(fsck:string) (passno:string) (opt:string) =
|
|
"/dev/dsk/c0t0d0s1\t " . fsck . "\t /test\t ufs\t " . passno . " yes " . opt . "\t\n"
|
|
|
|
(* Missing fsck *)
|
|
let no_fsck = gen_empty_field "-" "1" "ro"
|
|
test Vfstab.lns get no_fsck =
|
|
{ "1"
|
|
{ "spec" = "/dev/dsk/c0t0d0s1" }
|
|
{ "file" = "/test" }
|
|
{ "vfstype" = "ufs" }
|
|
{ "passno" = "1" }
|
|
{ "atboot" = "yes" }
|
|
{ "opt" = "ro" } }
|
|
|
|
test Vfstab.lns put no_fsck after
|
|
insa "fsck" "/1/spec" ;
|
|
set "/1/fsck" "/dev/rdsk/c0t0d0s1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro"
|
|
|
|
(* Missing passno *)
|
|
let no_passno = gen_empty_field "/dev/rdsk/c0t0d0s1" "-" "ro"
|
|
test Vfstab.lns get no_passno =
|
|
{ "1"
|
|
{ "spec" = "/dev/dsk/c0t0d0s1" }
|
|
{ "fsck" = "/dev/rdsk/c0t0d0s1" }
|
|
{ "file" = "/test" }
|
|
{ "vfstype" = "ufs" }
|
|
{ "atboot" = "yes" }
|
|
{ "opt" = "ro" } }
|
|
|
|
test Vfstab.lns put no_passno after
|
|
insa "passno" "/1/vfstype" ;
|
|
set "/1/passno" "1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro"
|
|
|
|
(* Missing opts *)
|
|
let no_opts = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "-"
|
|
test Vfstab.lns get no_opts =
|
|
{ "1"
|
|
{ "spec" = "/dev/dsk/c0t0d0s1" }
|
|
{ "fsck" = "/dev/rdsk/c0t0d0s1" }
|
|
{ "file" = "/test" }
|
|
{ "vfstype" = "ufs" }
|
|
{ "passno" = "1" }
|
|
{ "atboot" = "yes" } }
|
|
|
|
test Vfstab.lns put no_opts after
|
|
insa "opt" "/1/atboot" ;
|
|
insa "opt" "/1/atboot" ;
|
|
set "/1/opt[1]" "ro" ;
|
|
set "/1/opt[2]" "fg" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro,fg"
|
|
|
|
let multi_opts = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro,nosuid,retry=5,fg\n"
|
|
let multi_opts_tree =
|
|
{ "1"
|
|
{ "spec" = "/dev/dsk/c0t0d0s1" }
|
|
{ "fsck" = "/dev/rdsk/c0t0d0s1" }
|
|
{ "file" = "/test" }
|
|
{ "vfstype" = "ufs" }
|
|
{ "passno" = "1" }
|
|
{ "atboot" = "yes" }
|
|
{ "opt" = "ro" }
|
|
{ "opt" = "nosuid" }
|
|
{ "opt" = "retry"
|
|
{ "value" = "5" } }
|
|
{ "opt" = "fg" } }
|
|
test Vfstab.lns get multi_opts = multi_opts_tree
|
|
|
|
(* Local Variables: *)
|
|
(* mode: caml *)
|
|
(* End: *)
|