From 521a49dd262da0264718d6e5765b23d37c6f6240 Mon Sep 17 00:00:00 2001
From: alisdair sullivan <alisdairsullivan@yahoo.ca>
Date: Sun, 22 Feb 2015 17:35:17 -0800
Subject: don't unescessarily recompile yrl/xrl files

fixes #175
---
 test/rebar_compile_SUITE.erl | 45 ++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 43 insertions(+), 2 deletions(-)

(limited to 'test/rebar_compile_SUITE.erl')

diff --git a/test/rebar_compile_SUITE.erl b/test/rebar_compile_SUITE.erl
index fd1899f..9a21986 100644
--- a/test/rebar_compile_SUITE.erl
+++ b/test/rebar_compile_SUITE.erl
@@ -10,7 +10,8 @@
          build_checkout_apps/1,
          build_checkout_deps/1,
          recompile_when_opts_change/1,
-         dont_recompile_when_opts_dont_change/1]).
+         dont_recompile_when_opts_dont_change/1,
+         dont_recompile_yrl_or_xrl/1]).
 
 -include_lib("common_test/include/ct.hrl").
 -include_lib("eunit/include/eunit.hrl").
@@ -31,7 +32,8 @@ init_per_testcase(_, Config) ->
 all() ->
     [build_basic_app, build_release_apps,
      build_checkout_apps, build_checkout_deps,
-     recompile_when_opts_change, dont_recompile_when_opts_dont_change].
+     recompile_when_opts_change, dont_recompile_when_opts_dont_change,
+     dont_recompile_yrl_or_xrl].
 
 build_basic_app(Config) ->
     AppDir = ?config(apps, Config),
@@ -141,4 +143,43 @@ dont_recompile_when_opts_dont_change(Config) ->
     NewModTime = [filelib:last_modified(filename:join([EbinDir, F]))
                   || F <- NewFiles, filename:extension(F) == ".beam"], 
 
+    ?assert(ModTime == NewModTime).
+
+dont_recompile_yrl_or_xrl(Config) ->
+    AppDir = ?config(apps, Config),
+    
+    Name = rebar_test_utils:create_random_name("app1_"),
+    Vsn = rebar_test_utils:create_random_vsn(),
+    rebar_test_utils:create_app(AppDir, Name, Vsn, [kernel, stdlib]),
+
+    Xrl = filename:join([AppDir, "src", "not_a_real_xrl_" ++ Name ++ ".xrl"]),
+    ok = filelib:ensure_dir(Xrl),
+    XrlBody = 
+        "Definitions."
+        "\n\n"
+        "D = [0-9]"
+        "\n\n"
+        "Rules."
+        "\n\n"
+        "{D}+ :"
+        "  {token,{integer,TokenLine,list_to_integer(TokenChars)}}."
+        "\n\n"
+        "{D}+\\.{D}+((E|e)(\\+|\\-)?{D}+)? :"
+        "  {token,{float,TokenLine,list_to_float(TokenChars)}}."
+        "\n\n"
+        "Erlang code.",
+    ok = ec_file:write(Xrl, XrlBody),
+
+    XrlBeam = filename:join([AppDir, "ebin", filename:basename(Xrl, ".xrl") ++ ".beam"]),
+
+    rebar_test_utils:run_and_check(Config, [], ["compile"], {ok, [{app, Name}]}),
+
+    ModTime = filelib:last_modified(XrlBeam),
+
+    timer:sleep(1000),
+
+    rebar_test_utils:run_and_check(Config, [], ["compile"], {ok, [{app, Name}]}),
+
+    NewModTime = filelib:last_modified(XrlBeam),
+
     ?assert(ModTime == NewModTime).
\ No newline at end of file
-- 
cgit v1.1