Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-04-26 09:59:07 -04:00
Code Issues Packages Projects Releases Wiki Activity

Rename to test.sh, break if build fails.

Browse Source
This commit is contained in:
linse 2019-05-17 23:17:04 +02:00
parent 1599f63838
commit 09139518fb
2 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
test/setup.sh → test/test.sh
View File

@ -44,7 +44,8 @@ if ! [ -x "$(command -v test-mirage)" ]; then
explain_commands >&2 explain_commands >&2
exit 1 exit 1
fi fi
if $(qrexec-client-vm dom0 yomimono.updateFirewall); then qrexec-client-vm dom0 yomimono.updateFirewall
if [ $? -ne 0 ]; then
echo "Error: can't update firewall rules." >&2 echo "Error: can't update firewall rules." >&2
explain_service >&2 explain_service >&2
exit 1 exit 1
@ -52,15 +53,25 @@ fi
echo "We're gonna set up a unikernel for the mirage-fw-test qube" echo "We're gonna set up a unikernel for the mirage-fw-test qube"
cd .. cd ..
mirage configure -t xen mirage configure -t xen && \
make depend make depend && \
make make
test-mirage qubes_firewall.xen mirage-fw-test & if [ $? -ne 0 ]; then
echo "Could not build unikernel for mirage-fw-test qube" >&2
exit 1
fi
cd test cd test
echo "We're gonna set up a unikernel for fetchmotron qube" echo "We're gonna set up a unikernel for fetchmotron qube"
mirage configure -t qubes mirage configure -t qubes && \
make depend make depend && \
make make
if [ $? -ne 0 ]; then
echo "Could not build unikernel for fetchmotron qube" >&2
exit 1
fi
cd ..
test-mirage qubes_firewall.xen mirage-fw-test &
cd test
test-mirage http_fetch.xen fetchmotron test-mirage http_fetch.xen fetchmotron

2
test/unikernel.ml
View File

@ -13,7 +13,7 @@ let uri = Uri.of_string "http://10.137.0.5:8082"
module Client (T: TIME) (C: CONSOLE) (RES: Resolver_lwt.S) (CON: Conduit_mirage.S) = struct module Client (T: TIME) (C: CONSOLE) (RES: Resolver_lwt.S) (CON: Conduit_mirage.S) = struct
let http_fetch c resolver ctx = let http_fetch c resolver ctx =
C.log c (sprintf "Fetching %s with Cohttp:" (Uri.to_string uri)) >>= fun () -> C.log c (yellow "Fetching %s with Cohttp:" (Uri.to_string uri)) >>= fun () ->
let ctx = Cohttp_mirage.Client.ctx resolver ctx in let ctx = Cohttp_mirage.Client.ctx resolver ctx in
Cohttp_mirage.Client.get ~ctx uri >>= fun (response, body) -> Cohttp_mirage.Client.get ~ctx uri >>= fun (response, body) ->
Cohttp_lwt.Body.to_string body >>= fun body -> Cohttp_lwt.Body.to_string body >>= fun body ->