Permalink
Browse files

No commit message

  • Loading branch information...
1 parent 2a9a955 commit 547b42c0de309f5fad38ef8b3a38ce2ec7b10d6d paul-google@mineiro.com committed Feb 14, 2008
Showing with 6 additions and 15 deletions.
  1. +6 −15 ec2nodefinder/tests/test-ec2nodefinder
View
21 ec2nodefinder/tests/test-ec2nodefinder
@@ -9,14 +9,9 @@ erl -pa ../src -name ec2nodefinder_checkah -eval '
}
erl -pa ../src -name ec2nodefinder_test1 -eval '
- { ok, _ } =
- ec2nodefindersup:start_link
- ("default",
- 3000,
- "/usr/share/n54/pk-GPXBZ3LGH4OMFSNK777QX2ZC57QIIPLB.pem",
- "/usr/share/n54/cert-GPXBZ3LGH4OMFSNK777QX2ZC57QIIPLB.pem",
- "/usr",
- "/usr"),
+ { ok, [ App ] } = file:consult ("../src/ec2nodefinder.app"),
+ ok = application:load (App),
+ ecnodefinder:start (),
receive after 10000 -> ok end
' -noshell -noinput -s erlang halt &
@@ -25,13 +20,9 @@ sleep 1
erl -pa ../src -name ec2nodefinder_test2 -eval '
"ec2nodefinder_test2@" ++ Host = atom_to_list (node ()),
[] = erlang:nodes (),
- ec2nodefindersup:start_link
- ("default",
- 3000,
- "/usr/share/n54/pk-GPXBZ3LGH4OMFSNK777QX2ZC57QIIPLB.pem",
- "/usr/share/n54/cert-GPXBZ3LGH4OMFSNK777QX2ZC57QIIPLB.pem",
- "/usr",
- "/usr"),
+ { ok, [ App ] } = file:consult ("../src/ec2nodefinder.app"),
+ ok = application:load (App),
+ ecnodefinder:start (),
receive after 1000 -> ok end,
Other = list_to_atom ("ec2nodefinder_test1@" ++ Host),
[ Other ] = erlang:nodes ()

0 comments on commit 547b42c

Please sign in to comment.