fairchild-poolparty 1.1.4 → 1.1.5
Sign up to get free protection for your applications and to get access to all the features.
- data/README.txt +0 -12
- data/Rakefile +17 -1
- data/VERSION.yml +1 -1
- data/bin/cloud +20 -1
- data/bin/cloud-bootstrap +14 -4
- data/bin/cloud-configure +26 -9
- data/bin/cloud-contract +7 -7
- data/bin/cloud-describe +28 -0
- data/bin/cloud-expand +13 -6
- data/bin/cloud-list +3 -5
- data/bin/cloud-osxcopy +1 -1
- data/bin/cloud-provision +1 -1
- data/bin/cloud-show +6 -5
- data/bin/cloud-ssh +1 -3
- data/bin/cloud-start +8 -6
- data/bin/cloud-terminate +9 -7
- data/bin/server-cloud-elections +29 -18
- data/bin/server-ensure-provisioning +24 -29
- data/bin/server-list-active +10 -5
- data/bin/server-monitor.ru +18 -1
- data/bin/server-update-hosts +3 -3
- data/bin/server-write-new-nodes +1 -1
- data/config/jeweler.rb +12 -3
- data/lib/poolparty/aska/aska.rb +1 -12
- data/lib/poolparty/base_packages/haproxy.rb +26 -18
- data/lib/poolparty/base_packages/poolparty.rb +1 -1
- data/lib/poolparty/capistrano.rb +1 -1
- data/lib/poolparty/core/array.rb +12 -0
- data/lib/poolparty/core/hash.rb +12 -5
- data/lib/poolparty/core/nil.rb +8 -0
- data/lib/poolparty/core/object.rb +15 -5
- data/lib/poolparty/core/string.rb +28 -2
- data/lib/poolparty/dependency_resolver/chef_resolver.rb +106 -79
- data/lib/poolparty/dependency_resolver/dependency_resolver.rb +1 -1
- data/lib/poolparty/dependency_resolver/dependency_resolver_cloud_extensions.rb +5 -4
- data/lib/poolparty/dependency_resolver/puppet_resolver.rb +44 -17
- data/lib/poolparty/helpers/console.rb +1 -1
- data/lib/poolparty/helpers/optioner.rb +9 -2
- data/lib/poolparty/lite.rb +12 -2
- data/lib/poolparty/modules/callbacks.rb +44 -0
- data/lib/poolparty/modules/cloud_dsl.rb +17 -11
- data/lib/poolparty/modules/cloud_resourcer.rb +29 -21
- data/lib/poolparty/modules/definable_resource.rb +1 -1
- data/lib/poolparty/modules/pinger.rb +28 -0
- data/lib/poolparty/modules/resourcing_dsl.rb +7 -3
- data/lib/poolparty/modules/thread_pool.rb +107 -106
- data/lib/poolparty/modules/user_helpers.rb +20 -0
- data/lib/poolparty/monitors/base_monitor.rb +32 -81
- data/lib/poolparty/monitors/monitor_rack.rb +60 -69
- data/lib/poolparty/monitors/monitors/favicon_monitor.rb +12 -0
- data/lib/poolparty/monitors/monitors/load_monitor.rb +9 -15
- data/lib/poolparty/monitors/monitors/memory_monitor.rb +48 -48
- data/lib/poolparty/monitors/monitors/neighborhood_monitor.rb +77 -0
- data/lib/poolparty/monitors/{stats_monitor.rb → monitors/stats_monitor.rb} +29 -24
- data/lib/poolparty/monitors/monitors/time_monitor.rb +15 -0
- data/lib/poolparty/net/messenger.rb +2 -0
- data/lib/poolparty/net/remoter/cloud_control.rb +177 -227
- data/lib/poolparty/net/remoter/connections.rb +10 -18
- data/lib/poolparty/net/remoter/interactive.rb +24 -90
- data/lib/poolparty/net/remoter_base.rb +98 -25
- data/lib/poolparty/net/remoter_bases/ec2/ec2.rb +83 -66
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vm_disk.rb +12 -0
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vmx.rb +33 -0
- data/lib/poolparty/net/remoter_bases/vmrun/utilities/vmx_file.rb +117 -0
- data/lib/poolparty/net/remoter_bases/vmrun/vmrun.rb +165 -0
- data/lib/poolparty/net/remoter_bases/vmrun/vmrun_instance.rb +71 -0
- data/lib/poolparty/{base_packages → plugins}/bind.rb +1 -1
- data/lib/poolparty/plugins/chef.rb +71 -71
- data/lib/poolparty/plugins/chef_deploy.rb +58 -0
- data/lib/poolparty/plugins/{deploydirectory.rb → deploy_directory.rb} +12 -3
- data/lib/poolparty/plugins/dynomite.rb +14 -0
- data/lib/poolparty/plugins/gem_package.rb +37 -0
- data/lib/poolparty/plugins/line_in_file.rb +1 -0
- data/lib/poolparty/plugins/nanite.rb +41 -0
- data/lib/poolparty/{base_packages → plugins}/tokyo_tyrant.rb +1 -1
- data/lib/poolparty/poolparty/cloud.rb +36 -35
- data/lib/poolparty/poolparty/default.rb +2 -11
- data/lib/poolparty/poolparty/key.rb +15 -12
- data/lib/poolparty/poolparty/neighborhoods.rb +54 -21
- data/lib/poolparty/poolparty/plugin.rb +6 -9
- data/lib/poolparty/poolparty/plugin_model.rb +5 -5
- data/lib/poolparty/poolparty/pool.rb +8 -4
- data/lib/poolparty/poolparty/poolparty_base_class.rb +20 -11
- data/lib/poolparty/poolparty/resource.rb +9 -5
- data/lib/poolparty/poolparty/service.rb +3 -1
- data/lib/poolparty/provision/boot_strapper.rb +47 -24
- data/lib/poolparty/provision/configurations/chef.rb +7 -4
- data/lib/poolparty/provision/dr_configure.rb +80 -25
- data/lib/poolparty/resources/cron.rb +8 -0
- data/lib/poolparty/resources/directory.rb +1 -1
- data/lib/poolparty/resources/file.rb +16 -0
- data/lib/poolparty/resources/package.rb +7 -2
- data/lib/poolparty/resources/service.rb +4 -3
- data/lib/poolparty/resources/symlink.rb +0 -8
- data/lib/poolparty/schema.rb +35 -20
- data/lib/poolparty/templates/haproxy.conf +27 -25
- data/lib/poolparty/templates/monitor.ru +3 -3
- data/lib/poolparty/verification/verifier_base.rb +17 -0
- data/lib/poolparty/verification/verifiers/ping.rb +17 -0
- data/lib/poolparty/verification/verify.rb +74 -0
- data/lib/poolparty.rb +8 -9
- data/lib/poolpartycl.rb +14 -0
- data/spec/bin/server-list-active_spec.rb +2 -0
- data/spec/poolparty/base_packages/haproxy_spec.rb +1 -1
- data/spec/poolparty/core/array_spec.rb +3 -1
- data/spec/poolparty/core/ordered_hash_spec.rb +2 -2
- data/spec/poolparty/dependency_resolver/chef_resolver_spec.rb +9 -15
- data/spec/poolparty/dependency_resolver/dependency_resolver_cloud_extensions_spec.rb +6 -6
- data/spec/poolparty/dependency_resolver/puppet_resolver_spec.rb +121 -124
- data/spec/poolparty/net/remote_spec.rb +287 -286
- data/spec/poolparty/net/remoter_bases/ec2_mocks_and_stubs.rb +1 -1
- data/spec/poolparty/net/remoter_bases/ec2_remote_instance_spec.rb +7 -8
- data/spec/poolparty/net/remoter_bases/ec2_spec.rb +22 -7
- data/spec/poolparty/net/remoter_spec.rb +48 -45
- data/spec/poolparty/poolparty/cloud_spec.rb +15 -22
- data/spec/poolparty/poolparty/key_spec.rb +4 -4
- data/spec/poolparty/poolparty/neighborhoods_spec.rb +1 -2
- data/spec/poolparty/poolparty/plugin_spec.rb +2 -2
- data/spec/poolparty/poolparty/resource_spec.rb +4 -5
- data/spec/poolparty/poolparty_base_class_spec.rb +82 -78
- data/spec/poolparty/resources/package_spec.rb +0 -3
- data/spec/poolparty/spec_helper.rb +4 -4
- data/tasks/development.rake +9 -0
- data/test/poolparty/core/array_test.rb +21 -0
- data/test/poolparty/core/hash_test.rb +14 -1
- data/test/poolparty/core/string_test.rb +29 -0
- data/test/poolparty/dependency_resolver/puppet_resolver_test.rb +106 -0
- data/test/poolparty/modules/callbacks_test.rb +40 -0
- data/test/poolparty/modules/cloud_dsl_test.rb +25 -0
- data/test/poolparty/net/remoter_bases/vmrun/vmrun_test.rb +50 -0
- data/test/poolparty/net/remoter_test.rb +14 -0
- data/test/poolparty/poolparty/neighborhood_test.rb +23 -0
- data/test/poolparty/poolparty/poolparty_base_class_test.rb +84 -0
- data/test/poolparty/verification/verify_test.rb +49 -0
- data/test/test_helper.rb +4 -1
- data/test/test_poolparty.rb +6 -5
- data/vendor/chef/apache2/attributes/apache.rb +1 -1
- data/vendor/chef/apache2/templates/default/default-site.erb +1 -1
- data/vendor/chef/chef-deploy/LICENSE +201 -0
- data/vendor/chef/chef-deploy/README.rdoc +24 -0
- data/vendor/chef/chef-deploy/Rakefile +57 -0
- data/vendor/chef/chef-deploy/TODO +4 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/cached_deploy.rb +230 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/git.rb +132 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy/subversion.rb +98 -0
- data/vendor/chef/chef-deploy/lib/chef-deploy.rb +183 -0
- metadata +57 -252
- data/bin/cloud-run +0 -18
- data/bin/cloud-stats +0 -17
- data/bin/ec2-list-active +0 -24
- data/bin/pool +0 -31
- data/bin/pool-describe +0 -8
- data/bin/pool-generate +0 -18
- data/bin/pool-init +0 -28
- data/bin/pool-list +0 -30
- data/bin/pool-start +0 -26
- data/bin/server-list-instances +0 -15
- data/lib/erlang/messenger/Emakefile +0 -1
- data/lib/erlang/messenger/Makefile +0 -15
- data/lib/erlang/messenger/README +0 -5
- data/lib/erlang/messenger/Rakefile +0 -72
- data/lib/erlang/messenger/control +0 -11
- data/lib/erlang/messenger/ebin/client.app +0 -19
- data/lib/erlang/messenger/ebin/master.app +0 -19
- data/lib/erlang/messenger/ebin/node.app +0 -19
- data/lib/erlang/messenger/ebin/packager.app +0 -19
- data/lib/erlang/messenger/ebin/pm_client_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/ebin/pm_master_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/ebin/pm_node_rel-0.1.rel +0 -1
- data/lib/erlang/messenger/include/defines.hrl +0 -27
- data/lib/erlang/messenger/lib/eunit/AUTHORS +0 -2
- data/lib/erlang/messenger/lib/eunit/CHANGELOG +0 -14
- data/lib/erlang/messenger/lib/eunit/COPYING +0 -504
- data/lib/erlang/messenger/lib/eunit/Makefile +0 -28
- data/lib/erlang/messenger/lib/eunit/NOTES +0 -276
- data/lib/erlang/messenger/lib/eunit/README +0 -3
- data/lib/erlang/messenger/lib/eunit/doc/edoc-info +0 -3
- data/lib/erlang/messenger/lib/eunit/doc/erlang.png +0 -0
- data/lib/erlang/messenger/lib/eunit/doc/eunit.html +0 -172
- data/lib/erlang/messenger/lib/eunit/doc/index.html +0 -17
- data/lib/erlang/messenger/lib/eunit/doc/modules-frame.html +0 -12
- data/lib/erlang/messenger/lib/eunit/doc/overview-summary.html +0 -984
- data/lib/erlang/messenger/lib/eunit/doc/overview.edoc +0 -980
- data/lib/erlang/messenger/lib/eunit/doc/packages-frame.html +0 -11
- data/lib/erlang/messenger/lib/eunit/doc/stylesheet.css +0 -55
- data/lib/erlang/messenger/lib/eunit/ebin/autoload.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/code_monitor.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.app +0 -21
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.appup +0 -1
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_autoexport.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_data.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_lib.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_proc.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_serial.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_server.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_striptests.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_test.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_tests.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit_tty.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/ebin/file_monitor.beam +0 -0
- data/lib/erlang/messenger/lib/eunit/examples/eunit_examples.erl +0 -339
- data/lib/erlang/messenger/lib/eunit/examples/fib.erl +0 -19
- data/lib/erlang/messenger/lib/eunit/examples/tests.txt +0 -1
- data/lib/erlang/messenger/lib/eunit/include/eunit.hrl +0 -313
- data/lib/erlang/messenger/lib/eunit/src/Makefile +0 -46
- data/lib/erlang/messenger/lib/eunit/src/autoload.erl +0 -388
- data/lib/erlang/messenger/lib/eunit/src/code_monitor.erl +0 -243
- data/lib/erlang/messenger/lib/eunit/src/eunit.app.src +0 -21
- data/lib/erlang/messenger/lib/eunit/src/eunit.appup.src +0 -1
- data/lib/erlang/messenger/lib/eunit/src/eunit.erl +0 -196
- data/lib/erlang/messenger/lib/eunit/src/eunit_autoexport.erl +0 -102
- data/lib/erlang/messenger/lib/eunit/src/eunit_data.erl +0 -798
- data/lib/erlang/messenger/lib/eunit/src/eunit_internal.hrl +0 -48
- data/lib/erlang/messenger/lib/eunit/src/eunit_lib.erl +0 -682
- data/lib/erlang/messenger/lib/eunit/src/eunit_proc.erl +0 -552
- data/lib/erlang/messenger/lib/eunit/src/eunit_serial.erl +0 -157
- data/lib/erlang/messenger/lib/eunit/src/eunit_server.erl +0 -340
- data/lib/erlang/messenger/lib/eunit/src/eunit_striptests.erl +0 -64
- data/lib/erlang/messenger/lib/eunit/src/eunit_test.erl +0 -334
- data/lib/erlang/messenger/lib/eunit/src/eunit_tests.erl +0 -45
- data/lib/erlang/messenger/lib/eunit/src/eunit_tty.erl +0 -272
- data/lib/erlang/messenger/lib/eunit/src/file_monitor.erl +0 -409
- data/lib/erlang/messenger/lib/eunit/sys.config +0 -9
- data/lib/erlang/messenger/lib/eunit/vsn.mk +0 -1
- data/lib/erlang/messenger/pm_client_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_client_rel-0.1.script +0 -238
- data/lib/erlang/messenger/pm_master_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_master_rel-0.1.script +0 -239
- data/lib/erlang/messenger/pm_node_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_node_rel-0.1.script +0 -237
- data/lib/erlang/messenger/src/client_app.erl +0 -39
- data/lib/erlang/messenger/src/client_server.erl +0 -60
- data/lib/erlang/messenger/src/master_app.erl +0 -39
- data/lib/erlang/messenger/src/node_app.erl +0 -39
- data/lib/erlang/messenger/src/pm_client.erl +0 -49
- data/lib/erlang/messenger/src/pm_client_supervisor.erl +0 -38
- data/lib/erlang/messenger/src/pm_cluster.erl +0 -61
- data/lib/erlang/messenger/src/pm_event_manager.erl +0 -27
- data/lib/erlang/messenger/src/pm_master.erl +0 -215
- data/lib/erlang/messenger/src/pm_master_event_handler.erl +0 -72
- data/lib/erlang/messenger/src/pm_master_supervisor.erl +0 -39
- data/lib/erlang/messenger/src/pm_node.erl +0 -200
- data/lib/erlang/messenger/src/pm_node_supervisor.erl +0 -38
- data/lib/erlang/messenger/src/pm_packager.erl +0 -76
- data/lib/erlang/messenger/src/pm_spawner.erl +0 -213
- data/lib/erlang/messenger/src/pm_strings.erl +0 -11
- data/lib/erlang/messenger/src/utils.erl +0 -72
- data/lib/erlang/messenger/useful_snippets +0 -17
- data/lib/poolparty/monitors/monitors/server_monitor.rb +0 -7
- data/lib/poolparty/monitors/monitors/web_monitor.rb +0 -18
- data/lib/poolparty/monitors/neighborhood_monitor.rb +0 -24
- data/lib/poolparty/monitors.rb +0 -6
- data/lib/poolparty/net/remoter/lists.rb +0 -12
- data/lib/poolparty/poolparty/custom_resource.rb +0 -45
- data/lib/poolparty/resources/custom_service.rb +0 -30
- data/lib/poolparty/services/gem_package.rb +0 -52
- data/lib/poolparty/version.rb +0 -15
- data/spec/poolparty/plugins/svn_spec.rb +0 -16
- data/spec/poolparty/poolparty/custom_resource_spec.rb +0 -79
- data/vendor/gems/butterfly/History.txt +0 -4
- data/vendor/gems/butterfly/PostInstall.txt +0 -2
- data/vendor/gems/butterfly/README.rdoc +0 -48
- data/vendor/gems/butterfly/Rakefile +0 -62
- data/vendor/gems/butterfly/VERSION.yml +0 -4
- data/vendor/gems/butterfly/bin/flutter +0 -4
- data/vendor/gems/butterfly/butterfly.gemspec +0 -37
- data/vendor/gems/butterfly/examples/config.ru +0 -15
- data/vendor/gems/butterfly/examples/my_app.rb +0 -12
- data/vendor/gems/butterfly/lib/butterfly.rb +0 -14
- data/vendor/gems/butterfly/lib/handler.rb +0 -48
- data/vendor/gems/butterfly/lib/request.rb +0 -29
- data/vendor/gems/butterfly/lib/response.rb +0 -49
- data/vendor/gems/butterfly/script/console +0 -10
- data/vendor/gems/butterfly/script/destroy +0 -14
- data/vendor/gems/butterfly/script/generate +0 -14
- data/vendor/gems/butterfly/test/test_adapter_base.rb +0 -23
- data/vendor/gems/butterfly/test/test_butterfly_request.rb +0 -46
- data/vendor/gems/butterfly/test/test_butterfly_response.rb +0 -43
- data/vendor/gems/butterfly/test/test_butterfly_server.rb +0 -16
- data/vendor/gems/butterfly/test/test_default.rb +0 -12
- data/vendor/gems/butterfly/test/test_helper.rb +0 -6
- data/vendor/gems/dslify/History.txt +0 -4
- data/vendor/gems/dslify/Manifest.txt +0 -25
- data/vendor/gems/dslify/PostInstall.txt +0 -5
- data/vendor/gems/dslify/README.txt +0 -60
- data/vendor/gems/dslify/Rakefile +0 -56
- data/vendor/gems/dslify/config/hoe.rb +0 -73
- data/vendor/gems/dslify/config/requirements.rb +0 -15
- data/vendor/gems/dslify/dslify.gemspec +0 -40
- data/vendor/gems/dslify/lib/dslify/dslify.rb +0 -69
- data/vendor/gems/dslify/lib/dslify/version.rb +0 -10
- data/vendor/gems/dslify/lib/dslify.rb +0 -7
- data/vendor/gems/dslify/script/console +0 -10
- data/vendor/gems/dslify/script/destroy +0 -14
- data/vendor/gems/dslify/script/generate +0 -14
- data/vendor/gems/dslify/script/txt2html +0 -82
- data/vendor/gems/dslify/setup.rb +0 -1585
- data/vendor/gems/dslify/tasks/deployment.rake +0 -34
- data/vendor/gems/dslify/tasks/environment.rake +0 -7
- data/vendor/gems/dslify/tasks/website.rake +0 -17
- data/vendor/gems/dslify/test/test_dslify.rb +0 -114
- data/vendor/gems/dslify/website/index.html +0 -86
- data/vendor/gems/dslify/website/index.txt +0 -83
- data/vendor/gems/dslify/website/javascripts/rounded_corners_lite.inc.js +0 -285
- data/vendor/gems/dslify/website/stylesheets/screen.css +0 -138
- data/vendor/gems/dslify/website/template.html.erb +0 -48
- data/vendor/gems/parenting/History.txt +0 -4
- data/vendor/gems/parenting/Manifest.txt +0 -13
- data/vendor/gems/parenting/PostInstall.txt +0 -2
- data/vendor/gems/parenting/README.rdoc +0 -47
- data/vendor/gems/parenting/Rakefile +0 -28
- data/vendor/gems/parenting/lib/parenting/base.rb +0 -65
- data/vendor/gems/parenting/lib/parenting.rb +0 -10
- data/vendor/gems/parenting/parenting.gemspec +0 -39
- data/vendor/gems/parenting/script/console +0 -10
- data/vendor/gems/parenting/script/destroy +0 -14
- data/vendor/gems/parenting/script/generate +0 -14
- data/vendor/gems/parenting/test/file_to_eval.rb +0 -9
- data/vendor/gems/parenting/test/test_helper.rb +0 -5
- data/vendor/gems/parenting/test/test_parenting.rb +0 -89
- data/vendor/gems/suitcase/LICENSE +0 -20
- data/vendor/gems/suitcase/README.rdoc +0 -31
- data/vendor/gems/suitcase/Rakefile +0 -57
- data/vendor/gems/suitcase/VERSION.yml +0 -4
- data/vendor/gems/suitcase/lib/suitcase/unzipper.rb +0 -15
- data/vendor/gems/suitcase/lib/suitcase/zipper.rb +0 -119
- data/vendor/gems/suitcase/lib/suitcase.rb +0 -5
- data/vendor/gems/suitcase/suitcase.gemspec +0 -32
- data/vendor/gems/suitcase/test/suitcase_test.rb +0 -102
- data/vendor/gems/suitcase/test/test_dir/box.rb +0 -1
- data/vendor/gems/suitcase/test/test_dir/test.txt +0 -1
- data/vendor/gems/suitcase/test/test_helper.rb +0 -12
@@ -1,196 +0,0 @@
|
|
1
|
-
%% This library is free software; you can redistribute it and/or modify
|
2
|
-
%% it under the terms of the GNU Lesser General Public License as
|
3
|
-
%% published by the Free Software Foundation; either version 2 of the
|
4
|
-
%% License, or (at your option) any later version.
|
5
|
-
%%
|
6
|
-
%% This library is distributed in the hope that it will be useful, but
|
7
|
-
%% WITHOUT ANY WARRANTY; without even the implied warranty of
|
8
|
-
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
9
|
-
%% Lesser General Public License for more details.
|
10
|
-
%%
|
11
|
-
%% You should have received a copy of the GNU Lesser General Public
|
12
|
-
%% License along with this library; if not, write to the Free Software
|
13
|
-
%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
14
|
-
%% USA
|
15
|
-
%%
|
16
|
-
%% $Id: eunit.erl 249 2008-05-11 20:06:45Z rcarlsson $
|
17
|
-
%%
|
18
|
-
%% @copyright 2004-2007 Micka�l R�mond, Richard Carlsson
|
19
|
-
%% @author Micka�l R�mond <mickael.remond@process-one.net>
|
20
|
-
%% [http://www.process-one.net/]
|
21
|
-
%% @author Richard Carlsson <richardc@it.uu.se>
|
22
|
-
%% [http://user.it.uu.se/~richardc/]
|
23
|
-
%% @version {@version}, {@date} {@time}
|
24
|
-
%% @doc This module is the normal EUnit user interface.
|
25
|
-
|
26
|
-
-module(eunit).
|
27
|
-
|
28
|
-
-include("eunit.hrl").
|
29
|
-
-include("eunit_internal.hrl").
|
30
|
-
|
31
|
-
|
32
|
-
-export([start/0, start/1, stop/0, stop/1, test/1, test/2, test/3,
|
33
|
-
list/1, submit/1, submit/2, submit/3, watch/1, watch/2,
|
34
|
-
watch/3, watch_path/1, watch_path/2, watch_path/3,
|
35
|
-
watch_regexp/1, watch_regexp/2, watch_regexp/3, watch_app/1,
|
36
|
-
watch_app/2, watch_app/3]).
|
37
|
-
|
38
|
-
-export([testp/1]). %% for development testing, not official
|
39
|
-
|
40
|
-
|
41
|
-
%% EUnit entry points
|
42
|
-
|
43
|
-
start() ->
|
44
|
-
start(?SERVER).
|
45
|
-
|
46
|
-
start(Server) ->
|
47
|
-
eunit_server:start(Server).
|
48
|
-
|
49
|
-
stop() ->
|
50
|
-
stop(?SERVER).
|
51
|
-
|
52
|
-
stop(Server) ->
|
53
|
-
eunit_server:stop(Server).
|
54
|
-
|
55
|
-
watch(Target) ->
|
56
|
-
watch(Target, []).
|
57
|
-
|
58
|
-
watch(Target, Options) ->
|
59
|
-
watch(?SERVER, Target, Options).
|
60
|
-
|
61
|
-
watch(Server, Target, Options) ->
|
62
|
-
eunit_server:watch(Server, Target, Options).
|
63
|
-
|
64
|
-
watch_path(Target) ->
|
65
|
-
watch_path(Target, []).
|
66
|
-
|
67
|
-
watch_path(Target, Options) ->
|
68
|
-
watch_path(?SERVER, Target, Options).
|
69
|
-
|
70
|
-
watch_path(Server, Target, Options) ->
|
71
|
-
eunit_server:watch_path(Server, Target, Options).
|
72
|
-
|
73
|
-
watch_regexp(Target) ->
|
74
|
-
watch_regexp(Target, []).
|
75
|
-
|
76
|
-
watch_regexp(Target, Options) ->
|
77
|
-
watch_regexp(?SERVER, Target, Options).
|
78
|
-
|
79
|
-
watch_regexp(Server, Target, Options) ->
|
80
|
-
eunit_server:watch_regexp(Server, Target, Options).
|
81
|
-
|
82
|
-
watch_app(Name) ->
|
83
|
-
watch_app(Name, []).
|
84
|
-
|
85
|
-
watch_app(Name, Options) ->
|
86
|
-
watch_app(?SERVER, Name, Options).
|
87
|
-
|
88
|
-
watch_app(Server, Name, Options) ->
|
89
|
-
case code:lib_dir(Name) of
|
90
|
-
Path when is_list(Path) ->
|
91
|
-
watch_path(Server, filename:join(Path, "ebin"), Options);
|
92
|
-
_ ->
|
93
|
-
error
|
94
|
-
end.
|
95
|
-
|
96
|
-
list(T) ->
|
97
|
-
try eunit_data:list(T)
|
98
|
-
catch
|
99
|
-
{error, R} -> {error, R}
|
100
|
-
end.
|
101
|
-
|
102
|
-
test(T) ->
|
103
|
-
test(T, [{order, inorder}]).
|
104
|
-
|
105
|
-
testp(T) ->
|
106
|
-
test(T, [{order, inparallel}]).
|
107
|
-
|
108
|
-
test(T, Options) ->
|
109
|
-
test(?SERVER, T, Options).
|
110
|
-
|
111
|
-
test(Server, T, Options) ->
|
112
|
-
%% TODO: try to eliminate call to list/1
|
113
|
-
try eunit_data:list(T) of
|
114
|
-
List ->
|
115
|
-
Listeners = [eunit_tty:start(List, Options)
|
116
|
-
| listeners(Options)],
|
117
|
-
Serial = eunit_serial:start(Listeners),
|
118
|
-
case eunit_server:start_test(Server, Serial, T, Options) of
|
119
|
-
{ok, Reference} -> test_run(Reference, Listeners);
|
120
|
-
{error, R} -> {error, R}
|
121
|
-
end
|
122
|
-
catch
|
123
|
-
{error, R} ->
|
124
|
-
io:put_chars(eunit_lib:format_error(R)),
|
125
|
-
{error, R}
|
126
|
-
end.
|
127
|
-
|
128
|
-
test_run(Reference, Listeners) ->
|
129
|
-
receive
|
130
|
-
{start, Reference} ->
|
131
|
-
cast(Listeners, {start, Reference})
|
132
|
-
end,
|
133
|
-
receive
|
134
|
-
{done, Reference} ->
|
135
|
-
cast(Listeners, {stop, Reference, self()}),
|
136
|
-
receive
|
137
|
-
{result, Reference, Result} ->
|
138
|
-
Result
|
139
|
-
end
|
140
|
-
end.
|
141
|
-
|
142
|
-
cast([P | Ps], Msg) ->
|
143
|
-
P ! Msg,
|
144
|
-
cast(Ps, Msg);
|
145
|
-
cast([], Msg) ->
|
146
|
-
Msg.
|
147
|
-
|
148
|
-
%% TODO: functions that run tests on a given node, not a given server
|
149
|
-
%% TODO: maybe some functions could check for a globally registered server?
|
150
|
-
%% TODO: some synchronous but completely quiet interface function
|
151
|
-
|
152
|
-
submit(T) ->
|
153
|
-
submit(T, []).
|
154
|
-
|
155
|
-
submit(T, Options) ->
|
156
|
-
submit(?SERVER, T, Options).
|
157
|
-
|
158
|
-
submit(Server, T, Options) ->
|
159
|
-
Dummy = spawn(fun devnull/0),
|
160
|
-
eunit_server:start_test(Server, Dummy, T, Options).
|
161
|
-
|
162
|
-
listeners(Options) ->
|
163
|
-
case proplists:get_value(event_log, Options) of
|
164
|
-
undefined ->
|
165
|
-
[];
|
166
|
-
LogFile ->
|
167
|
-
[spawn(fun () -> event_logger(LogFile) end)]
|
168
|
-
end.
|
169
|
-
|
170
|
-
%% TODO: make this report file errors
|
171
|
-
event_logger(LogFile) ->
|
172
|
-
case file:open(LogFile, [write]) of
|
173
|
-
{ok, FD} ->
|
174
|
-
receive
|
175
|
-
{start, Reference} ->
|
176
|
-
event_logger_loop(Reference, FD)
|
177
|
-
end;
|
178
|
-
Error ->
|
179
|
-
exit(Error)
|
180
|
-
end.
|
181
|
-
|
182
|
-
event_logger_loop(Reference, FD) ->
|
183
|
-
receive
|
184
|
-
{status, _Id, _Info}=Msg ->
|
185
|
-
io:fwrite(FD, "~w.\n", [Msg]),
|
186
|
-
event_logger_loop(Reference, FD);
|
187
|
-
{stop, Reference, _ReplyTo} ->
|
188
|
-
%% no need to reply, just exit
|
189
|
-
file:close(FD),
|
190
|
-
exit(normal)
|
191
|
-
end.
|
192
|
-
|
193
|
-
%% TODO: make a proper logger for asynchronous execution with submit/3
|
194
|
-
|
195
|
-
devnull() ->
|
196
|
-
receive _ -> devnull() end.
|
@@ -1,102 +0,0 @@
|
|
1
|
-
%% This library is free software; you can redistribute it and/or modify
|
2
|
-
%% it under the terms of the GNU Lesser General Public License as
|
3
|
-
%% published by the Free Software Foundation; either version 2 of the
|
4
|
-
%% License, or (at your option) any later version.
|
5
|
-
%%
|
6
|
-
%% This library is distributed in the hope that it will be useful, but
|
7
|
-
%% WITHOUT ANY WARRANTY; without even the implied warranty of
|
8
|
-
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
9
|
-
%% Lesser General Public License for more details.
|
10
|
-
%%
|
11
|
-
%% You should have received a copy of the GNU Lesser General Public
|
12
|
-
%% License along with this library; if not, write to the Free Software
|
13
|
-
%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
14
|
-
%% USA
|
15
|
-
%%
|
16
|
-
%% $Id: eunit_autoexport.erl 258 2008-10-02 07:09:39Z rcarlsson $
|
17
|
-
%%
|
18
|
-
%% @author Richard Carlsson <richardc@it.uu.se>
|
19
|
-
%% @copyright 2006 Richard Carlsson
|
20
|
-
%% @private
|
21
|
-
%% @see eunit
|
22
|
-
%% @doc Parse transform for automatic exporting of test functions.
|
23
|
-
|
24
|
-
-module(eunit_autoexport).
|
25
|
-
|
26
|
-
-include("eunit_internal.hrl").
|
27
|
-
|
28
|
-
-export([parse_transform/2]).
|
29
|
-
|
30
|
-
|
31
|
-
parse_transform(Forms, Options) ->
|
32
|
-
TestSuffix = proplists:get_value(eunit_test_suffix, Options,
|
33
|
-
?DEFAULT_TEST_SUFFIX),
|
34
|
-
GeneratorSuffix = proplists:get_value(eunit_generator_suffix,
|
35
|
-
Options,
|
36
|
-
?DEFAULT_GENERATOR_SUFFIX),
|
37
|
-
ExportSuffix = proplists:get_value(eunit_export_suffix, Options,
|
38
|
-
?DEFAULT_EXPORT_SUFFIX),
|
39
|
-
F = fun (Form, Set) ->
|
40
|
-
form(Form, Set, TestSuffix, GeneratorSuffix,
|
41
|
-
ExportSuffix)
|
42
|
-
end,
|
43
|
-
Exports = sets:to_list(lists:foldl(F, sets:new(), Forms)),
|
44
|
-
rewrite(Forms, Exports).
|
45
|
-
|
46
|
-
form({function, _L, Name, 0, _Cs}, S, TestSuffix, GeneratorSuffix,
|
47
|
-
ExportSuffix) ->
|
48
|
-
N = atom_to_list(Name),
|
49
|
-
case lists:suffix(TestSuffix, N) of
|
50
|
-
true ->
|
51
|
-
sets:add_element({Name, 0}, S);
|
52
|
-
false ->
|
53
|
-
case lists:suffix(GeneratorSuffix, N) of
|
54
|
-
true ->
|
55
|
-
sets:add_element({Name, 0}, S);
|
56
|
-
false ->
|
57
|
-
case lists:suffix(ExportSuffix, N) of
|
58
|
-
true ->
|
59
|
-
sets:add_element({Name, 0}, S);
|
60
|
-
false ->
|
61
|
-
S
|
62
|
-
end
|
63
|
-
end
|
64
|
-
end;
|
65
|
-
form(_, S, _, _, _) ->
|
66
|
-
S.
|
67
|
-
|
68
|
-
rewrite([{attribute,_,module,{Name,_Ps}}=M | Fs], Exports) ->
|
69
|
-
module_decl(Name, M, Fs, Exports);
|
70
|
-
rewrite([{attribute,_,module,Name}=M | Fs], Exports) ->
|
71
|
-
module_decl(Name, M, Fs, Exports);
|
72
|
-
rewrite([F | Fs], Exports) ->
|
73
|
-
[F | rewrite(Fs, Exports)];
|
74
|
-
rewrite([], _Exports) ->
|
75
|
-
[]. %% fail-safe, in case there is no module declaration
|
76
|
-
|
77
|
-
rewrite([{function,_,test,0,_}=F | Fs], As, Module, _Test) ->
|
78
|
-
rewrite(Fs, [F | As], Module, false);
|
79
|
-
rewrite([F | Fs], As, Module, Test) ->
|
80
|
-
rewrite(Fs, [F | As], Module, Test);
|
81
|
-
rewrite([], As, Module, Test) ->
|
82
|
-
{if Test ->
|
83
|
-
EUnit = {record_field,0,{atom,0,''},{atom,0,eunit}},
|
84
|
-
[{function,0,test,0,
|
85
|
-
[{clause,0,[],[],
|
86
|
-
[{call,0,{remote,0,EUnit,{atom,0,test}},
|
87
|
-
[{atom,0,Module}]}]}]}
|
88
|
-
| As];
|
89
|
-
true ->
|
90
|
-
As
|
91
|
-
end,
|
92
|
-
Test}.
|
93
|
-
|
94
|
-
module_decl(Name, M, Fs, Exports) ->
|
95
|
-
Module = if is_atom(Name) -> Name;
|
96
|
-
true -> list_to_atom(packages:concat(Name))
|
97
|
-
end,
|
98
|
-
{Fs1, Test} = rewrite(Fs, [], Module, true),
|
99
|
-
Es = if Test -> [{test,0} | Exports];
|
100
|
-
true -> Exports
|
101
|
-
end,
|
102
|
-
[M, {attribute,0,export,Es} | lists:reverse(Fs1)].
|