96dccca475
This enables imports in mcl code, and is one of last remaining blockers to using mgmt. Now we can start writing standalone modules, and adding standard library functions as needed. There's still lots to do, but this was a big missing piece. It was much harder to get right than I had expected, but I think it's solid! This unfortunately large commit is the result of some wild hacking I've been doing for the past little while. It's the result of a rebase that broke many "wip" commits that tracked my private progress, into something that's not gratuitously messy for our git logs. Since this was a learning and discovery process for me, I've "erased" the confusing git history that wouldn't have helped. I'm happy to discuss the dead-ends, and a small portion of that code was even left in for possible future use. This patch includes: * A change to the cli interface: You now specify the front-end explicitly, instead of leaving it up to the front-end to decide when to "activate". For example, instead of: mgmt run --lang code.mcl we now do: mgmt run lang --lang code.mcl We might rename the --lang flag in the future to avoid the awkward word repetition. Suggestions welcome, but I'm considering "input". One side-effect of this change, is that flags which are "engine" specific now must be specified with "run" before the front-end name. Eg: mgmt run --tmp-prefix lang --lang code.mcl instead of putting --tmp-prefix at the end. We also changed the GAPI slightly, but I've patched all code that used it. This also makes things consistent with the "deploy" command. * The deploys are more robust and let you deploy after a run This has been vastly improved and let's mgmt really run as a smart engine that can handle different workloads. If you don't want to deploy when you've started with `run` or if one comes in, you can use the --no-watch-deploy option to block new deploys. * The import statement exists and works! We now have a working `import` statement. Read the docs, and try it out. I think it's quite elegant how it fits in with `SetScope`. Have a look. As a result, we now have some built-in functions available in modules. This also adds the metadata.yaml entry-point for all modules. Have a look at the examples or the tests. The bulk of the patch is to support this. * Improved lang input parsing code: I re-wrote the parsing that determined what ran when we passed different things to --lang. Deciding between running an mcl file or raw code is now handled in a more intelligent, and re-usable way. See the inputs.go file if you want to have a look. One casualty is that you can't stream code from stdin *directly* to the front-end, it's encapsulated into a deploy first. You can still use stdin though! I doubt anyone will notice this change. * The scope was extended to include functions and classes: Go forth and import lovely code. All these exist in scopes now, and can be re-used! * Function calls actually use the scope now. Glad I got this sorted out. * There is import cycle detection for modules! Yes, this is another dag. I think that's #4. I guess they're useful. * A ton of tests and new test infra was added! This should make it much easier to add new tests that run mcl code. Have a look at TestAstFunc1 to see how to add more of these. As usual, I'll try to keep these commits smaller in the future!
110 lines
2.3 KiB
Bash
Executable File
110 lines
2.3 KiB
Bash
Executable File
#!/bin/bash -e
|
|
|
|
set -x
|
|
set -o pipefail
|
|
|
|
# can't test net without sudo
|
|
if ! timeout 1s sudo -A true; then
|
|
echo "sudo disabled: not checking net"
|
|
exit
|
|
fi
|
|
|
|
# values from net0.yaml
|
|
IFACE="mgmtnet0"
|
|
ADDR="192.168.42.13/24"
|
|
|
|
# bad value used to test events
|
|
BADADDR="10.0.0.254/24"
|
|
|
|
# is_up returns 0 if the interface ($1) is up, and 1 if it is down.
|
|
function is_up {
|
|
if [ -z "$(ip link show $1 up)" ]; then
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
# has_addr returns 0 if the iface ($1) has the addr ($2), and 1 if it doesn't.
|
|
function has_addr {
|
|
if [ -z "$(ip addr show $1 | grep $2)" ]; then
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
# clean up when we're done
|
|
function cleanup {
|
|
sudo rm /etc/systemd/network/mgmt-${IFACE}.network || true
|
|
sudo ip link del $IFACE || true
|
|
}
|
|
trap cleanup EXIT
|
|
|
|
# make sure there's somewhere to save the unit file
|
|
sudo mkdir -p /etc/systemd/network
|
|
|
|
# add a dummy link for tests
|
|
sudo ip link add $IFACE type dummy || true
|
|
|
|
# run mgmt net res with $IFACE and $ADDR set as above
|
|
sudo -A $timeout --kill-after=55s 50s "$MGMT" run --converged-timeout=5 --tmp-prefix lang --lang ./net0.mcl &
|
|
pid1=$!
|
|
|
|
# give the engine time to start up
|
|
sleep 5
|
|
|
|
# make sure the interface is up
|
|
if ! is_up $IFACE; then
|
|
echo "failed to bring up $IFACE"
|
|
exit 1
|
|
fi
|
|
# check the address
|
|
if ! has_addr $IFACE $ADDR; then
|
|
echo "failed to set addr: $ADDR on $IFACE"
|
|
exit 1
|
|
fi
|
|
|
|
# make sure the interface comes up if we set it down
|
|
sudo ip link set down $IFACE
|
|
if ! is_up $IFACE; then
|
|
echo "failed to bring $IFACE back up"
|
|
exit 1
|
|
fi
|
|
# make sure the address is replaced if we delete it
|
|
sudo ip addr del $ADDR dev $IFACE
|
|
if ! has_addr $IFACE $ADDR; then
|
|
echo "failed to replace addr: $ADDR on $IFACE"
|
|
exit 1
|
|
fi
|
|
|
|
# add a bad address and make sure it is removed
|
|
sudo ip addr add $BADADDR dev $IFACE
|
|
if has_addr $IFACE $BADADDR; then
|
|
echo "failed to remove addr: $BADADDR from $IFACE"
|
|
exit 1
|
|
fi
|
|
|
|
wait $pid1
|
|
e1=$?
|
|
|
|
# run mgmt net res with $IFACE state => "down"
|
|
sudo -A $timeout --kill-after=20 15s "$MGMT" run --converged-timeout=5 --tmp-prefix lang --lang ./net1.mcl &
|
|
|
|
# give the engine time to start up
|
|
sleep 5
|
|
|
|
# make sure the interface is down
|
|
if is_up $IFACE; then
|
|
echo "failed to bring down $IFACE"
|
|
exit 1
|
|
fi
|
|
|
|
# bring up the interface and make sure it's brought back down
|
|
sudo ip link set up $IFACE
|
|
if is_up $IFACE; then
|
|
echo "failed to bring $IFACE back down"
|
|
exit 1
|
|
fi
|
|
|
|
wait $pid2
|
|
e2=$?
|
|
|
|
exit $(($e1+$e2))
|