diff options
author | Björn Gustavsson <[email protected]> | 2010-08-03 16:48:07 +0200 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2010-08-03 16:48:07 +0200 |
commit | 2257135c992df32554abbb996b028fdbbda39343 (patch) | |
tree | bf43ee9ac96f83272044b08898d835a8337f9aaa /lib/compiler/test/compilation_SUITE.erl | |
parent | 1e578bf7f9bfdb8c488d2f5837d2041cc3ddf5ba (diff) | |
parent | 173d1fd1c3fef385f73accc4b2bbb1b6f92ac3f5 (diff) | |
download | otp-2257135c992df32554abbb996b028fdbbda39343.tar.gz otp-2257135c992df32554abbb996b028fdbbda39343.tar.bz2 otp-2257135c992df32554abbb996b028fdbbda39343.zip |
Merge branch 'pg/optimize_beam_dict_string_table' into dev
Diffstat (limited to 'lib/compiler/test/compilation_SUITE.erl')
-rw-r--r-- | lib/compiler/test/compilation_SUITE.erl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl index d4843c9eba..9c06740816 100644 --- a/lib/compiler/test/compilation_SUITE.erl +++ b/lib/compiler/test/compilation_SUITE.erl @@ -46,7 +46,7 @@ all(suite) -> trycatch_4, opt_crash, otp_5404,otp_5436,otp_5481,otp_5553,otp_5632, otp_5714,otp_5872,otp_6121,otp_6121a,otp_6121b, - otp_7202,otp_7345,on_load + otp_7202,otp_7345,on_load,string_table ]. -define(comp(N), @@ -596,4 +596,15 @@ otp_7345(ObjRef, _RdEnv, Args) -> 10}, id(LlUnitdataReq). +%% Check the generation of the string table. + +string_table(Config) when is_list(Config) -> + ?line DataDir = ?config(data_dir, Config), + ?line File = filename:join(DataDir, "string_table.erl"), + ?line {ok,string_table,Beam,[]} = compile:file(File, [return, binary]), + ?line {ok,{string_table,[StringTableChunk]}} = beam_lib:chunks(Beam, ["StrT"]), + ?line {"StrT", <<"stringabletringtable">>} = StringTableChunk, + ok. + + id(I) -> I. |