diff options
| author | Simon Cornish <[email protected]> | 2018-08-14 21:42:28 -0700 |
|---|---|---|
| committer | Simon Cornish <[email protected]> | 2018-08-14 21:42:28 -0700 |
| commit | 3e9d91db52c3be046be13f2a5e6330a1509e30fc (patch) | |
| tree | 2454502225462ea2aff482e27ec9833cfe6c3b74 /lib/erl_interface/test | |
| parent | d29d81dbdaa2f4f0588c45baf7ad7c4746de0b4c (diff) | |
| download | otp-3e9d91db52c3be046be13f2a5e6330a1509e30fc.tar.gz otp-3e9d91db52c3be046be13f2a5e6330a1509e30fc.tar.bz2 otp-3e9d91db52c3be046be13f2a5e6330a1509e30fc.zip | |
Test for lists that aren't well defined
Diffstat (limited to 'lib/erl_interface/test')
| -rw-r--r-- | lib/erl_interface/test/erl_ext_SUITE_data/ext_test.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/erl_interface/test/erl_ext_SUITE_data/ext_test.c b/lib/erl_interface/test/erl_ext_SUITE_data/ext_test.c index 1e986feacf..04e8ca322e 100644 --- a/lib/erl_interface/test/erl_ext_SUITE_data/ext_test.c +++ b/lib/erl_interface/test/erl_ext_SUITE_data/ext_test.c @@ -88,6 +88,11 @@ TESTCASE(compare_list) { // erlang:term_to_binary([0, 1000]) unsigned char term4[] = {131,108,0,0,0,2,97,0,98,0,0,3,232,106}; + // erlang:term_to_binary([a|b]) + unsigned char term5a[] = {131,108,0,0,0,1,100,0,1,97,100,0,1,98}; + // erlang:term_to_binary([a|c]) + unsigned char term5b[] = {131,108,0,0,0,1,100,0,1,97,100,0,1,99}; + erl_init(NULL, 0); start_a = term1; start_b = term2; @@ -103,6 +108,13 @@ TESTCASE(compare_list) { test_compare_ext("lists1", start_a, end_a, start_b, end_b, -1); + start_a = term5a; + start_b = term5b; + end_a = term5a + sizeof(term5a); + end_b = term5b + sizeof(term5b); + + test_compare_ext("lists5", start_a, end_a, start_b, end_b, -1); + report(1); } |