shelly-shell 0.5.2

A Rust based Unix style shell with a typed and structured language syntax.
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

# Native and scripted exports use the same import and reference paths.
let $fixture = $args[0]
mkdir -p "${fixture}/std"
printf "%s" "visible \"Terminal\"; visible `cd; pub fn move(\$path: String) { cd \$path; echo moved }; pub fn terminal_identity(\$value: Terminal): Terminal { \$value }" -> "${fixture}/std/private.shy"
printf "%s" "pub visible \"Terminal\"; pub visible `run_process; pub visible `cd; pub fn marker(): String { \"public\" }" -> "${fixture}/std/public.shy"
printf "%s" "pub import std::public; pub visible `std::public::run_process; pub visible \"std::public::Terminal\"; pub visible `std::public::marker" -> "${fixture}/std/bridge.shy"
printf "%s" "pub import std::public; visible `std::public::run_process; visible \"std::public::Terminal\"; pub fn marker(): String { std::public::marker }" -> "${fixture}/std/private_bridge.shy"
printf "%s" "pub import std::public::{ run_process, Terminal }; pub fn marker(): String { \"selected\" }" -> "${fixture}/std/selected.shy"
printf "%s" "pub visible \"UnknownNativeType\"" -> "${fixture}/std/missing.shy"
printf "%s" "[when false] { pub visible \"UnknownNativeType\" }; pub fn marker(): String { \"false\" }" -> "${fixture}/std/skipped.shy"
printf "%s" "pub let \$state = \"script\"; pub fn value(): String { \$state }" -> "${fixture}/std/script.shy"
printf "%s" "pub import std::script; pub visible `std::script::value" -> "${fixture}/std/script_bridge.shy"

fn visibility_case($source: String, $expected: String, $diagnostic: String)
{
    let $fixture = $args[0]
    let $reply = run_process [`$shelly, "-m", "-c", $source] [
        "cwd": $fixture, "env": ["HOME": $fixture, "PATH": "/usr/bin:/bin",
            "SHELLY_STD_PATH": "${fixture}/std", "TERM": "dumb", "LANG": "C.UTF-8"],
        "stdin_file": "/dev/null", "stdout_file": "${fixture}/out",
        "stderr_file": "${fixture}/err", "timeout_ms": 3000]
    require (($reply["error"] == ()) && ($reply["signal"] == ()) &&
        (!$reply["timed_out"])) "visibility child failed"
    let $stdout: String
    let $stderr: String
    "${fixture}/out" -> $stdout
    "${fixture}/err" -> $stderr
    if ($stdout != $expected) || (($diagnostic == "") &&
        (($reply["exit_code"] != 0) || ($stderr != ""))) ||
        (($diagnostic != "") && (($reply["exit_code"] == 0) ||
        (!($stderr.contains $diagnostic))))
    { echo $source $reply $stdout $stderr; fail "visibility case mismatch" }
}
visibility_case "visible \"Integer\"; pub visible \"Integer\"; let \$i: Integer = 7; echo \$i" "7\n" ""
visibility_case "visible `cd; cd \".\"; echo ok" "ok\n" ""
visibility_case "import std::private; std::private::move \".\"" "moved\n" ""
visibility_case "import std::private; std::private::cd \".\"" "" "unavailable"
visibility_case "import std::private::{ cd }" "" "has no member"
visibility_case "import std::private; let \$x: std::private::Terminal" "" "Unknown type"
visibility_case "import std::private::{ Terminal }" "" "has no member"
visibility_case "import std::public; std::public::cd \".\"; echo (std::public::marker)" "public\n" ""
visibility_case "import std::public; let \$ref = `std::public::run_process; let \$r = \$ref [\"true\"] [:]; echo \$r[\"exit_code\"]" "0\n" ""
visibility_case "import std::public::{ run_process, Terminal }; let \$r = run_process [\"true\"] [:]; echo \$r[\"exit_code\"]" "0\n" ""
visibility_case "import std::public; let \$ref = `std::public::cd; \$ref \".\"; echo ok" "ok\n" ""
visibility_case "import std::bridge; let \$r = std::bridge::run_process [\"true\"] [:]; echo \$r[\"exit_code\"] (std::bridge::marker)" "0 public\n" ""
visibility_case "import std::selected; let \$r = std::selected::run_process [\"true\"] [:]; echo \$r[\"exit_code\"]" "0\n" ""
visibility_case "import std::private_bridge; std::private_bridge::run_process [\"true\"] [:]" "" "unavailable"
visibility_case "import std::private_bridge::{ Terminal }" "" "has no member"
visibility_case "import std::script_bridge; echo (std::script_bridge::value)" "script\n" ""
visibility_case "import std::skipped; echo (std::skipped::marker)" "false\n" ""
visibility_case "visible" "" "expects"
visibility_case "pub visible" "" "expects"
visibility_case "visible --export `cd" "" "use pub visible"
visibility_case "pub visible \"Integer\" \"Float\"" "" "expects"
visibility_case "visible \"run_process\"" "" "not registered"
visibility_case "visible `unknown_native_function" "" "not registered"
visibility_case "visible `echo" "" "not registered"
visibility_case "visible \"UnknownNativeType\"" "" "not registered"
visibility_case "visible 7" "" "expects"
visibility_case "let \$items = []; visible `\$items.count" "" "expects"
visibility_case "import std::missing" "" "not registered"
visibility_case "struct Local {}; pub visible \"Local\"; echo Local()" "Local()\n" ""
visibility_case "fn local(): String { \"local\" }; pub visible `local; echo (local)" "local\n" ""
visibility_case "import std::script; fn value(): String { \"collision\" }; pub visible `std::script::value" "" "already bound"
visibility_case "import std::public; fn cd() {}; pub visible `std::public::cd" "" "already bound"