diskplan-traversal 0.1.0

A library component of Diskplan for applying schemas to disk
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

use anyhow::Result;

#[test]
fn create_directory() -> Result<()> {
    assert_effect_of! {
        under: "/primary"
        applying: "
            subdir/
                subsubdir/
            "
        onto: "/primary"
        yields:
            directories:
                "/primary"
                "/primary/subdir"
                "/primary/subdir/subsubdir"
    }
}

#[test]
fn create_file() -> Result<()> {
    assert_effect_of! {
        under: "/primary"
        applying: "
            subdir/
                subsubfile
                    :source /resource/file1
            subfile
                :source /resource/file2
            "
        onto: "/primary"
        with:
            directories:
                "/resource"
            files:
                "/resource/file1" ["FILE CONTENT 1"]
                "/resource/file2" ["FILE CONTENT 2"]
        yields:
            directories:
                "/primary/subdir"
            files:
                "/primary/subdir/subsubfile" ["FILE CONTENT 1"]
                "/primary/subfile" ["FILE CONTENT 2"]
    }
}

#[test]
fn create_symlink() -> Result<()> {
    assert_effect_of! {
        under: "/primary"
        applying: "
            subdirlink/ -> /secondary/${NAME}
                subfile
                    :source /resource/file
            "

        under: "/secondary"
        applying: "
            $_a/
                $_b/
                    $_c/
            "

        onto: "/primary"
        with:
            directories:
                "/resource"
            files:
                "/resource/file" ["FILE CONTENT"]
        yields:
            directories:
                "/primary"
                "/secondary"
                "/secondary/subdirlink"
            files:
                "/secondary/subdirlink/subfile" ["FILE CONTENT"]
            symlinks:
                "/primary/subdirlink" -> "/secondary/subdirlink"
    }
}

#[test]
fn create_relative_symlink() -> Result<()> {
    assert_effect_of! {
        under: "/"
        applying: "
            versions/
                1.0/
                1.0.1/ -> 1.0
            "
        onto: "/"
        yields:
            directories:
                "/versions"
                "/versions/1.0"
            symlinks:
                "/versions/1.0.1" -> "1.0"
    }
}

#[test]
fn symlink_two_schemas() -> Result<()> {
    assert_effect_of! {
        under: "/local"
        applying: "
            $name/ -> /remote/$PATH
                # Symlink target is created first then modified by this
                :group adm
            "

        under: "/remote"
        applying: "
            $_1/
                # This applies first, but is overridden by schema above
                :group sys
            "

        onto: "/local/example"
        yields:
            directories:
                "/local"
                "/remote/example" [ group = "adm" ]
            symlinks:
                "/local/example" -> "/remote/example"
    }
}