fairchild-poolparty 1.1.3
Sign up to get free protection for your applications and to get access to all the features.
- data/History.txt +35 -0
- data/License.txt +20 -0
- data/PostInstall.txt +19 -0
- data/README.txt +77 -0
- data/Rakefile +45 -0
- data/VERSION.yml +4 -0
- data/bin/cloud +32 -0
- data/bin/cloud-bootstrap +21 -0
- data/bin/cloud-configure +28 -0
- data/bin/cloud-console +12 -0
- data/bin/cloud-contract +17 -0
- data/bin/cloud-expand +19 -0
- data/bin/cloud-handle-load +27 -0
- data/bin/cloud-list +23 -0
- data/bin/cloud-osxcopy +17 -0
- data/bin/cloud-provision +30 -0
- data/bin/cloud-rsync +28 -0
- data/bin/cloud-run +18 -0
- data/bin/cloud-setup-dev +25 -0
- data/bin/cloud-show +27 -0
- data/bin/cloud-spec +41 -0
- data/bin/cloud-ssh +23 -0
- data/bin/cloud-start +28 -0
- data/bin/cloud-stats +17 -0
- data/bin/cloud-terminate +20 -0
- data/bin/ec2-list-active +24 -0
- data/bin/messenger-get-current-nodes +14 -0
- data/bin/pool +31 -0
- data/bin/pool-describe +8 -0
- data/bin/pool-generate +18 -0
- data/bin/pool-init +28 -0
- data/bin/pool-list +30 -0
- data/bin/pool-start +26 -0
- data/bin/server-become-master +24 -0
- data/bin/server-build-messenger +28 -0
- data/bin/server-butterfly +25 -0
- data/bin/server-clean-cert-for +15 -0
- data/bin/server-cloud-elections +26 -0
- data/bin/server-ensure-provisioning +38 -0
- data/bin/server-fire-cmd +14 -0
- data/bin/server-get-load +15 -0
- data/bin/server-list-active +26 -0
- data/bin/server-list-instances +15 -0
- data/bin/server-manage-election +67 -0
- data/bin/server-monitor.ru +25 -0
- data/bin/server-provision +32 -0
- data/bin/server-query-agent +15 -0
- data/bin/server-rerun +23 -0
- data/bin/server-send-command +18 -0
- data/bin/server-show-stats +17 -0
- data/bin/server-start-agent +15 -0
- data/bin/server-start-client +29 -0
- data/bin/server-start-master +26 -0
- data/bin/server-start-node +32 -0
- data/bin/server-stop-client +3 -0
- data/bin/server-stop-master +3 -0
- data/bin/server-stop-node +3 -0
- data/bin/server-update-hosts +49 -0
- data/bin/server-write-new-nodes +26 -0
- data/config/jeweler.rb +43 -0
- data/config/requirements.rb +7 -0
- data/examples/basic.rb +23 -0
- data/examples/deploy.rb +5 -0
- data/examples/fairchild.rb +32 -0
- data/examples/fairchild_chef.rb +19 -0
- data/examples/paparazzi.conf.erb +21 -0
- data/examples/plugin_without_plugin_directory.rb +12 -0
- data/examples/poolparty.rb +12 -0
- data/generators/poolspec/USAGE +5 -0
- data/generators/poolspec/poolspec_generator.rb +58 -0
- data/generators/poolspec/templates/pool_spec_template.erb +9 -0
- data/lib/erlang/messenger/Emakefile +1 -0
- data/lib/erlang/messenger/Makefile +15 -0
- data/lib/erlang/messenger/README +5 -0
- data/lib/erlang/messenger/Rakefile +72 -0
- data/lib/erlang/messenger/control +11 -0
- data/lib/erlang/messenger/ebin/client.app +19 -0
- data/lib/erlang/messenger/ebin/master.app +19 -0
- data/lib/erlang/messenger/ebin/node.app +19 -0
- data/lib/erlang/messenger/ebin/packager.app +19 -0
- data/lib/erlang/messenger/ebin/pm_client_rel-0.1.rel +1 -0
- data/lib/erlang/messenger/ebin/pm_master_rel-0.1.rel +1 -0
- data/lib/erlang/messenger/ebin/pm_node_rel-0.1.rel +1 -0
- data/lib/erlang/messenger/include/defines.hrl +27 -0
- data/lib/erlang/messenger/lib/eunit/AUTHORS +2 -0
- data/lib/erlang/messenger/lib/eunit/CHANGELOG +14 -0
- data/lib/erlang/messenger/lib/eunit/COPYING +504 -0
- data/lib/erlang/messenger/lib/eunit/Makefile +28 -0
- data/lib/erlang/messenger/lib/eunit/NOTES +276 -0
- data/lib/erlang/messenger/lib/eunit/README +3 -0
- data/lib/erlang/messenger/lib/eunit/doc/edoc-info +3 -0
- data/lib/erlang/messenger/lib/eunit/doc/erlang.png +0 -0
- data/lib/erlang/messenger/lib/eunit/doc/eunit.html +172 -0
- data/lib/erlang/messenger/lib/eunit/doc/index.html +17 -0
- data/lib/erlang/messenger/lib/eunit/doc/modules-frame.html +12 -0
- data/lib/erlang/messenger/lib/eunit/doc/overview-summary.html +984 -0
- data/lib/erlang/messenger/lib/eunit/doc/overview.edoc +980 -0
- data/lib/erlang/messenger/lib/eunit/doc/packages-frame.html +11 -0
- data/lib/erlang/messenger/lib/eunit/doc/stylesheet.css +55 -0
- 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 +21 -0
- data/lib/erlang/messenger/lib/eunit/ebin/eunit.appup +1 -0
- 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 +339 -0
- data/lib/erlang/messenger/lib/eunit/examples/fib.erl +19 -0
- data/lib/erlang/messenger/lib/eunit/examples/tests.txt +1 -0
- data/lib/erlang/messenger/lib/eunit/include/eunit.hrl +313 -0
- data/lib/erlang/messenger/lib/eunit/src/Makefile +46 -0
- data/lib/erlang/messenger/lib/eunit/src/autoload.erl +388 -0
- data/lib/erlang/messenger/lib/eunit/src/code_monitor.erl +243 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit.app.src +21 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit.appup.src +1 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit.erl +196 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_autoexport.erl +102 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_data.erl +798 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_internal.hrl +48 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_lib.erl +682 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_proc.erl +552 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_serial.erl +157 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_server.erl +340 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_striptests.erl +64 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_test.erl +334 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_tests.erl +45 -0
- data/lib/erlang/messenger/lib/eunit/src/eunit_tty.erl +272 -0
- data/lib/erlang/messenger/lib/eunit/src/file_monitor.erl +409 -0
- data/lib/erlang/messenger/lib/eunit/sys.config +9 -0
- data/lib/erlang/messenger/lib/eunit/vsn.mk +1 -0
- data/lib/erlang/messenger/pm_client_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_client_rel-0.1.script +238 -0
- data/lib/erlang/messenger/pm_master_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_master_rel-0.1.script +239 -0
- data/lib/erlang/messenger/pm_node_rel-0.1.boot +0 -0
- data/lib/erlang/messenger/pm_node_rel-0.1.script +237 -0
- data/lib/erlang/messenger/src/client_app.erl +39 -0
- data/lib/erlang/messenger/src/client_server.erl +60 -0
- data/lib/erlang/messenger/src/master_app.erl +39 -0
- data/lib/erlang/messenger/src/node_app.erl +39 -0
- data/lib/erlang/messenger/src/pm_client.erl +49 -0
- data/lib/erlang/messenger/src/pm_client_supervisor.erl +38 -0
- data/lib/erlang/messenger/src/pm_cluster.erl +61 -0
- data/lib/erlang/messenger/src/pm_event_manager.erl +27 -0
- data/lib/erlang/messenger/src/pm_master.erl +215 -0
- data/lib/erlang/messenger/src/pm_master_event_handler.erl +72 -0
- data/lib/erlang/messenger/src/pm_master_supervisor.erl +39 -0
- data/lib/erlang/messenger/src/pm_node.erl +200 -0
- data/lib/erlang/messenger/src/pm_node_supervisor.erl +38 -0
- data/lib/erlang/messenger/src/pm_packager.erl +76 -0
- data/lib/erlang/messenger/src/pm_spawner.erl +213 -0
- data/lib/erlang/messenger/src/pm_strings.erl +11 -0
- data/lib/erlang/messenger/src/utils.erl +72 -0
- data/lib/erlang/messenger/useful_snippets +17 -0
- data/lib/poolparty/aska/aska.rb +152 -0
- data/lib/poolparty/base_packages/bind.rb +11 -0
- data/lib/poolparty/base_packages/haproxy.rb +46 -0
- data/lib/poolparty/base_packages/heartbeat.rb +58 -0
- data/lib/poolparty/base_packages/poolparty.rb +14 -0
- data/lib/poolparty/base_packages/ruby.rb +42 -0
- data/lib/poolparty/base_packages/runit.rb +21 -0
- data/lib/poolparty/capistrano/cloud_tasks.rb +10 -0
- data/lib/poolparty/capistrano.rb +54 -0
- data/lib/poolparty/config/postlaunchmessage.txt +5 -0
- data/lib/poolparty/core/array.rb +36 -0
- data/lib/poolparty/core/class.rb +26 -0
- data/lib/poolparty/core/exception.rb +10 -0
- data/lib/poolparty/core/float.rb +13 -0
- data/lib/poolparty/core/hash.rb +71 -0
- data/lib/poolparty/core/kernel.rb +66 -0
- data/lib/poolparty/core/metaid.rb +15 -0
- data/lib/poolparty/core/module.rb +40 -0
- data/lib/poolparty/core/my_open_struct.rb +18 -0
- data/lib/poolparty/core/object.rb +93 -0
- data/lib/poolparty/core/ordered_hash.rb +99 -0
- data/lib/poolparty/core/proc.rb +7 -0
- data/lib/poolparty/core/string.rb +140 -0
- data/lib/poolparty/core/symbol.rb +17 -0
- data/lib/poolparty/core/time.rb +56 -0
- data/lib/poolparty/dependencies.rb +49 -0
- data/lib/poolparty/dependency_resolver/chef_resolver.rb +221 -0
- data/lib/poolparty/dependency_resolver/dependency_resolver.rb +42 -0
- data/lib/poolparty/dependency_resolver/dependency_resolver_cloud_extensions.rb +28 -0
- data/lib/poolparty/dependency_resolver/puppet.rb +75 -0
- data/lib/poolparty/dependency_resolver/puppet_resolver.rb +173 -0
- data/lib/poolparty/exceptions/CloudNotFoundException.rb +7 -0
- data/lib/poolparty/exceptions/LoadRulesException.rb +7 -0
- data/lib/poolparty/exceptions/MasterException.rb +10 -0
- data/lib/poolparty/exceptions/ProvisionerException.rb +5 -0
- data/lib/poolparty/exceptions/RemoteException.rb +12 -0
- data/lib/poolparty/exceptions/ResourceException.rb +7 -0
- data/lib/poolparty/exceptions/RuntimeException.rb +7 -0
- data/lib/poolparty/exceptions/SpecException.rb +7 -0
- data/lib/poolparty/exceptions/TemplateNotFound.rb +7 -0
- data/lib/poolparty/exceptions/UnacceptableCommand.rb +5 -0
- data/lib/poolparty/exceptions/dependency_resolver_exception.rb +5 -0
- data/lib/poolparty/exceptions/package_exception.rb +7 -0
- data/lib/poolparty/extra/deployments.rb +31 -0
- data/lib/poolparty/helpers/binary.rb +67 -0
- data/lib/poolparty/helpers/console.rb +48 -0
- data/lib/poolparty/helpers/display.rb +30 -0
- data/lib/poolparty/helpers/hash_printer.rb +44 -0
- data/lib/poolparty/helpers/loading.rb +4 -0
- data/lib/poolparty/helpers/nice_printer.rb +36 -0
- data/lib/poolparty/helpers/optioner.rb +149 -0
- data/lib/poolparty/helpers/ruberl.rb +33 -0
- data/lib/poolparty/lite.rb +20 -0
- data/lib/poolparty/modules/cloud_dsl.rb +20 -0
- data/lib/poolparty/modules/cloud_resourcer.rb +122 -0
- data/lib/poolparty/modules/daemonizable.rb +141 -0
- data/lib/poolparty/modules/definable_resource.rb +57 -0
- data/lib/poolparty/modules/file_writer.rb +95 -0
- data/lib/poolparty/modules/output.rb +13 -0
- data/lib/poolparty/modules/pretty_printer.rb +40 -0
- data/lib/poolparty/modules/resourcing_dsl.rb +74 -0
- data/lib/poolparty/modules/s3_string.rb +32 -0
- data/lib/poolparty/modules/safe_instance.rb +31 -0
- data/lib/poolparty/modules/thread_pool.rb +106 -0
- data/lib/poolparty/monitors/base_monitor.rb +81 -0
- data/lib/poolparty/monitors/monitor_rack.rb +132 -0
- data/lib/poolparty/monitors/monitors/load_monitor.rb +15 -0
- data/lib/poolparty/monitors/monitors/memory_monitor.rb +50 -0
- data/lib/poolparty/monitors/monitors/server_monitor.rb +7 -0
- data/lib/poolparty/monitors/monitors/web_monitor.rb +18 -0
- data/lib/poolparty/monitors/neighborhood_monitor.rb +25 -0
- data/lib/poolparty/monitors/stats_monitor.rb +182 -0
- data/lib/poolparty/monitors.rb +6 -0
- data/lib/poolparty/net/init.rb +11 -0
- data/lib/poolparty/net/messenger.rb +55 -0
- data/lib/poolparty/net/remote_bases.rb +21 -0
- data/lib/poolparty/net/remote_instance.rb +109 -0
- data/lib/poolparty/net/remoter/cloud_control.rb +251 -0
- data/lib/poolparty/net/remoter/connections.rb +180 -0
- data/lib/poolparty/net/remoter/interactive.rb +121 -0
- data/lib/poolparty/net/remoter/lists.rb +12 -0
- data/lib/poolparty/net/remoter_base.rb +97 -0
- data/lib/poolparty/net/remoter_bases/ec2/ec2.rb +235 -0
- data/lib/poolparty/net/remoter_bases/ec2/ec2_remote_instance.rb +53 -0
- data/lib/poolparty/net/remoter_bases/ec2/ec2_response_object.rb +64 -0
- data/lib/poolparty/plugins/chef.rb +168 -0
- data/lib/poolparty/plugins/deploydirectory.rb +47 -0
- data/lib/poolparty/plugins/git.rb +66 -0
- data/lib/poolparty/plugins/line_in_file.rb +13 -0
- data/lib/poolparty/plugins/rsyncmirror.rb +28 -0
- data/lib/poolparty/plugins/runit.rb +96 -0
- data/lib/poolparty/plugins/svn.rb +48 -0
- data/lib/poolparty/poolparty/cloud.rb +216 -0
- data/lib/poolparty/poolparty/custom_resource.rb +45 -0
- data/lib/poolparty/poolparty/default.rb +167 -0
- data/lib/poolparty/poolparty/key.rb +75 -0
- data/lib/poolparty/poolparty/loggable.rb +28 -0
- data/lib/poolparty/poolparty/neighborhoods.rb +69 -0
- data/lib/poolparty/poolparty/plugin.rb +69 -0
- data/lib/poolparty/poolparty/plugin_model.rb +45 -0
- data/lib/poolparty/poolparty/pool.rb +76 -0
- data/lib/poolparty/poolparty/poolparty_base_class.rb +181 -0
- data/lib/poolparty/poolparty/resource.rb +205 -0
- data/lib/poolparty/poolparty/script.rb +58 -0
- data/lib/poolparty/poolparty/service.rb +34 -0
- data/lib/poolparty/poolparty/template.rb +27 -0
- data/lib/poolparty/provision/boot_strapper.rb +141 -0
- data/lib/poolparty/provision/configurations/chef.rb +22 -0
- data/lib/poolparty/provision/configurations/puppet.rb +28 -0
- data/lib/poolparty/provision/dr_configure.rb +85 -0
- data/lib/poolparty/resources/cron.rb +14 -0
- data/lib/poolparty/resources/custom_service.rb +30 -0
- data/lib/poolparty/resources/directory.rb +13 -0
- data/lib/poolparty/resources/exec.rb +25 -0
- data/lib/poolparty/resources/file.rb +29 -0
- data/lib/poolparty/resources/host.rb +16 -0
- data/lib/poolparty/resources/mount.rb +21 -0
- data/lib/poolparty/resources/package.rb +12 -0
- data/lib/poolparty/resources/remote_file.rb +20 -0
- data/lib/poolparty/resources/service.rb +20 -0
- data/lib/poolparty/resources/sshkey.rb +27 -0
- data/lib/poolparty/resources/symlink.rb +21 -0
- data/lib/poolparty/resources/user.rb +13 -0
- data/lib/poolparty/resources/variable.rb +9 -0
- data/lib/poolparty/schema.rb +64 -0
- data/lib/poolparty/services/conditional.rb +46 -0
- data/lib/poolparty/services/gem_package.rb +52 -0
- data/lib/poolparty/spec/core/string.rb +18 -0
- data/lib/poolparty/spec/matchers/a_spec_extensions_base.rb +26 -0
- data/lib/poolparty/spec/matchers/have_cron.rb +28 -0
- data/lib/poolparty/spec/matchers/have_deploydirectory.rb +15 -0
- data/lib/poolparty/spec/matchers/have_directory.rb +31 -0
- data/lib/poolparty/spec/matchers/have_exec.rb +28 -0
- data/lib/poolparty/spec/matchers/have_file.rb +28 -0
- data/lib/poolparty/spec/matchers/have_gempackage.rb +28 -0
- data/lib/poolparty/spec/matchers/have_git.rb +28 -0
- data/lib/poolparty/spec/matchers/have_host.rb +28 -0
- data/lib/poolparty/spec/matchers/have_mount.rb +28 -0
- data/lib/poolparty/spec/matchers/have_package.rb +28 -0
- data/lib/poolparty/spec/matchers/have_remotefile.rb +28 -0
- data/lib/poolparty/spec/matchers/have_rsyncmirror.rb +28 -0
- data/lib/poolparty/spec/matchers/have_service.rb +28 -0
- data/lib/poolparty/spec/matchers/have_sshkey.rb +28 -0
- data/lib/poolparty/spec/matchers/have_symlink.rb +28 -0
- data/lib/poolparty/spec/matchers/have_variable.rb +32 -0
- data/lib/poolparty/spec/spec/dynamic_matchers.rb +63 -0
- data/lib/poolparty/spec/spec/ensure_matchers_exist.rb +7 -0
- data/lib/poolparty/spec/templates/have_base.rb +28 -0
- data/lib/poolparty/spec.rb +31 -0
- data/lib/poolparty/templates/authkeys +2 -0
- data/lib/poolparty/templates/cib.xml +54 -0
- data/lib/poolparty/templates/erlang_cookie_maker +6 -0
- data/lib/poolparty/templates/gem +27 -0
- data/lib/poolparty/templates/gemrc +11 -0
- data/lib/poolparty/templates/ha.cf +17 -0
- data/lib/poolparty/templates/haproxy.conf +36 -0
- data/lib/poolparty/templates/haresources +3 -0
- data/lib/poolparty/templates/logd.cf +42 -0
- data/lib/poolparty/templates/messenger/client/log-run.erb +2 -0
- data/lib/poolparty/templates/messenger/client/run.erb +4 -0
- data/lib/poolparty/templates/messenger/master/log-run.erb +2 -0
- data/lib/poolparty/templates/messenger/master/run.erb +4 -0
- data/lib/poolparty/templates/messenger/node/log-run.erb +2 -0
- data/lib/poolparty/templates/messenger/node/run.erb +4 -0
- data/lib/poolparty/templates/monitor.ru +16 -0
- data/lib/poolparty/templates/namespaceauth.conf +19 -0
- data/lib/poolparty/templates/poolparty.monitor +14 -0
- data/lib/poolparty/templates/puppet/add_puppet_to_hosts +6 -0
- data/lib/poolparty/templates/puppet/puppet.conf +2 -0
- data/lib/poolparty/templates/puppet/puppetrunner +14 -0
- data/lib/poolparty/templates/puppet/site.pp +4 -0
- data/lib/poolparty/templates/puppetrunner +14 -0
- data/lib/poolparty/templates/yaws.conf +19 -0
- data/lib/poolparty/version.rb +15 -0
- data/lib/poolparty.rb +148 -0
- data/lib/poolpartycl.rb +7 -0
- data/script/destroy +14 -0
- data/script/generate +14 -0
- data/spec/bin/bin_spec_helper.rb +7 -0
- data/spec/bin/fixtures/bin_cloud_for_test.rb +19 -0
- data/spec/bin/server-list-active_spec.rb +22 -0
- data/spec/poolparty/aska/aska_spec.rb +117 -0
- data/spec/poolparty/base_packages/haproxy_spec.rb +7 -0
- data/spec/poolparty/base_packages/heartbeat_spec.rb +7 -0
- data/spec/poolparty/bin/console_spec.rb +83 -0
- data/spec/poolparty/core/array_spec.rb +46 -0
- data/spec/poolparty/core/float.rb +13 -0
- data/spec/poolparty/core/hash_spec.rb +83 -0
- data/spec/poolparty/core/kernel_spec.rb +24 -0
- data/spec/poolparty/core/module_spec.rb +15 -0
- data/spec/poolparty/core/object_spec.rb +68 -0
- data/spec/poolparty/core/ordered_hash_spec.rb +48 -0
- data/spec/poolparty/core/string_spec.rb +145 -0
- data/spec/poolparty/core/time_spec.rb +49 -0
- data/spec/poolparty/dependencies_spec.rb +11 -0
- data/spec/poolparty/dependency_resolver/chef_resolver_spec.rb +119 -0
- data/spec/poolparty/dependency_resolver/dependency_resolver_cloud_extensions_spec.rb +128 -0
- data/spec/poolparty/dependency_resolver/dependency_resolver_spec.rb +16 -0
- data/spec/poolparty/dependency_resolver/puppet_resolver_spec.rb +124 -0
- data/spec/poolparty/extra/deployments_spec.rb +68 -0
- data/spec/poolparty/fixtures/clouds.json +128 -0
- data/spec/poolparty/fixtures/test_template.erb +1 -0
- data/spec/poolparty/helpers/binary_spec.rb +26 -0
- data/spec/poolparty/helpers/display_spec.rb +13 -0
- data/spec/poolparty/helpers/hash_printer_spec.rb +34 -0
- data/spec/poolparty/helpers/optioner_spec.rb +50 -0
- data/spec/poolparty/id_rsa +27 -0
- data/spec/poolparty/modules/cloud_resourcer_spec.rb +67 -0
- data/spec/poolparty/modules/definable_resource.rb +9 -0
- data/spec/poolparty/modules/file_writer_spec.rb +64 -0
- data/spec/poolparty/modules/s3_string_spec.rb +15 -0
- data/spec/poolparty/monitors/base_monitor_spec.rb +112 -0
- data/spec/poolparty/monitors/monitors/cpu_monitor_spec.rb +18 -0
- data/spec/poolparty/monitors/monitors/memory_monitor_spec.rb +48 -0
- data/spec/poolparty/net/messenger_spec.rb +16 -0
- data/spec/poolparty/net/remote_instance_spec.rb +17 -0
- data/spec/poolparty/net/remote_spec.rb +286 -0
- data/spec/poolparty/net/remoter_base_spec.rb +35 -0
- data/spec/poolparty/net/remoter_bases/ec2_mocks_and_stubs.rb +24 -0
- data/spec/poolparty/net/remoter_bases/ec2_remote_instance_spec.rb +125 -0
- data/spec/poolparty/net/remoter_bases/ec2_spec.rb +119 -0
- data/spec/poolparty/net/remoter_spec.rb +130 -0
- data/spec/poolparty/plugins/chef_spec.rb +7 -0
- data/spec/poolparty/plugins/deploydirectory_spec.rb +51 -0
- data/spec/poolparty/plugins/git_spec.rb +40 -0
- data/spec/poolparty/plugins/line_spec.rb +22 -0
- data/spec/poolparty/plugins/svn_spec.rb +16 -0
- data/spec/poolparty/poolparty/cloud_spec.rb +345 -0
- data/spec/poolparty/poolparty/configurers/files/ruby_basic.rb +16 -0
- data/spec/poolparty/poolparty/configurers/files/ruby_plugins.rb +16 -0
- data/spec/poolparty/poolparty/configurers/ruby_spec.rb +42 -0
- data/spec/poolparty/poolparty/custom_resource_spec.rb +79 -0
- data/spec/poolparty/poolparty/default_spec.rb +139 -0
- data/spec/poolparty/poolparty/example_spec.rb +60 -0
- data/spec/poolparty/poolparty/key_spec.rb +42 -0
- data/spec/poolparty/poolparty/neighborhoods_spec.rb +66 -0
- data/spec/poolparty/poolparty/plugin_model_spec.rb +54 -0
- data/spec/poolparty/poolparty/plugin_spec.rb +41 -0
- data/spec/poolparty/poolparty/pool_spec.rb +100 -0
- data/spec/poolparty/poolparty/resource_spec.rb +209 -0
- data/spec/poolparty/poolparty/script_spec.rb +49 -0
- data/spec/poolparty/poolparty/service_spec.rb +5 -0
- data/spec/poolparty/poolparty/template_spec.rb +26 -0
- data/spec/poolparty/poolparty/test_plugins/sshkey_test +2 -0
- data/spec/poolparty/poolparty/test_plugins/virtual_host_template.erb +0 -0
- data/spec/poolparty/poolparty/test_plugins/webserver.rb +30 -0
- data/spec/poolparty/poolparty_base_class_spec.rb +80 -0
- data/spec/poolparty/poolparty_spec.rb +36 -0
- data/spec/poolparty/resources/cron_spec.rb +44 -0
- data/spec/poolparty/resources/directory_spec.rb +40 -0
- data/spec/poolparty/resources/exec_spec.rb +37 -0
- data/spec/poolparty/resources/file_spec.rb +63 -0
- data/spec/poolparty/resources/gem_spec.rb +7 -0
- data/spec/poolparty/resources/host_spec.rb +35 -0
- data/spec/poolparty/resources/package_spec.rb +29 -0
- data/spec/poolparty/resources/service_spec.rb +29 -0
- data/spec/poolparty/resources/sshkey_spec.rb +40 -0
- data/spec/poolparty/resources/symlink_spec.rb +29 -0
- data/spec/poolparty/resources/user_spec.rb +48 -0
- data/spec/poolparty/resources/variable_spec.rb +26 -0
- data/spec/poolparty/schema_spec.rb +53 -0
- data/spec/poolparty/services/conditional_spec.rb +52 -0
- data/spec/poolparty/spec/core/string_spec.rb +57 -0
- data/spec/poolparty/spec_helper.rb +263 -0
- data/spec/poolparty/test_spec_helper.rb +13 -0
- data/tasks/cloud.rake +3 -0
- data/tasks/development.rake +82 -0
- data/tasks/ec2.rake +13 -0
- data/tasks/environment.rake +7 -0
- data/tasks/instance.rake +2 -0
- data/tasks/poolparty.rake +54 -0
- data/tasks/server.rake +44 -0
- data/tasks/spec.rake +16 -0
- data/test/fixtures/test_template.erb +1 -0
- data/test/poolparty/core/hash_test.rb +23 -0
- data/test/poolparty/poolparty/template_test.rb +31 -0
- data/test/poolparty/provision/boot_strapper_test.rb +6 -0
- data/test/poolparty/provision/dr_configure_test.rb +6 -0
- data/test/test_generator_helper.rb +29 -0
- data/test/test_helper.rb +5 -0
- data/test/test_pool_spec_generator.rb +47 -0
- data/test/test_poolparty.rb +11 -0
- data/vendor/gems/butterfly/History.txt +4 -0
- data/vendor/gems/butterfly/PostInstall.txt +2 -0
- data/vendor/gems/butterfly/README.rdoc +48 -0
- data/vendor/gems/butterfly/Rakefile +62 -0
- data/vendor/gems/butterfly/VERSION.yml +4 -0
- data/vendor/gems/butterfly/bin/flutter +4 -0
- data/vendor/gems/butterfly/butterfly.gemspec +37 -0
- data/vendor/gems/butterfly/examples/config.ru +15 -0
- data/vendor/gems/butterfly/examples/my_app.rb +12 -0
- data/vendor/gems/butterfly/lib/butterfly.rb +14 -0
- data/vendor/gems/butterfly/lib/handler.rb +48 -0
- data/vendor/gems/butterfly/lib/request.rb +29 -0
- data/vendor/gems/butterfly/lib/response.rb +49 -0
- data/vendor/gems/butterfly/script/console +10 -0
- data/vendor/gems/butterfly/script/destroy +14 -0
- data/vendor/gems/butterfly/script/generate +14 -0
- data/vendor/gems/butterfly/test/test_adapter_base.rb +23 -0
- data/vendor/gems/butterfly/test/test_butterfly_request.rb +46 -0
- data/vendor/gems/butterfly/test/test_butterfly_response.rb +43 -0
- data/vendor/gems/butterfly/test/test_butterfly_server.rb +16 -0
- data/vendor/gems/butterfly/test/test_default.rb +12 -0
- data/vendor/gems/butterfly/test/test_helper.rb +6 -0
- data/vendor/gems/dslify/History.txt +4 -0
- data/vendor/gems/dslify/Manifest.txt +25 -0
- data/vendor/gems/dslify/PostInstall.txt +5 -0
- data/vendor/gems/dslify/README.txt +60 -0
- data/vendor/gems/dslify/Rakefile +56 -0
- data/vendor/gems/dslify/config/hoe.rb +73 -0
- data/vendor/gems/dslify/config/requirements.rb +15 -0
- data/vendor/gems/dslify/dslify.gemspec +40 -0
- data/vendor/gems/dslify/lib/dslify/dslify.rb +69 -0
- data/vendor/gems/dslify/lib/dslify/version.rb +10 -0
- data/vendor/gems/dslify/lib/dslify.rb +7 -0
- data/vendor/gems/dslify/script/console +10 -0
- data/vendor/gems/dslify/script/destroy +14 -0
- data/vendor/gems/dslify/script/generate +14 -0
- data/vendor/gems/dslify/script/txt2html +82 -0
- data/vendor/gems/dslify/setup.rb +1585 -0
- data/vendor/gems/dslify/tasks/deployment.rake +34 -0
- data/vendor/gems/dslify/tasks/environment.rake +7 -0
- data/vendor/gems/dslify/tasks/website.rake +17 -0
- data/vendor/gems/dslify/test/test_dslify.rb +114 -0
- data/vendor/gems/dslify/website/index.html +86 -0
- data/vendor/gems/dslify/website/index.txt +83 -0
- data/vendor/gems/dslify/website/javascripts/rounded_corners_lite.inc.js +285 -0
- data/vendor/gems/dslify/website/stylesheets/screen.css +138 -0
- data/vendor/gems/dslify/website/template.html.erb +48 -0
- data/vendor/gems/parenting/History.txt +4 -0
- data/vendor/gems/parenting/Manifest.txt +13 -0
- data/vendor/gems/parenting/PostInstall.txt +2 -0
- data/vendor/gems/parenting/README.rdoc +47 -0
- data/vendor/gems/parenting/Rakefile +28 -0
- data/vendor/gems/parenting/lib/parenting/base.rb +65 -0
- data/vendor/gems/parenting/lib/parenting.rb +10 -0
- data/vendor/gems/parenting/parenting.gemspec +39 -0
- data/vendor/gems/parenting/script/console +10 -0
- data/vendor/gems/parenting/script/destroy +14 -0
- data/vendor/gems/parenting/script/generate +14 -0
- data/vendor/gems/parenting/test/file_to_eval.rb +9 -0
- data/vendor/gems/parenting/test/test_helper.rb +5 -0
- data/vendor/gems/parenting/test/test_parenting.rb +89 -0
- data/vendor/gems/suitcase/LICENSE +20 -0
- data/vendor/gems/suitcase/README.rdoc +31 -0
- data/vendor/gems/suitcase/Rakefile +57 -0
- data/vendor/gems/suitcase/VERSION.yml +4 -0
- data/vendor/gems/suitcase/lib/suitcase/unzipper.rb +15 -0
- data/vendor/gems/suitcase/lib/suitcase/zipper.rb +103 -0
- data/vendor/gems/suitcase/lib/suitcase.rb +5 -0
- data/vendor/gems/suitcase/suitcase.gemspec +52 -0
- data/vendor/gems/suitcase/test/suitcase_test.rb +89 -0
- data/vendor/gems/suitcase/test/test_dir/box.rb +1 -0
- data/vendor/gems/suitcase/test/test_dir/test.txt +1 -0
- data/vendor/gems/suitcase/test/test_helper.rb +12 -0
- metadata +810 -0
@@ -0,0 +1,682 @@
|
|
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_lib.erl 238 2007-11-15 10:23:54Z mremond $
|
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
|
+
%% @private
|
24
|
+
%% @see eunit
|
25
|
+
%% @doc Utility functions for eunit
|
26
|
+
|
27
|
+
-module(eunit_lib).
|
28
|
+
|
29
|
+
-include("eunit.hrl").
|
30
|
+
-include("eunit_internal.hrl").
|
31
|
+
|
32
|
+
|
33
|
+
-export([dlist_next/1, uniq/1, fun_parent/1, is_string/1, browse_fun/1,
|
34
|
+
command/1, command/2, command/3, trie_new/0, trie_store/2,
|
35
|
+
trie_match/2, split_node/1, consult_file/1, list_dir/1,
|
36
|
+
format_exit_term/1, format_exception/1, format_error/1]).
|
37
|
+
|
38
|
+
|
39
|
+
%% Type definitions for describing exceptions
|
40
|
+
%%
|
41
|
+
%% @type exception() = {exceptionClass(), Reason::term(), stackTrace()}
|
42
|
+
%%
|
43
|
+
%% @type exceptionClass() = error | exit | throw
|
44
|
+
%%
|
45
|
+
%% @type stackTrace() = [{moduleName(), functionName(),
|
46
|
+
%% arity() | argList()}]
|
47
|
+
%%
|
48
|
+
%% @type moduleName() = atom()
|
49
|
+
%% @type functionName() = atom()
|
50
|
+
%% @type arity() = integer()
|
51
|
+
%% @type mfa() = {moduleName(), functionName(), arity()}
|
52
|
+
%% @type argList() = [term()]
|
53
|
+
%% @type fileName() = string()
|
54
|
+
|
55
|
+
|
56
|
+
%% ---------------------------------------------------------------------
|
57
|
+
%% Formatting of error descriptors
|
58
|
+
|
59
|
+
format_exception({Class,Term,Trace})
|
60
|
+
when is_atom(Class), is_list(Trace) ->
|
61
|
+
case is_stacktrace(Trace) of
|
62
|
+
true ->
|
63
|
+
io_lib:format("~w:~P\n~s",
|
64
|
+
[Class, Term, 15, format_stacktrace(Trace)]);
|
65
|
+
false ->
|
66
|
+
format_term(Term)
|
67
|
+
end;
|
68
|
+
format_exception(Term) ->
|
69
|
+
format_term(Term).
|
70
|
+
|
71
|
+
format_term(Term) ->
|
72
|
+
io_lib:format("~P\n", [Term, 15]).
|
73
|
+
|
74
|
+
format_exit_term(Term) ->
|
75
|
+
{Reason, Trace} = analyze_exit_term(Term),
|
76
|
+
io_lib:format("~P~s", [Reason, 15, Trace]).
|
77
|
+
|
78
|
+
analyze_exit_term({Reason, [_|_]=Trace}=Term) ->
|
79
|
+
case is_stacktrace(Trace) of
|
80
|
+
true ->
|
81
|
+
{Reason, format_stacktrace(Trace)};
|
82
|
+
false ->
|
83
|
+
{Term, ""}
|
84
|
+
end;
|
85
|
+
analyze_exit_term(Term) ->
|
86
|
+
{Term, ""}.
|
87
|
+
|
88
|
+
is_stacktrace([]) ->
|
89
|
+
true;
|
90
|
+
is_stacktrace([{M,F,A}|Fs]) when is_atom(M), is_atom(F), is_integer(A) ->
|
91
|
+
is_stacktrace(Fs);
|
92
|
+
is_stacktrace([{M,F,As}|Fs]) when is_atom(M), is_atom(F), is_list(As) ->
|
93
|
+
is_stacktrace(Fs);
|
94
|
+
is_stacktrace(_) ->
|
95
|
+
false.
|
96
|
+
|
97
|
+
format_stacktrace(Trace) ->
|
98
|
+
format_stacktrace(Trace, "in function", "in call from").
|
99
|
+
|
100
|
+
format_stacktrace([{M,F,A}|Fs], Pre, Pre1) when is_integer(A) ->
|
101
|
+
[io_lib:fwrite(" ~s ~w:~w/~w\n", [Pre, M, F, A])
|
102
|
+
| format_stacktrace(Fs, Pre1, Pre1)];
|
103
|
+
format_stacktrace([{M,F,As}|Fs], Pre, Pre1) when is_list(As) ->
|
104
|
+
A = length(As),
|
105
|
+
C = case is_op(M,F,A) of
|
106
|
+
true when A == 1 ->
|
107
|
+
[A1] = As,
|
108
|
+
io_lib:fwrite("~s ~s", [F,format_arg(A1)]);
|
109
|
+
true when A == 2 ->
|
110
|
+
[A1, A2] = As,
|
111
|
+
io_lib:fwrite("~s ~s ~s",
|
112
|
+
[format_arg(A1),F,format_arg(A2)]);
|
113
|
+
false ->
|
114
|
+
io_lib:fwrite("~w(~s)", [F,format_arglist(As)])
|
115
|
+
end,
|
116
|
+
[io_lib:fwrite(" ~s ~w:~w/~w\n called as ~s\n",
|
117
|
+
[Pre,M,F,A,C])
|
118
|
+
| format_stacktrace(Fs,Pre1,Pre1)];
|
119
|
+
format_stacktrace([],_Pre,_Pre1) ->
|
120
|
+
"".
|
121
|
+
|
122
|
+
format_arg(A) ->
|
123
|
+
io_lib:format("~P",[A,15]).
|
124
|
+
|
125
|
+
format_arglist([A]) ->
|
126
|
+
format_arg(A);
|
127
|
+
format_arglist([A|As]) ->
|
128
|
+
[io_lib:format("~P,",[A,15]) | format_arglist(As)];
|
129
|
+
format_arglist([]) ->
|
130
|
+
"".
|
131
|
+
|
132
|
+
is_op(erlang, F, A) ->
|
133
|
+
erl_internal:arith_op(F, A)
|
134
|
+
orelse erl_internal:bool_op(F, A)
|
135
|
+
orelse erl_internal:comp_op(F, A)
|
136
|
+
orelse erl_internal:list_op(F, A)
|
137
|
+
orelse erl_internal:send_op(F, A);
|
138
|
+
is_op(_M, _F, _A) ->
|
139
|
+
false.
|
140
|
+
|
141
|
+
format_error({bad_test, Term}) ->
|
142
|
+
error_msg("bad test descriptor", "~P", [Term, 15]);
|
143
|
+
format_error({generator_failed, Exception}) ->
|
144
|
+
error_msg("test generator failed", "~s",
|
145
|
+
[format_exception(Exception)]);
|
146
|
+
format_error({no_such_function, {M,F,A}})
|
147
|
+
when is_atom(M), is_atom(F), is_integer(A) ->
|
148
|
+
error_msg(io_lib:format("no such function: ~w:~w/~w", [M,F,A]),
|
149
|
+
"", []);
|
150
|
+
format_error({module_not_found, M}) ->
|
151
|
+
error_msg("test module not found", "~p", [M]);
|
152
|
+
format_error({application_not_found, A}) when is_atom(A) ->
|
153
|
+
error_msg("application not found", "~w", [A]);
|
154
|
+
format_error({file_read_error, {_R, Msg, F}}) ->
|
155
|
+
error_msg("error reading file", "~s: ~s", [Msg, F]);
|
156
|
+
format_error({context_error, setup_failed, Exception}) ->
|
157
|
+
error_msg("context setup failed", "~s",
|
158
|
+
[format_exception(Exception)]);
|
159
|
+
format_error({context_error, cleanup_failed, Exception}) ->
|
160
|
+
error_msg("context cleanup failed", "~s",
|
161
|
+
[format_exception(Exception)]);
|
162
|
+
format_error({context_error, instantiation_failed, Exception}) ->
|
163
|
+
error_msg("instantiation of subtests failed", "~s",
|
164
|
+
[format_exception(Exception)]).
|
165
|
+
|
166
|
+
error_msg(Title, Fmt, Args) ->
|
167
|
+
Msg = io_lib:format("::"++Fmt, Args), % gets indentation right
|
168
|
+
io_lib:fwrite("*** ~s ***\n~s\n\n", [Title, Msg]).
|
169
|
+
|
170
|
+
|
171
|
+
%% ---------------------------------------------------------------------
|
172
|
+
%% Deep list iterator; accepts improper lists/sublists, and also accepts
|
173
|
+
%% non-lists on the top level. Nonempty strings (not deep strings) are
|
174
|
+
%% recognized as separate elements, even on the top level. (It is not
|
175
|
+
%% recommended to include integers in the deep list, since a list of
|
176
|
+
%% integers is likely to be interpreted as a string.). The result is
|
177
|
+
%% always presented as a list (which may be improper), which is either
|
178
|
+
%% empty or otherwise has a non-list head element.
|
179
|
+
|
180
|
+
dlist_next([X | Xs] = Xs0) when is_list(X) ->
|
181
|
+
case is_nonempty_string(X) of
|
182
|
+
true -> Xs0;
|
183
|
+
false -> dlist_next(X, Xs)
|
184
|
+
end;
|
185
|
+
dlist_next([_|_] = Xs) ->
|
186
|
+
case is_nonempty_string(Xs) of
|
187
|
+
true -> [Xs];
|
188
|
+
false -> Xs
|
189
|
+
end;
|
190
|
+
dlist_next([]) ->
|
191
|
+
[];
|
192
|
+
dlist_next(X) ->
|
193
|
+
[X].
|
194
|
+
|
195
|
+
%% the first two clauses avoid pushing empty lists on the stack
|
196
|
+
dlist_next([X], Ys) when is_list(X) ->
|
197
|
+
case is_nonempty_string(X) of
|
198
|
+
true -> [X | Ys];
|
199
|
+
false -> dlist_next(X, Ys)
|
200
|
+
end;
|
201
|
+
dlist_next([X], Ys) ->
|
202
|
+
[X | Ys];
|
203
|
+
dlist_next([X | Xs], Ys) when is_list(X) ->
|
204
|
+
case is_nonempty_string(X) of
|
205
|
+
true -> [X | [Xs | Ys]];
|
206
|
+
false -> dlist_next(X, [Xs | Ys])
|
207
|
+
end;
|
208
|
+
dlist_next([X | Xs], Ys) ->
|
209
|
+
[X | [Xs | Ys]];
|
210
|
+
dlist_next([], Xs) ->
|
211
|
+
dlist_next(Xs).
|
212
|
+
|
213
|
+
|
214
|
+
-ifdef(TEST).
|
215
|
+
dlist_test_() ->
|
216
|
+
{"deep list traversal",
|
217
|
+
[{"non-list term -> singleton list",
|
218
|
+
?_test([any] = dlist_next(any))},
|
219
|
+
{"empty list -> empty list",
|
220
|
+
?_test([] = dlist_next([]))},
|
221
|
+
{"singleton list -> singleton list",
|
222
|
+
?_test([any] = dlist_next([any]))},
|
223
|
+
{"taking the head of a flat list",
|
224
|
+
?_test([a,b,c] = dlist_next([a,b,c]))},
|
225
|
+
{"skipping an initial empty list",
|
226
|
+
?_test([a,b,c] = dlist_next([[],a,b,c]))},
|
227
|
+
{"skipping nested initial empty lists",
|
228
|
+
?_test([a,b,c] = dlist_next([[[[]]],a,b,c]))},
|
229
|
+
{"skipping a final empty list",
|
230
|
+
?_test([] = dlist_next([[]]))},
|
231
|
+
{"skipping nested final empty lists",
|
232
|
+
?_test([] = dlist_next([[[[]]]]))},
|
233
|
+
{"the first element is in a sublist",
|
234
|
+
?_test([a,b,c] = dlist_next([[a],b,c]))},
|
235
|
+
{"recognizing a naked string",
|
236
|
+
?_test(["abc"] = dlist_next("abc"))},
|
237
|
+
{"recognizing a wrapped string",
|
238
|
+
?_test(["abc"] = dlist_next(["abc"]))},
|
239
|
+
{"recognizing a leading string",
|
240
|
+
?_test(["abc",a,b,c] = dlist_next(["abc",a,b,c]))},
|
241
|
+
{"recognizing a nested string",
|
242
|
+
?_test(["abc"] = dlist_next([["abc"]]))},
|
243
|
+
{"recognizing a leading string in a sublist",
|
244
|
+
?_test(["abc",a,b,c] = dlist_next([["abc"],a,b,c]))},
|
245
|
+
{"traversing an empty list",
|
246
|
+
?_test([] = dlist_flatten([]))},
|
247
|
+
{"traversing a flat list",
|
248
|
+
?_test([a,b,c] = dlist_flatten([a,b,c]))},
|
249
|
+
{"traversing a deep list",
|
250
|
+
?_test([a,b,c] = dlist_flatten([[],[a,[b,[]],c],[]]))},
|
251
|
+
{"traversing a deep but empty list",
|
252
|
+
?_test([] = dlist_flatten([[],[[[]]],[]]))}
|
253
|
+
]}.
|
254
|
+
|
255
|
+
%% test support
|
256
|
+
dlist_flatten(Xs) ->
|
257
|
+
case dlist_next(Xs) of
|
258
|
+
[X | Xs1] -> [X | dlist_flatten(Xs1)];
|
259
|
+
[] -> []
|
260
|
+
end.
|
261
|
+
-endif.
|
262
|
+
|
263
|
+
|
264
|
+
%% ---------------------------------------------------------------------
|
265
|
+
%% Check for proper Unicode-stringness.
|
266
|
+
|
267
|
+
is_string([C | Cs]) when is_integer(C), C >= 0, C =< 16#10ffff ->
|
268
|
+
is_string(Cs);
|
269
|
+
is_string([_ | _]) ->
|
270
|
+
false;
|
271
|
+
is_string([]) ->
|
272
|
+
true;
|
273
|
+
is_string(_) ->
|
274
|
+
false.
|
275
|
+
|
276
|
+
is_nonempty_string([]) -> false;
|
277
|
+
is_nonempty_string(Cs) -> is_string(Cs).
|
278
|
+
|
279
|
+
-ifdef(TEST).
|
280
|
+
is_string_test_() ->
|
281
|
+
{"is_string",
|
282
|
+
[{"no non-lists", ?_assert(not is_string($A))},
|
283
|
+
{"no non-integer lists", ?_assert(not is_string([true]))},
|
284
|
+
{"empty string", ?_assert(is_string(""))},
|
285
|
+
{"ascii string", ?_assert(is_string(lists:seq(0, 127)))},
|
286
|
+
{"latin-1 string", ?_assert(is_string(lists:seq(0, 255)))},
|
287
|
+
{"unicode string",
|
288
|
+
?_assert(is_string([0, $A, 16#10fffe, 16#10ffff]))},
|
289
|
+
{"not above unicode range",
|
290
|
+
?_assert(not is_string([0, $A, 16#110000]))},
|
291
|
+
{"no negative codepoints", ?_assert(not is_string([$A, -1, 0]))}
|
292
|
+
]}.
|
293
|
+
-endif.
|
294
|
+
|
295
|
+
|
296
|
+
%% ---------------------------------------------------------------------
|
297
|
+
%% Splitting a full node name into basename and hostname,
|
298
|
+
%% using 'localhost' as the default hostname
|
299
|
+
|
300
|
+
split_node(N) when is_atom(N) -> split_node(atom_to_list(N));
|
301
|
+
split_node(Cs) -> split_node_1(Cs, []).
|
302
|
+
|
303
|
+
split_node_1([$@ | Cs], As) -> split_node_2(As, Cs);
|
304
|
+
split_node_1([C | Cs], As) -> split_node_1(Cs, [C | As]);
|
305
|
+
split_node_1([], As) -> split_node_2(As, "localhost").
|
306
|
+
|
307
|
+
split_node_2(As, Cs) ->
|
308
|
+
{list_to_atom(lists:reverse(As)), list_to_atom(Cs)}.
|
309
|
+
|
310
|
+
%% ---------------------------------------------------------------------
|
311
|
+
%% Get the name of the containing function for a fun. (This is encoded
|
312
|
+
%% in the name of the generated function that implements the fun.)
|
313
|
+
|
314
|
+
fun_parent(F) ->
|
315
|
+
{name, N} = erlang:fun_info(F, name),
|
316
|
+
case erlang:fun_info(F, type) of
|
317
|
+
{type, external} ->
|
318
|
+
N;
|
319
|
+
{type, local} ->
|
320
|
+
S = atom_to_list(N),
|
321
|
+
list_to_atom(string:sub_string(S, 2, string:chr(S, $/) - 1))
|
322
|
+
end.
|
323
|
+
|
324
|
+
-ifdef(TEST).
|
325
|
+
fun_parent_test() ->
|
326
|
+
fun_parent_test = fun_parent(fun () -> ok end).
|
327
|
+
-endif.
|
328
|
+
|
329
|
+
|
330
|
+
%% ---------------------------------------------------------------------
|
331
|
+
%% Ye olde uniq function
|
332
|
+
|
333
|
+
uniq([X, X | Xs]) -> uniq([X | Xs]);
|
334
|
+
uniq([X | Xs]) -> [X | uniq(Xs)];
|
335
|
+
uniq([]) -> [].
|
336
|
+
|
337
|
+
-ifdef(TEST).
|
338
|
+
uniq_test_() ->
|
339
|
+
{"uniq",
|
340
|
+
[?_assertError(function_clause, uniq(ok)),
|
341
|
+
?_assertError(function_clause, uniq([1|2])),
|
342
|
+
?_test([] = uniq([])),
|
343
|
+
?_test([1,2,3] = uniq([1,2,3])),
|
344
|
+
?_test([1,2,3] = uniq([1,2,2,3])),
|
345
|
+
?_test([1,2,3,2,1] = uniq([1,2,2,3,2,2,1])),
|
346
|
+
?_test([1,2,3] = uniq([1,1,1,2,2,2,3,3,3])),
|
347
|
+
?_test(["1","2","3"] = uniq(["1","1","2","2","3","3"]))
|
348
|
+
]}.
|
349
|
+
-endif.
|
350
|
+
|
351
|
+
|
352
|
+
%% ---------------------------------------------------------------------
|
353
|
+
%% Apply arbitrary unary function F with dummy arguments "until it
|
354
|
+
%% works". (F must be side effect free! It will be called repeatedly.)
|
355
|
+
%% No exceptions will be thrown unless the function actually crashes for
|
356
|
+
%% some other reason than being unable to match the argument.
|
357
|
+
|
358
|
+
%% @spec (F::(any()) -> any()) -> {Value::any(), Result::any()}
|
359
|
+
|
360
|
+
browse_fun(F) ->
|
361
|
+
browse_fun(F, arg_values()).
|
362
|
+
|
363
|
+
browse_fun(F, Next) ->
|
364
|
+
case Next() of
|
365
|
+
[V | Next1] ->
|
366
|
+
case try_apply(F, V) of
|
367
|
+
{ok, Result} ->
|
368
|
+
{V, Result};
|
369
|
+
{error, function_clause} ->
|
370
|
+
browse_fun(F, Next1);
|
371
|
+
{error, badarity} ->
|
372
|
+
erlang:error({badarity, {F, 1}});
|
373
|
+
{error, {Class, Reason, Trace}} ->
|
374
|
+
erlang:raise(Class, Reason, Trace)
|
375
|
+
end;
|
376
|
+
[] ->
|
377
|
+
%% tried everything - this ought to provoke an error
|
378
|
+
F(undefined)
|
379
|
+
end.
|
380
|
+
|
381
|
+
%% Apply argument to function and report whether it succeeded (and with
|
382
|
+
%% what return value), or failed due to bad arity or a simple top-level
|
383
|
+
%% function_clause error, or if it crashed in some other way.
|
384
|
+
|
385
|
+
%% @spec (F::(any()) -> any(), V::any()) ->
|
386
|
+
%% {ok, Result::any()}
|
387
|
+
%% | {error, function_clause | badarity | eunit_test:exception()}
|
388
|
+
|
389
|
+
try_apply(F, Arg) ->
|
390
|
+
case erlang:fun_info(F, arity) of
|
391
|
+
{arity, 1} ->
|
392
|
+
{module, M} = erlang:fun_info(F, module),
|
393
|
+
{name, N} = erlang:fun_info(F, name),
|
394
|
+
try_apply(F, Arg, M, N);
|
395
|
+
_ ->
|
396
|
+
{error, badarity}
|
397
|
+
end.
|
398
|
+
|
399
|
+
try_apply(F, Arg, M, N) ->
|
400
|
+
try F(Arg) of
|
401
|
+
X -> {ok, X}
|
402
|
+
catch
|
403
|
+
error:function_clause ->
|
404
|
+
case erlang:get_stacktrace() of
|
405
|
+
[{M, N, _Args} | _] ->
|
406
|
+
{error, function_clause};
|
407
|
+
Trace ->
|
408
|
+
{error, {error, function_clause, Trace}}
|
409
|
+
end;
|
410
|
+
Class:Reason ->
|
411
|
+
{error, {Class, Reason, erlang:get_stacktrace()}}
|
412
|
+
end.
|
413
|
+
|
414
|
+
%% test value producers for function browsing
|
415
|
+
|
416
|
+
arg_values() ->
|
417
|
+
Vs = [undefined, ok, true, false, 0, 1],
|
418
|
+
fun () -> arg_values(Vs) end.
|
419
|
+
|
420
|
+
arg_values([V | Vs]) ->
|
421
|
+
[V | fun () -> arg_values(Vs) end];
|
422
|
+
arg_values(_) ->
|
423
|
+
(arg_tuples())().
|
424
|
+
|
425
|
+
arg_tuples() ->
|
426
|
+
fun () -> arg_tuples(0) end.
|
427
|
+
|
428
|
+
arg_tuples(N) when N >= 0, N =< 12 ->
|
429
|
+
[erlang:make_tuple(N, undefined) | fun () -> arg_tuples(N + 1) end];
|
430
|
+
arg_tuples(_) ->
|
431
|
+
(arg_lists())().
|
432
|
+
|
433
|
+
arg_lists() ->
|
434
|
+
fun () -> arg_lists(0) end.
|
435
|
+
|
436
|
+
arg_lists(N) when N >= 0, N =< 12 ->
|
437
|
+
[lists:duplicate(N, undefined) | fun () -> arg_lists(N + 1) end];
|
438
|
+
arg_lists(_) ->
|
439
|
+
[].
|
440
|
+
|
441
|
+
-ifdef(TEST).
|
442
|
+
browse_fun_test_() ->
|
443
|
+
{"browsing funs",
|
444
|
+
[?_assertError({badarity, {_, 1}}, browse_fun(fun () -> ok end)),
|
445
|
+
?_assertError({badarity, {_, 1}}, browse_fun(fun (_,_) -> ok end)),
|
446
|
+
?_assertError(function_clause, browse_fun(fun (42) -> ok end)),
|
447
|
+
?_test({_, 17} = browse_fun(fun (_) -> 17 end)),
|
448
|
+
?_test({_, 17} = browse_fun(fun (undefined) -> 17 end)),
|
449
|
+
?_test({_, 17} = browse_fun(fun (ok) -> 17 end)),
|
450
|
+
?_test({_, 17} = browse_fun(fun (true) -> 17 end)),
|
451
|
+
?_test({_, 17} = browse_fun(fun ({}) -> 17 end)),
|
452
|
+
?_test({_, 17} = browse_fun(fun ({_}) -> 17 end)),
|
453
|
+
?_test({_, 17} = browse_fun(fun ({_,_}) -> 17 end)),
|
454
|
+
?_test({_, 17} = browse_fun(fun ({_,_,_}) -> 17 end)),
|
455
|
+
?_test({_, 17} = browse_fun(fun ([]) -> 17 end)),
|
456
|
+
?_test({_, 17} = browse_fun(fun ([_]) -> 17 end)),
|
457
|
+
?_test({_, 17} = browse_fun(fun ([_,_]) -> 17 end)),
|
458
|
+
?_test({_, 17} = browse_fun(fun ([_,_,_]) -> 17 end))
|
459
|
+
]}.
|
460
|
+
-endif.
|
461
|
+
|
462
|
+
|
463
|
+
%% ---------------------------------------------------------------------
|
464
|
+
%% Replacement for os:cmd
|
465
|
+
|
466
|
+
command(Cmd) ->
|
467
|
+
command(Cmd, "").
|
468
|
+
|
469
|
+
command(Cmd, Dir) ->
|
470
|
+
command(Cmd, Dir, []).
|
471
|
+
|
472
|
+
command(Cmd, Dir, Env) ->
|
473
|
+
CD = if Dir == "" -> [];
|
474
|
+
true -> [{cd, Dir}]
|
475
|
+
end,
|
476
|
+
SetEnv = if Env == [] -> [];
|
477
|
+
true -> [{env, Env}]
|
478
|
+
end,
|
479
|
+
Opt = CD ++ SetEnv ++ [stream, exit_status, use_stdio,
|
480
|
+
stderr_to_stdout, in, eof],
|
481
|
+
P = open_port({spawn, Cmd}, Opt),
|
482
|
+
get_data(P, []).
|
483
|
+
|
484
|
+
get_data(P, D) ->
|
485
|
+
receive
|
486
|
+
{P, {data, D1}} ->
|
487
|
+
get_data(P, [D1|D]);
|
488
|
+
{P, eof} ->
|
489
|
+
port_close(P),
|
490
|
+
receive
|
491
|
+
{P, {exit_status, N}} ->
|
492
|
+
{N, normalize(lists:flatten(lists:reverse(D)))}
|
493
|
+
end
|
494
|
+
end.
|
495
|
+
|
496
|
+
normalize([$\r, $\n | Cs]) ->
|
497
|
+
[$\n | normalize(Cs)];
|
498
|
+
normalize([$\r | Cs]) ->
|
499
|
+
[$\n | normalize(Cs)];
|
500
|
+
normalize([C | Cs]) ->
|
501
|
+
[C | normalize(Cs)];
|
502
|
+
normalize([]) ->
|
503
|
+
[].
|
504
|
+
|
505
|
+
-ifdef(TEST).
|
506
|
+
|
507
|
+
cmd_test_() ->
|
508
|
+
([?_test({0, "hello\n"} = ?_cmd_("echo hello"))]
|
509
|
+
++ case os:type() of
|
510
|
+
{unix, _} ->
|
511
|
+
unix_cmd_tests();
|
512
|
+
{win32, _} ->
|
513
|
+
win32_cmd_tests();
|
514
|
+
_ ->
|
515
|
+
[]
|
516
|
+
end).
|
517
|
+
|
518
|
+
unix_cmd_tests() ->
|
519
|
+
[{"command execution, status, and output",
|
520
|
+
[?_cmd("echo hello"),
|
521
|
+
?_assertCmdStatus(0, "true"),
|
522
|
+
?_assertCmdStatus(1, "false"),
|
523
|
+
?_assertCmd("true"),
|
524
|
+
?_assertCmdOutput("hello\n", "echo hello"),
|
525
|
+
?_assertCmdOutput("hello", "echo -n hello")
|
526
|
+
]},
|
527
|
+
{"file setup and cleanup",
|
528
|
+
setup,
|
529
|
+
fun () -> ?cmd("mktemp tmp.XXXXXXXX") end,
|
530
|
+
fun (File) -> ?cmd("rm " ++ File) end,
|
531
|
+
fun (File) ->
|
532
|
+
[?_assertCmd("echo xyzzy >" ++ File),
|
533
|
+
?_assertCmdOutput("xyzzy\n", "cat " ++ File)]
|
534
|
+
end}
|
535
|
+
].
|
536
|
+
|
537
|
+
win32_cmd_tests() ->
|
538
|
+
[{"command execution, status, and output",
|
539
|
+
[?_cmd("echo hello"),
|
540
|
+
?_assertCmdOutput("hello\n", "echo hello")
|
541
|
+
]}
|
542
|
+
].
|
543
|
+
|
544
|
+
-endif. % TEST
|
545
|
+
|
546
|
+
|
547
|
+
%% ---------------------------------------------------------------------
|
548
|
+
%% Wrapper around file:path_consult
|
549
|
+
|
550
|
+
%% @throws {file_read_error, {Reason::atom(), Message::string(),
|
551
|
+
%% fileName()}}
|
552
|
+
|
553
|
+
consult_file(File) ->
|
554
|
+
case file:path_consult(["."]++code:get_path(), File) of
|
555
|
+
{ok, Data, _Path} ->
|
556
|
+
Data;
|
557
|
+
{error, Reason} ->
|
558
|
+
Msg = file:format_error(Reason),
|
559
|
+
throw({file_read_error, {Reason, Msg, File}})
|
560
|
+
end.
|
561
|
+
|
562
|
+
%% ---------------------------------------------------------------------
|
563
|
+
%% Wrapper around file:list_dir
|
564
|
+
|
565
|
+
%% @throws {file_read_error, {Reason::atom(), Message::string(),
|
566
|
+
%% fileName()}}
|
567
|
+
|
568
|
+
list_dir(Dir) ->
|
569
|
+
case file:list_dir(Dir) of
|
570
|
+
{ok, Fs} ->
|
571
|
+
Fs;
|
572
|
+
{error, Reason} ->
|
573
|
+
Msg = file:format_error(Reason),
|
574
|
+
throw({file_read_error, {Reason, Msg, Dir}})
|
575
|
+
end.
|
576
|
+
|
577
|
+
%% ---------------------------------------------------------------------
|
578
|
+
%% A trie for remembering and checking least specific cancelled events
|
579
|
+
%% (an empty list `[]' simply represents a stored empty list, i.e., all
|
580
|
+
%% events will match, while an empty tree means that no events match).
|
581
|
+
|
582
|
+
trie_new() ->
|
583
|
+
gb_trees:empty().
|
584
|
+
|
585
|
+
trie_store([_ | _], []) ->
|
586
|
+
[];
|
587
|
+
trie_store([E | Es], T) ->
|
588
|
+
case gb_trees:lookup(E, T) of
|
589
|
+
none ->
|
590
|
+
if Es == [] ->
|
591
|
+
gb_trees:insert(E, [], T);
|
592
|
+
true ->
|
593
|
+
gb_trees:insert(E, trie_store(Es, gb_trees:empty()),
|
594
|
+
T)
|
595
|
+
end;
|
596
|
+
{value, []} ->
|
597
|
+
T; %% prefix already stored
|
598
|
+
{value, T1} ->
|
599
|
+
gb_trees:update(E, trie_store(Es, T1), T)
|
600
|
+
end;
|
601
|
+
trie_store([], _T) ->
|
602
|
+
[].
|
603
|
+
|
604
|
+
trie_match([_ | _], []) ->
|
605
|
+
prefix;
|
606
|
+
trie_match([E | Es], T) ->
|
607
|
+
case gb_trees:lookup(E, T) of
|
608
|
+
none ->
|
609
|
+
no;
|
610
|
+
{value, []} ->
|
611
|
+
if Es == [] -> exact;
|
612
|
+
true -> prefix
|
613
|
+
end;
|
614
|
+
{value, T1} ->
|
615
|
+
trie_match(Es, T1)
|
616
|
+
end;
|
617
|
+
trie_match([], []) ->
|
618
|
+
exact;
|
619
|
+
trie_match([], _T) ->
|
620
|
+
no.
|
621
|
+
|
622
|
+
-ifdef(TEST).
|
623
|
+
|
624
|
+
trie_test_() ->
|
625
|
+
[{"basic representation",
|
626
|
+
[?_assert(trie_new() == gb_trees:empty()),
|
627
|
+
?_assert(trie_store([1], trie_new())
|
628
|
+
== gb_trees:insert(1, [], gb_trees:empty())),
|
629
|
+
?_assert(trie_store([1,2], trie_new())
|
630
|
+
== gb_trees:insert(1,
|
631
|
+
gb_trees:insert(2, [],
|
632
|
+
gb_trees:empty()),
|
633
|
+
gb_trees:empty())),
|
634
|
+
?_assert([] == trie_store([1], [])),
|
635
|
+
?_assert([] == trie_store([], gb_trees:empty()))
|
636
|
+
]},
|
637
|
+
{"basic storing and matching",
|
638
|
+
[?_test(no = trie_match([], trie_new())),
|
639
|
+
?_test(exact = trie_match([], trie_store([], trie_new()))),
|
640
|
+
?_test(no = trie_match([], trie_store([1], trie_new()))),
|
641
|
+
?_test(exact = trie_match([1], trie_store([1], trie_new()))),
|
642
|
+
?_test(prefix = trie_match([1,2], trie_store([1], trie_new()))),
|
643
|
+
?_test(no = trie_match([1], trie_store([1,2], trie_new()))),
|
644
|
+
?_test(no = trie_match([1,3], trie_store([1,2], trie_new()))),
|
645
|
+
?_test(exact = trie_match([1,2,3,4,5],
|
646
|
+
trie_store([1,2,3,4,5], trie_new()))),
|
647
|
+
?_test(prefix = trie_match([1,2,3,4,5],
|
648
|
+
trie_store([1,2,3], trie_new()))),
|
649
|
+
?_test(no = trie_match([1,2,2,4,5],
|
650
|
+
trie_store([1,2,3], trie_new())))
|
651
|
+
]},
|
652
|
+
{"matching with partially overlapping patterns",
|
653
|
+
setup,
|
654
|
+
fun () ->
|
655
|
+
trie_store([1,3,2], trie_store([1,2,3], trie_new()))
|
656
|
+
end,
|
657
|
+
fun (T) ->
|
658
|
+
[?_test(no = trie_match([], T)),
|
659
|
+
?_test(no = trie_match([1], T)),
|
660
|
+
?_test(no = trie_match([1,2], T)),
|
661
|
+
?_test(no = trie_match([1,3], T)),
|
662
|
+
?_test(exact = trie_match([1,2,3], T)),
|
663
|
+
?_test(exact = trie_match([1,3,2], T)),
|
664
|
+
?_test(no = trie_match([1,2,2], T)),
|
665
|
+
?_test(no = trie_match([1,3,3], T)),
|
666
|
+
?_test(prefix = trie_match([1,2,3,4], T)),
|
667
|
+
?_test(prefix = trie_match([1,3,2,1], T))]
|
668
|
+
end},
|
669
|
+
{"matching with more general pattern overriding less general",
|
670
|
+
setup,
|
671
|
+
fun () -> trie_store([1], trie_store([1,2,3], trie_new())) end,
|
672
|
+
fun (_) -> ok end,
|
673
|
+
fun (T) ->
|
674
|
+
[?_test(no = trie_match([], T)),
|
675
|
+
?_test(exact = trie_match([1], T)),
|
676
|
+
?_test(prefix = trie_match([1,2], T)),
|
677
|
+
?_test(prefix = trie_match([1,2,3], T)),
|
678
|
+
?_test(prefix = trie_match([1,2,3,4], T))]
|
679
|
+
end}
|
680
|
+
].
|
681
|
+
|
682
|
+
-endif. % TEST
|