Permalink
Browse files

[tests] update of tests for new format

  • Loading branch information...
1 parent 4b6a9de commit 460c560eabb44f388868c2d0bb1e921c430d88e8 @avsm committed Oct 31, 2011
Showing with 8 additions and 9 deletions.
  1. +7 −8 tests/openflow/controller/main.ml
  2. +1 −1 tests/openflow/controller/of_controller.mir
@@ -48,12 +48,11 @@ let init controller =
pp "test controller register packet_in cb\n";
OC.register_cb controller OE.PACKET_IN packet_in_cb
-let main () =
- lwt mgr, mgr_t = Net.Manager.create () in
- let port = 6633 in
- let ip = None in (* Net.Nettypes.ipv4_addr_of_string "172.16.0.1" in *)
- OC.listen mgr ip port init
-
-let _ =
- OS.Main.run (main ())
+let run () =
+ Net.Manager.create (fun t interface id ->
+ Printf.printf "new if %s\n%!" id;
+ let port = 6633 in
+ let ip = None in (* Net.Nettypes.ipv4_addr_of_string "172.16.0.1" in *)
+ OC.listen t ip port init
+ )
@@ -1 +1 @@
-Main
+Main.run

0 comments on commit 460c560

Please sign in to comment.