diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 19:53:23 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 20:04:43 +0200 |
| commit | fd0e093463831cc20b0bda7c8ed24bfd31edccee (patch) | |
| tree | d5599dfff4d378260bb0b4acfa275e17be60d21e /lib/syntax_tools/test/syntax_tools_SUITE_data | |
| parent | 3225cf459464bbb1128217bcbd4f0c26c792b3e0 (diff) | |
| download | otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.tar.gz otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.tar.bz2 otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.zip | |
syntax_tools: Strengthen igor tests
Simple test of igor:merge/3
Diffstat (limited to 'lib/syntax_tools/test/syntax_tools_SUITE_data')
| -rw-r--r-- | lib/syntax_tools/test/syntax_tools_SUITE_data/m1.erl | 22 | ||||
| -rw-r--r-- | lib/syntax_tools/test/syntax_tools_SUITE_data/m2.erl | 26 |
2 files changed, 48 insertions, 0 deletions
diff --git a/lib/syntax_tools/test/syntax_tools_SUITE_data/m1.erl b/lib/syntax_tools/test/syntax_tools_SUITE_data/m1.erl new file mode 100644 index 0000000000..d0d1911199 --- /dev/null +++ b/lib/syntax_tools/test/syntax_tools_SUITE_data/m1.erl @@ -0,0 +1,22 @@ +%% +%% File: m1.erl +%% Author: Björn-Egil Dahlberg +%% Created: 2014-10-24 +%% + +-module(m1). + +-export([foo/0,bar/1,baz/2]). + +foo() -> + [m2:foo(), + m2:bar()]. + +bar(A) -> + [m2:foo(A), + m2:bar(A), + m2:record_update(3,m2:record())]. + +baz(A,B) -> + [m2:foo(A,B), + m2:bar(A,B)]. diff --git a/lib/syntax_tools/test/syntax_tools_SUITE_data/m2.erl b/lib/syntax_tools/test/syntax_tools_SUITE_data/m2.erl new file mode 100644 index 0000000000..781139317d --- /dev/null +++ b/lib/syntax_tools/test/syntax_tools_SUITE_data/m2.erl @@ -0,0 +1,26 @@ +%% +%% File: m2.erl +%% Author: Björn-Egil Dahlberg +%% Created: 2014-10-24 +%% + +-module(m2). + + +-export([foo/0,foo/1,foo/2, + bar/0,bar/1,bar/2, + record_update/2, record/0]). + +foo() -> ok. +foo(A) -> [item,A]. +foo(A,B) -> A + B. + +bar() -> true. +bar(A) -> {element,A}. +bar(A,B) -> A*B. + +-record(rec, {a,b}). + +record() -> #rec{a=3,b=0}. +record_update(V,#rec{a=V0}=R) -> + R#rec{a=V0+V,b=V0}. |