diff options
author | Björn Gustavsson <[email protected]> | 2016-12-16 12:38:15 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2016-12-16 12:38:15 +0100 |
commit | 8bc83e63e39a255baea8a361888a9dfcc155b530 (patch) | |
tree | a62512d477f1298e9f089620e01f8945ae881257 /lib/stdlib/test/escript_SUITE.erl | |
parent | a17267414f8d30016fc8c6eae182d6fa353ad5b4 (diff) | |
parent | 256e35e9f6969ce635ab6abb54071ffee441f7a7 (diff) | |
download | otp-8bc83e63e39a255baea8a361888a9dfcc155b530.tar.gz otp-8bc83e63e39a255baea8a361888a9dfcc155b530.tar.bz2 otp-8bc83e63e39a255baea8a361888a9dfcc155b530.zip |
Merge branch 'maint'
* maint:
Allow escripts with only two lines
Add project-wide Emacs settings file
Diffstat (limited to 'lib/stdlib/test/escript_SUITE.erl')
-rw-r--r-- | lib/stdlib/test/escript_SUITE.erl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/stdlib/test/escript_SUITE.erl b/lib/stdlib/test/escript_SUITE.erl index 28d69232a0..0b9106a99c 100644 --- a/lib/stdlib/test/escript_SUITE.erl +++ b/lib/stdlib/test/escript_SUITE.erl @@ -28,6 +28,7 @@ strange_name/1, emulator_flags/1, emulator_flags_no_shebang/1, + two_lines/1, module_script/1, beam_script/1, archive_script/1, @@ -49,7 +50,7 @@ suite() -> all() -> [basic, errors, strange_name, emulator_flags, - emulator_flags_no_shebang, + emulator_flags_no_shebang, two_lines, module_script, beam_script, archive_script, epp, create_and_extract, foldl, overflow, archive_script_file_access, unicode]. @@ -153,6 +154,18 @@ emulator_flags(Config) when is_list(Config) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +two_lines(Config) when is_list(Config) -> + Data = proplists:get_value(data_dir, Config), + Dir = filename:absname(Data), %Get rid of trailing slash. + run(Dir, "two_lines -arg1 arg2 arg3", + [<<"main:[\"-arg1\",\"arg2\",\"arg3\"]\n" + "ERL_FLAGS=false\n" + "unknown:[]\n" + "ExitCode:0">>]), + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + emulator_flags_no_shebang(Config) when is_list(Config) -> Data = proplists:get_value(data_dir, Config), Dir = filename:absname(Data), %Get rid of trailing slash. |