diff options
| author | Juhani Rankimies <juhani@juranki.com> | 2010-10-26 07:22:01 +0300 |
|---|---|---|
| committer | Dave Smith <dizzyd@dizzyd.com> | 2010-10-27 11:39:12 -0600 |
| commit | 80c065191f4a14e6bfe37b8249db01f656c68935 (patch) | |
| tree | a6310a709a91cfdb8937531b3916059d41350d6d /test/rebar_eunit_tests.erl | |
| parent | fd5ebe69a4d4028908247f6d669eb38254613269 (diff) | |
| download | rebar-80c065191f4a14e6bfe37b8249db01f656c68935.tar.gz | |
Port rebar_eunit_tests to Windows
Diffstat (limited to 'test/rebar_eunit_tests.erl')
| -rw-r--r-- | test/rebar_eunit_tests.erl | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/test/rebar_eunit_tests.erl b/test/rebar_eunit_tests.erl index 2187091..70e5d33 100644 --- a/test/rebar_eunit_tests.erl +++ b/test/rebar_eunit_tests.erl @@ -124,7 +124,8 @@ environment_test_() -> assert_rebar_runs() -> prepare_rebar_script(), - ?assert(string:str(os:cmd("./" ++ ?TMP_DIR ++ "rebar"), "Usage: rebar") =/= 0). + ?assert(string:str(os:cmd(filename:nativename("./" ++ ?TMP_DIR ++ "rebar")), + "No command to run specified!") =/= 0). basic_setup_test_() -> {"Create a simple project with a 'test' directory, a test, and a module", @@ -176,6 +177,7 @@ setup_environment() -> setup_basic_project() -> setup_environment(), rebar("create-app appid=myapp"), + file:make_dir("ebin"), file:make_dir("test"), file:write_file("test/myapp_mymod_tests.erl", ?myapp_mymod_tests), file:write_file("src/myapp_mymod.erl", ?myapp_mymod). @@ -203,8 +205,7 @@ remove_tmp_dir(_) -> {unix, _} -> os:cmd("rm -rf " ++ ?TMP_DIR ++ " 2>/dev/null"); {win32, _} -> - %% os:cmd("rmdir /S /Q " ++ ?TMP_DIR ++ " 2>NUL") - exit("Windows is not supported yet.") + os:cmd("rmdir /S /Q " ++ filename:nativename(?TMP_DIR)) end. %% ==================================================================== @@ -213,13 +214,19 @@ remove_tmp_dir(_) -> prepare_rebar_script() -> {ok, _} = file:copy(?REBAR_SCRIPT, ?TMP_DIR ++ "rebar"), - [] = os:cmd("chmod u+x " ++ ?TMP_DIR ++ "rebar"). + case os:type() of + {unix, _} -> + [] = os:cmd("chmod u+x " ++ ?TMP_DIR ++ "rebar"); + {win32, _} -> + {ok, _} = file:copy(?REBAR_SCRIPT ++ ".bat", + ?TMP_DIR ++ "rebar.bat") + end. rebar() -> rebar([]). rebar(Args) when is_list(Args) -> - Out = os:cmd("./rebar " ++ Args), + Out = os:cmd(filename:nativename("./rebar") ++ " " ++ Args), %?debugMsg("**** Begin"), ?debugMsg(Out), ?debugMsg("**** End"), Out. |