diff --git a/inttest/app_src/app_src_rt.erl b/inttest/app_src/app_src_rt.erl index de27c65..d71f03e 100644 --- a/inttest/app_src/app_src_rt.erl +++ b/inttest/app_src/app_src_rt.erl @@ -1,5 +1,29 @@ %% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- %% ex: ts=4 sw=4 et +%% ------------------------------------------------------------------- +%% +%% rebar: Erlang Build Tools +%% +%% Copyright (c) 2014 Vlad Dumitrescu +%% +%% Permission is hereby granted, free of charge, to any person obtaining a copy +%% of this software and associated documentation files (the "Software"), to deal +%% in the Software without restriction, including without limitation the rights +%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +%% copies of the Software, and to permit persons to whom the Software is +%% furnished to do so, subject to the following conditions: +%% +%% The above copyright notice and this permission notice shall be included in +%% all copies or substantial portions of the Software. +%% +%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +%% THE SOFTWARE. +%% ------------------------------------------------------------------- -module(app_src_rt). -compile(export_all). @@ -44,7 +68,7 @@ has_line([L|T], RE) -> end. %% -%% Generate the contents of a simple .app.src.script file +%% Generate the contents of a simple .app.src file %% app(Name) -> "{application, " ++ atom_to_list(Name) ++ ", diff --git a/inttest/app_src_script/app_src_script_rt.erl b/inttest/app_src_script/app_src_script_rt.erl index f553fed..4c00ec8 100644 --- a/inttest/app_src_script/app_src_script_rt.erl +++ b/inttest/app_src_script/app_src_script_rt.erl @@ -1,5 +1,29 @@ %% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- %% ex: ts=4 sw=4 et +%% ------------------------------------------------------------------- +%% +%% rebar: Erlang Build Tools +%% +%% Copyright (c) 2014 Vlad Dumitrescu +%% +%% Permission is hereby granted, free of charge, to any person obtaining a copy +%% of this software and associated documentation files (the "Software"), to deal +%% in the Software without restriction, including without limitation the rights +%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +%% copies of the Software, and to permit persons to whom the Software is +%% furnished to do so, subject to the following conditions: +%% +%% The above copyright notice and this permission notice shall be included in +%% all copies or substantial portions of the Software. +%% +%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +%% THE SOFTWARE. +%% ------------------------------------------------------------------- -module(app_src_script_rt). -compile(export_all). @@ -8,27 +32,31 @@ files() -> [{copy, "../../rebar", "rebar"}, - {create, "src/app_src.app.src.script", app_script(app_src)}]. + {create, "src/app_src_script.app.src.script", app_script(app_src_script)}]. run(Dir) -> retest_log:log(debug, "Running in Dir: ~s~n", [Dir]), {ok, [_Pid|Output]} = retest:sh("./rebar compile -vv", [{async, false}]), - Regexp = "DEBUG: Evaluating config script .*/app_src\.app\.src\.script.*", + Regexp = "DEBUG: Evaluating config script .*/app_src_script\.app\.src\.script.*", ?assertEqual(true, has_line(Output, Regexp)), retest_log:log(debug, "Evaluated .app.src.script~n", []), %% check that ebin/app_src.app exists - ?assertMatch(true, filelib:is_regular("ebin/app_src.app")), + ?assertMatch(true, filelib:is_regular("ebin/app_src_script.app")), retest_log:log(debug, "Generated ebin/.app~n", []), %% check that ebin/.app has vsn="2" - {ok, Bin} = file:read_file("ebin/app_src.app"), + {ok, Bin} = file:read_file("ebin/app_src_script.app"), Str = binary_to_list(Bin), ?assertMatch({match, _}, re:run(Str, "{vsn, *\"2\"}")), retest_log:log(debug, "Variable replacement in .app is ok.~n", []), + %% check that ebin/.app doesn't have foo=ok + ?assertMatch(nomatch, re:run(Str, "{foo, *ok}")), + retest_log:log(debug, "app.src hasn't 'foo' config.~n", []), + ok. has_line([], _RE) -> diff --git a/inttest/app_src_script_2/app_src_script_2.erl b/inttest/app_src_script_2/app_src_script_2.erl new file mode 100644 index 0000000..26b8364 --- /dev/null +++ b/inttest/app_src_script_2/app_src_script_2.erl @@ -0,0 +1,6 @@ +-module(app_src_script_2). + +-compile(export_all). + +test() -> + ok. diff --git a/inttest/app_src_script_2/app_src_script_2_rt.erl b/inttest/app_src_script_2/app_src_script_2_rt.erl new file mode 100644 index 0000000..1bf59d1 --- /dev/null +++ b/inttest/app_src_script_2/app_src_script_2_rt.erl @@ -0,0 +1,93 @@ +%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- +%% ex: ts=4 sw=4 et +%% ------------------------------------------------------------------- +%% +%% rebar: Erlang Build Tools +%% +%% Copyright (c) 2014 Vlad Dumitrescu +%% +%% Permission is hereby granted, free of charge, to any person obtaining a copy +%% of this software and associated documentation files (the "Software"), to deal +%% in the Software without restriction, including without limitation the rights +%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +%% copies of the Software, and to permit persons to whom the Software is +%% furnished to do so, subject to the following conditions: +%% +%% The above copyright notice and this permission notice shall be included in +%% all copies or substantial portions of the Software. +%% +%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +%% THE SOFTWARE. +%% ------------------------------------------------------------------- +-module(app_src_script_2_rt). + +-compile(export_all). + +-include_lib("eunit/include/eunit.hrl"). + +files() -> + [{copy, "../../rebar", "rebar"}, + {create, "src/app_src_script_2.app.src.script", app_script(app_src_script_2)}, + {create, "src/app_src_script_2.app.src", app(app_src_script_2)}]. + +run(Dir) -> + retest_log:log(debug, "Running in Dir: ~s~n", [Dir]), + {ok, [_Pid|Output]} = retest:sh("./rebar compile -vv", + [{async, false}]), + + Regexp = "DEBUG: Evaluating config script .*/app_src_script_2\.app\.src\.script.*", + ?assertEqual(true, has_line(Output, Regexp)), + retest_log:log(debug, "Evaluated .app.src.script~n", []), + + %% check that ebin/app_src.app exists + ?assertMatch(true, filelib:is_regular("ebin/app_src_script_2.app")), + retest_log:log(debug, "Generated ebin/.app~n", []), + + %% check that ebin/.app has vsn="2" (as in .script) + {ok, Bin} = file:read_file("ebin/app_src_script_2.app"), + Str = binary_to_list(Bin), + retest_log:log(debug, "app=~p~n", [Str]), + ?assertMatch({match, _}, re:run(Str, "{vsn, *\"2\"}")), + retest_log:log(debug, "app.src has version from script.~n", []), + + %% check that ebin/.app has foo=ok (from .src) + ?assertMatch({match, _}, re:run(Str, "{foo, *ok}")), + retest_log:log(debug, "app.src has 'foo' config from .src.~n", []), + + ok. + +has_line([], _RE) -> + false; +has_line([L|T], RE) -> + case re:run(L, RE, []) of + {match, _Captured} -> + true; + match -> + true; + nomatch -> + has_line(T, RE) + end. + +%% +%% Generate the contents of a simple .app.src.script file +%% +app_script(Name) -> + "[{application," ++ atom_to_list(Name) ++ ",Cfg}] = CONFIG, + [{application," ++ atom_to_list(Name) ++ ",lists:keyreplace(vsn, 1, Cfg, + {vsn, \"2\"})}].". + +%% +%% Generate the contents of a simple .app.src file +%% +app(Name) -> + "{application, " ++ atom_to_list(Name) ++ ", + [{vsn, \"3\"}, + {foo, ok}, + {modules, []}, + {registered, []}, + {applications, [kernel, stdlib]}]}.\n". diff --git a/src/rebar_app_utils.erl b/src/rebar_app_utils.erl index e0751e3..b5d3ac7 100644 --- a/src/rebar_app_utils.erl +++ b/src/rebar_app_utils.erl @@ -47,27 +47,30 @@ is_app_dir() -> is_app_dir(rebar_utils:get_cwd()). is_app_dir(Dir) -> - SrcDir = filename:join([Dir, "src"]), - AppSrc = filename:join([SrcDir, "*.app.{src,src.script}"]), - case filelib:wildcard(AppSrc) of - [AppSrcFile] -> - {true, AppSrcFile}; - [] -> - EbinDir = filename:join([Dir, "ebin"]), - App = filename:join([EbinDir, "*.app"]), - case filelib:wildcard(App) of - [AppFile] -> - {true, AppFile}; - [] -> - false; - _ -> - ?ERROR("More than one .app file in ~s~n", [EbinDir]), - false - end; - _ -> - ?ERROR("More than one .app.src file in ~s~n", [SrcDir]), - false - end. + SrcDir = filename:join([Dir, "src"]), + AppSrcScript = filename:join([SrcDir, "*.app.src.script"]), + AppSrc = filename:join([SrcDir, "*.app.src"]), + case {filelib:wildcard(AppSrcScript), filelib:wildcard(AppSrc)} of + {[AppSrcScriptFile], _} -> + {true, AppSrcScriptFile}; + {[], [AppSrcFile]} -> + {true, AppSrcFile}; + {[],[]} -> + EbinDir = filename:join([Dir, "ebin"]), + App = filename:join([EbinDir, "*.app"]), + case filelib:wildcard(App) of + [AppFile] -> + {true, AppFile}; + [] -> + false; + _ -> + ?ERROR("More than one .app file in ~s~n", [EbinDir]), + false + end; + {_, _} -> + ?ERROR("More than one .app.src file in ~s~n", [SrcDir]), + false + end. is_app_src(Filename) ->