From 64a7fe7056be011d7cb1539d0204d9d7830da836 Mon Sep 17 00:00:00 2001 From: linse Date: Sat, 8 Jun 2019 01:44:09 +0200 Subject: [PATCH] WIP --- test/unikernel.ml | 6 +++--- test/update-firewall.sh | 3 +++ 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/test/unikernel.ml b/test/unikernel.ml index ed38892..e25f5c9 100644 --- a/test/unikernel.ml +++ b/test/unikernel.ml @@ -57,9 +57,8 @@ module Client (T: TIME) (C: CONSOLE) (STACK: Mirage_stack_lwt.V4) (RES: Resolver Format.printf "Exception as expected %s" msg; Lwt.return_unit - let tcp_connect stack = + let tcp_connect port stack = let ip = Ipaddr.V4.of_string_exn "10.137.0.5" in - let port = 8082 in STACK.TCPV4.create_connection (STACK.tcpv4 stack) (ip, port) >>= function | Ok flow -> Log.info (fun f -> f "TCP test passed :)"); @@ -123,7 +122,8 @@ module Client (T: TIME) (C: CONSOLE) (STACK: Mirage_stack_lwt.V4) (RES: Resolver let start _time c stack res (ctx:CON.t) = udp_fetch ~src_port:9090 ~echo_server_port:1235 stack >>= fun () -> udp_fetch ~src_port:9091 ~echo_server_port:6668 stack >>= fun () -> - tcp_connect stack >>= fun () -> + tcp_connect 53 stack >>= fun () -> + tcp_connect 8082 stack >>= fun () -> tcp_connect_denied stack end diff --git a/test/update-firewall.sh b/test/update-firewall.sh index bf91226..3fcba49 100644 --- a/test/update-firewall.sh +++ b/test/update-firewall.sh @@ -23,6 +23,9 @@ done echo "$TEST_VM firewall rules are now:" qvm-firewall $TEST_VM list +echo "Setting $TEST_VM specialtarget=dns rule:" +qvm-firewall $TEST_VM add accept specialtarget=dns + echo "Setting $TEST_VM allow rule for TCP port 8082 to 10.137.0.5:" qvm-firewall $TEST_VM add accept 10.137.0.5 tcp 8082