@@ -1348,31 +1348,28 @@ remote_meck_test_() ->
13481348
13491349remote_setup () ->
13501350 [] = os :cmd (" epmd -daemon" ),
1351- Hostname = case node () of
1352- 'nonode@nohost' -> " localhost" ;
1353- _ -> test_server_sup :hoststr ()
1354- end ,
1355- Myself = list_to_atom (" meck_eunit_test@" ++ Hostname ),
1356- net_kernel :start ([Myself , shortnames ]),
1357- {ok , Node } = slave :start_link (list_to_atom (Hostname ), meck_remote_test ,
1358- " -pa \" " ++ test_dir () ++ " \" " ),
1351+ net_kernel :start ([meck_eunit_test ]),
1352+ {ok , Pid , Node } = peer :start_link (#{
1353+ name => meck_remote_test ,
1354+ args => [" -pa" , test_dir ()]
1355+ }),
13591356 {Mod , Bin , File } = code :get_object_code (meck ),
13601357 true = rpc :call (Node , code , add_path , [filename :dirname (File )]),
13611358 {module , Mod } = rpc :call (Node , code , load_binary , [Mod , File , Bin ]),
13621359 {module , meck_test_module } =
13631360 rpc :call (Node , code , load_file , [meck_test_module ]),
1364- {Node , meck_test_module }.
1361+ {Pid , Node , meck_test_module }.
13651362
1366- remote_teardown ({Node , _Mod }) ->
1367- ok = slave :stop (Node ),
1363+ remote_teardown ({Pid , _Node , _Mod }) ->
1364+ ok = peer :stop (Pid ),
13681365 ok = net_kernel :stop ().
13691366
1370- remote_meck_ ({Node , Mod }) ->
1367+ remote_meck_ ({_Pid , Node , Mod }) ->
13711368 ? assertEqual (ok , rpc :call (Node , meck , new , [Mod , [no_link , non_strict ]])),
13721369 ? assertEqual (ok , rpc :call (Node , meck , expect , [Mod , test , 0 , true ])),
13731370 ? assertEqual (true , rpc :call (Node , Mod , test , [])).
13741371
1375- remote_meck_cover_ ({Node , Mod }) ->
1372+ remote_meck_cover_ ({_Pid , Node , Mod }) ->
13761373 {ok , Mod } = cover :compile (test_file (Mod , " .erl" )),
13771374 {ok , _Nodes } = cover :start ([Node ]),
13781375 ? assertEqual (ok , rpc :call (Node , meck , new , [Mod ])).
0 commit comments