echo/std/os.echo at main · csfh/echo · GitHub

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
; std/os — process and platform info.
/ runtime
/ std/test
/ std/str

$ pid = () {
    ^ runtime.os_pid()
}

$ cwd = () {
    $ p = runtime.os_cwd()
    ? p == 0 {
        ! "cwd failed"
    }
    ^ p
}

$ chdir = (path) {
    $ st = runtime.os_chdir(path)
    ? st < 0 {
        ! "chdir failed"
    }
    ^
}

$ hostname = () {
    ^ runtime.os_hostname()
}

$ platform = () {
    ^ runtime.os_platform()
}

test.it("pid_platform", () {
    test.true(pid() > 0)
    $ p = platform()
    test.true(p == "linux" || p == "macos" || p == "windows")
    test.true(str.len(hostname()) > 0)
    | cwd() {
        $ d {
            test.true(str.len(d) > 0)
        }
        ! e {
            test.fail(e)
        }
    }
})

test.it("chdir_tmp", () {
    | cwd() {
        $ here {
            | chdir("/tmp") {
                $ ok {
                    | cwd() {
                        $ now {
                            test.true(str.ends_with(now, "tmp"))
                        }
                        ! e {
                            test.fail(e)
                        }
                    }
                    | chdir(here) {
                        $ ok2 {}
                        ! e {
                            test.fail(e)
                        }
                    }
                }
                ! e {
                    test.fail(e)
                }
            }
        }
        ! e {
            test.fail(e)
        }
    }
})

test.it("chdir_missing", () {
    | chdir("/tmp/echo_os_chdir_absent") {
        $ ok {
            test.fail("expected chdir error")
        }
        ! e {
            test.eq(e, "chdir failed")
        }
    }
})

\ pid, cwd, chdir, hostname, platform