@@ -253,7 +253,9 @@ validate_config_files() ->
253
253
assert_config (" " , _ ) -> ok ;
254
254
assert_config (none , _ ) -> ok ;
255
255
assert_config (Filename , Env ) ->
256
- " .config" = filename :extension (Filename ),
256
+ assert_config (filename :extension (Filename ), Filename , Env ).
257
+
258
+ assert_config (" .config" , Filename , Env ) ->
257
259
case filelib :is_regular (Filename ) of
258
260
true ->
259
261
case file :consult (Filename ) of
@@ -282,11 +284,15 @@ assert_config(Filename, Env) ->
282
284
end ;
283
285
false ->
284
286
ok
285
- end .
287
+ end ;
288
+ assert_config (BadExt , Filename , Env ) ->
289
+ {error , {" ERROR: '~s ': Expected extension '.config', got extension '~s ' for file '~s '~n " , [Env , BadExt , Filename ]}}.
286
290
287
291
assert_conf (" " , _ ) -> ok ;
288
292
assert_conf (Filename , Env ) ->
289
- " .conf" = filename :extension (Filename ),
293
+ assert_conf (filename :extension (Filename ), Filename , Env ).
294
+
295
+ assert_conf (" .conf" , Filename , Env ) ->
290
296
case filelib :is_regular (Filename ) of
291
297
true ->
292
298
case file :consult (Filename ) of
@@ -302,5 +308,6 @@ assert_conf(Filename, Env) ->
302
308
end ;
303
309
false ->
304
310
ok
305
- end .
306
-
311
+ end ;
312
+ assert_conf (BadExt , Filename , Env ) ->
313
+ {error , {" ERROR: '~s ': Expected extension '.config', got extension '~s ' for file '~s '~n " , [Env , BadExt , Filename ]}}.
0 commit comments