diff options
| author | Björn Gustavsson <[email protected]> | 2010-01-19 11:34:56 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-01-19 13:01:29 +0100 |
| commit | 74d7b1b942c6f1d984e263f6675a9423197a3215 (patch) | |
| tree | 4644ffbb46b3f166507ffa8739e5ecbfccd4aba7 /lib/tools/test/cprof_SUITE_data | |
| parent | 81f4b1f7f453e1242d7f81ef2347230a9ff3fb0f (diff) | |
| download | otp-74d7b1b942c6f1d984e263f6675a9423197a3215.tar.gz otp-74d7b1b942c6f1d984e263f6675a9423197a3215.tar.bz2 otp-74d7b1b942c6f1d984e263f6675a9423197a3215.zip | |
Add test suite for the tools application
Diffstat (limited to 'lib/tools/test/cprof_SUITE_data')
| -rw-r--r-- | lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl b/lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl new file mode 100644 index 0000000000..02d8b027e5 --- /dev/null +++ b/lib/tools/test/cprof_SUITE_data/cprof_SUITE_test.erl @@ -0,0 +1,25 @@ +-module(cprof_SUITE_test). + +-export([seq/3, seq_r/3]). + + + +%% Stack recursive seq +seq(Stop, Stop, Succ) when function(Succ) -> + [Stop]; +seq(Start, Stop, Succ) when function(Succ) -> + [Start | seq(Succ(Start), Stop, Succ)]. + + + +%% Tail recursive seq, result list is reversed +seq_r(Start, Stop, Succ) when function(Succ) -> + seq_r(Start, Stop, Succ, []). + +seq_r(Stop, Stop, _, R) -> + [Stop | R]; +seq_r(Start, Stop, Succ, R) -> + seq_r(Succ(Start), Stop, Succ, [Start | R]). + + + |