diff options
| author | Siri Hansen <[email protected]> | 2014-10-24 11:18:43 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2014-10-24 11:18:43 +0200 |
| commit | 9c6a5be013be2d88935a4c74e8dff92376821a0d (patch) | |
| tree | 04682963e2ad49e0a803e2f93c124859e20e52df /lib/stdlib | |
| parent | 4dd483c187317ace77d052eec43cc34efb9b00a3 (diff) | |
| parent | c5589decd09020c66c4451585a6c5f76c3b21edd (diff) | |
| download | otp-9c6a5be013be2d88935a4c74e8dff92376821a0d.tar.gz otp-9c6a5be013be2d88935a4c74e8dff92376821a0d.tar.bz2 otp-9c6a5be013be2d88935a4c74e8dff92376821a0d.zip | |
Merge branch 'siri/test-upgrade'
* siri/test-upgrade:
Add upgrade test in stdlib_SUITE
[ct] Add ct_release_tests.erl
Specify tar-file as basename in upgrade_SUITE
Diffstat (limited to 'lib/stdlib')
| -rw-r--r-- | lib/stdlib/test/stdlib_SUITE.erl | 33 |
1 files changed, 23 insertions, 10 deletions
diff --git a/lib/stdlib/test/stdlib_SUITE.erl b/lib/stdlib/test/stdlib_SUITE.erl index 3d09bd27ff..6669a21b9c 100644 --- a/lib/stdlib/test/stdlib_SUITE.erl +++ b/lib/stdlib/test/stdlib_SUITE.erl @@ -22,14 +22,7 @@ -module(stdlib_SUITE). -include_lib("test_server/include/test_server.hrl"). - -% Test server specific exports --export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, - init_per_group/2,end_per_group/2]). --export([init_per_testcase/2, end_per_testcase/2]). - -% Test cases must be exported. --export([app_test/1, appup_test/1]). +-compile(export_all). %% %% all/1 @@ -37,10 +30,10 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> - [app_test, appup_test]. + [app_test, appup_test, {group,upgrade}]. groups() -> - []. + [{upgrade,[minor_upgrade,major_upgrade]}]. init_per_suite(Config) -> Config. @@ -48,9 +41,13 @@ init_per_suite(Config) -> end_per_suite(_Config) -> ok. +init_per_group(upgrade, Config) -> + ct_release_test:init(Config); init_per_group(_GroupName, Config) -> Config. +end_per_group(upgrade, Config) -> + ct_release_test:cleanup(Config); end_per_group(_GroupName, Config) -> Config. @@ -165,3 +162,19 @@ check_appup([Vsn|Vsns],Instrs,Expected) -> end; check_appup([],_,_) -> ok. + + +minor_upgrade(Config) -> + ct_release_test:upgrade(stdlib,minor,{?MODULE,[]},Config). + +major_upgrade(Config) -> + ct_release_test:upgrade(stdlib,major,{?MODULE,[]},Config). + +%% Version numbers are checked by ct_release_test, so there is nothing +%% more to check here... +upgrade_init(State) -> + State. +upgrade_upgraded(State) -> + State. +upgrade_downgraded(State) -> + State. |