Testar uma ferramenta de terminal

adopt Arcane.Cli as Cli
adopt Arcane.Crucible as Crucible

action montar():
    cmd := Cli.comando("relatorio", "")
    cmd.posicional("entrada", "")
    cmd.opcao("limite", "inteiro", "n", 10, "")
    yield cmd

crucible "os argumentos":

    trial "o padrao vale quando a flag nao vem":
        args := montar().ler(["a.csv"])
        expect args["limite"] is 10

    trial "a forma curta e a longa sao a mesma coisa":
        expect montar().ler(["a.csv", "-n", "5"])["limite"] is 5
        expect montar().ler(["a.csv", "--limite=5"])["limite"] is 5

    trial "o inteiro chega como INTEIRO":
        expect montar().ler(["a.csv", "-n", "7"])["limite"] is 7

Crucible.run()

adopt Arcane.Process as P

// O próprio interpretador serve de cobaia: ele é uma CLI.
r := P.run(["python3", "-m", "dataforge", "--versao"])
assert r["exit_code"] is 0 and r["ok"] is yes
assert len(r["stdout"]) > 0
out r["stdout"]

// 'capture' e o atalho para quando so o stdout importa
assert len(P.capture(["python3", "-m", "dataforge", "--versao"])) > 0

adopt Arcane.Process as P

// Um comando que não existe: o código de saída é o que prova.
r := P.run(["python3", "-m", "dataforge", "nao-existe-esse-comando"])
assert r["failed"] is yes
out $"saiu com {r['exit_code']}"

adopt Arcane.Process as P
adopt Arcane.IO as IO
adopt Arcane.OS as OS

pasta := $"{OS.temp_dir()}/df-cli-t-{randint(100000, 999999)}"
IO.mkdir(pasta)
defer:
    IO.remove_tree(pasta)

IO.write($"{pasta}/soma.df", """persist yes:
    linha := input()
    given linha is void:
        halt
    out int(linha) * 2
""")

r := P.run(["python3", "-m", "dataforge", "run", $"{pasta}/soma.df"],
           no, void, void, void, "5\n7\n")
assert r["exit_code"] is 0
assert "10" in r["stdout"] and "14" in r["stdout"]
out r["stdout"]