redfish 0.2.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 63a5f49ae9aec43ee289df618ae519ab02fd1fa7
+  data.tar.gz: ed3f6ee4c6682869fbf9647b2f87b5bb2a0a4406
+SHA512:
+  metadata.gz: 6eac43b7b5d6cea1854c1f8e4b61b316fd62e3408a40ae64d8065cc27103a3c754754660df373df70bee7aa9745890ca6f74c074c28e1b6083fcb89b1c87333e
+  data.tar.gz: b07ac9074eba420a45bb63adae6b0286f211fd27d67a43009027bde6a8bf74437a137aa356fe8521c18409cc074309b82053a009030bbdfd2900fdf1b817cc72

data/.gitattributes

@@ -0,0 +1,30 @@
+* -text
+*.iml text -crlf -binary
+*.axl text -crlf -binary
+*.c text -crlf -binary
+*.css text -crlf -binary
+*.html text -crlf -binary
+*.java text -crlf -binary
+*.js text -crlf -binary
+*.json text -crlf -binary
+*.jsp text -crlf -binary
+*.properties text -crlf -binary
+*.txt text -crlf -binary
+*.xml text -crlf -binary
+*.xsd text -crlf -binary
+*.xsl text -crlf -binary
+*.rb text -crlf -binary
+*.haml text -crlf -binary
+*.rake text -crlf -binary
+*.sass text -crlf -binary
+*.yml text -crlf -binary
+*.yaml text -crlf -binary
+*.rhtml text -crlf -binary
+*.jar binary
+LICENSE text -crlf -binary
+CHANGELOG text -crlf -binary
+Rakefile text -crlf -binary
+rakefile text -crlf -binary
+Buildfile text -crlf -binary
+buildfile text -crlf -binary
+*.gemspec text -crlf -binary

data/.gitignore

@@ -0,0 +1,9 @@
+.idea
+pkg
+pkg/*
+rdoc
+/*.iml
+/*.ipr
+/*.iws
+/Gemfile.lock
+/.rakeTasks

data/.ruby-version

@@ -0,0 +1 @@
+2.1.3

data/.travis.yml

@@ -0,0 +1,17 @@
+language: ruby
+rvm:
+  - 2.0.0
+  - 1.9.3
+  - jruby-19mode
+jdk:
+  - openjdk6
+  - openjdk7
+  - oraclejdk7
+matrix:
+  exclude:
+  - rvm: 1.9.3
+    jdk: openjdk7
+  - rvm: 1.9.2
+    jdk: oraclejdk7
+git:
+  depth: 10

data/CONTRIBUTING.md

@@ -0,0 +1,26 @@
+# How to Contribute
+
+Pull requests are greatly appreciated and are what makes opensource great. Here's a quick guide:
+
+* Fork it
+* Create your feature branch (`git checkout -b my-new-feature`)
+* Commit your changes (`git commit -am 'Add some feature'`)
+* Push to the branch (`git push origin my-new-feature`)
+* Create new Pull Request
+
+Pester us if we don't get your Pull Requests merged in a timely fashion. :)
+
+## How to speed the merging of pull requests
+
+* Describe your changes in the CHANGELOG.
+* Give yourself some credit in the appropriate place (usually the CHANGELOG).
+* Make commits of logical units.
+* Ensure your commit messages help others understand what you are doing and why.
+* Check for unnecessary whitespace with `git diff --check` before committing.
+* Maintain the same code style.
+* Maintain the same level of test coverage or improve it.
+
+## Additional Resources
+
+* [General GitHub documentation](http://help.github.com/)
+* [GitHub pull request documentation](http://help.github.com/send-pull-requests/)

data/Gemfile

@@ -0,0 +1,6 @@
+source 'http://rubygems.org'
+
+gemspec
+
+gem 'rake'
+gem 'rubyzip', '= 0.9.9'

data/LICENSE

@@ -0,0 +1,201 @@
+                              Apache License
+                        Version 2.0, January 2004
+                     http://www.apache.org/licenses/
+
+TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+1. Definitions.
+
+   "License" shall mean the terms and conditions for use, reproduction,
+   and distribution as defined by Sections 1 through 9 of this document.
+
+   "Licensor" shall mean the copyright owner or entity authorized by
+   the copyright owner that is granting the License.
+
+   "Legal Entity" shall mean the union of the acting entity and all
+   other entities that control, are controlled by, or are under common
+   control with that entity. For the purposes of this definition,
+   "control" means (i) the power, direct or indirect, to cause the
+   direction or management of such entity, whether by contract or
+   otherwise, or (ii) ownership of fifty percent (50%) or more of the
+   outstanding shares, or (iii) beneficial ownership of such entity.
+
+   "You" (or "Your") shall mean an individual or Legal Entity
+   exercising permissions granted by this License.
+
+   "Source" form shall mean the preferred form for making modifications,
+   including but not limited to software source code, documentation
+   source, and configuration files.
+
+   "Object" form shall mean any form resulting from mechanical
+   transformation or translation of a Source form, including but
+   not limited to compiled object code, generated documentation,
+   and conversions to other media types.
+
+   "Work" shall mean the work of authorship, whether in Source or
+   Object form, made available under the License, as indicated by a
+   copyright notice that is included in or attached to the work
+   (an example is provided in the Appendix below).
+
+   "Derivative Works" shall mean any work, whether in Source or Object
+   form, that is based on (or derived from) the Work and for which the
+   editorial revisions, annotations, elaborations, or other modifications
+   represent, as a whole, an original work of authorship. For the purposes
+   of this License, Derivative Works shall not include works that remain
+   separable from, or merely link (or bind by name) to the interfaces of,
+   the Work and Derivative Works thereof.
+
+   "Contribution" shall mean any work of authorship, including
+   the original version of the Work and any modifications or additions
+   to that Work or Derivative Works thereof, that is intentionally
+   submitted to Licensor for inclusion in the Work by the copyright owner
+   or by an individual or Legal Entity authorized to submit on behalf of
+   the copyright owner. For the purposes of this definition, "submitted"
+   means any form of electronic, verbal, or written communication sent
+   to the Licensor or its representatives, including but not limited to
+   communication on electronic mailing lists, source code control systems,
+   and issue tracking systems that are managed by, or on behalf of, the
+   Licensor for the purpose of discussing and improving the Work, but
+   excluding communication that is conspicuously marked or otherwise
+   designated in writing by the copyright owner as "Not a Contribution."
+
+   "Contributor" shall mean Licensor and any individual or Legal Entity
+   on behalf of whom a Contribution has been received by Licensor and
+   subsequently incorporated within the Work.
+
+2. Grant of Copyright License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   copyright license to reproduce, prepare Derivative Works of,
+   publicly display, publicly perform, sublicense, and distribute the
+   Work and such Derivative Works in Source or Object form.
+
+3. Grant of Patent License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   (except as stated in this section) patent license to make, have made,
+   use, offer to sell, sell, import, and otherwise transfer the Work,
+   where such license applies only to those patent claims licensable
+   by such Contributor that are necessarily infringed by their
+   Contribution(s) alone or by combination of their Contribution(s)
+   with the Work to which such Contribution(s) was submitted. If You
+   institute patent litigation against any entity (including a
+   cross-claim or counterclaim in a lawsuit) alleging that the Work
+   or a Contribution incorporated within the Work constitutes direct
+   or contributory patent infringement, then any patent licenses
+   granted to You under this License for that Work shall terminate
+   as of the date such litigation is filed.
+
+4. Redistribution. You may reproduce and distribute copies of the
+   Work or Derivative Works thereof in any medium, with or without
+   modifications, and in Source or Object form, provided that You
+   meet the following conditions:
+
+   (a) You must give any other recipients of the Work or
+       Derivative Works a copy of this License; and
+
+   (b) You must cause any modified files to carry prominent notices
+       stating that You changed the files; and
+
+   (c) You must retain, in the Source form of any Derivative Works
+       that You distribute, all copyright, patent, trademark, and
+       attribution notices from the Source form of the Work,
+       excluding those notices that do not pertain to any part of
+       the Derivative Works; and
+
+   (d) If the Work includes a "NOTICE" text file as part of its
+       distribution, then any Derivative Works that You distribute must
+       include a readable copy of the attribution notices contained
+       within such NOTICE file, excluding those notices that do not
+       pertain to any part of the Derivative Works, in at least one
+       of the following places: within a NOTICE text file distributed
+       as part of the Derivative Works; within the Source form or
+       documentation, if provided along with the Derivative Works; or,
+       within a display generated by the Derivative Works, if and
+       wherever such third-party notices normally appear. The contents
+       of the NOTICE file are for informational purposes only and
+       do not modify the License. You may add Your own attribution
+       notices within Derivative Works that You distribute, alongside
+       or as an addendum to the NOTICE text from the Work, provided
+       that such additional attribution notices cannot be construed
+       as modifying the License.
+
+   You may add Your own copyright statement to Your modifications and
+   may provide additional or different license terms and conditions
+   for use, reproduction, or distribution of Your modifications, or
+   for any such Derivative Works as a whole, provided Your use,
+   reproduction, and distribution of the Work otherwise complies with
+   the conditions stated in this License.
+
+5. Submission of Contributions. Unless You explicitly state otherwise,
+   any Contribution intentionally submitted for inclusion in the Work
+   by You to the Licensor shall be under the terms and conditions of
+   this License, without any additional terms or conditions.
+   Notwithstanding the above, nothing herein shall supersede or modify
+   the terms of any separate license agreement you may have executed
+   with Licensor regarding such Contributions.
+
+6. Trademarks. This License does not grant permission to use the trade
+   names, trademarks, service marks, or product names of the Licensor,
+   except as required for reasonable and customary use in describing the
+   origin of the Work and reproducing the content of the NOTICE file.
+
+7. Disclaimer of Warranty. Unless required by applicable law or
+   agreed to in writing, Licensor provides the Work (and each
+   Contributor provides its Contributions) on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+   implied, including, without limitation, any warranties or conditions
+   of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+   PARTICULAR PURPOSE. You are solely responsible for determining the
+   appropriateness of using or redistributing the Work and assume any
+   risks associated with Your exercise of permissions under this License.
+
+8. Limitation of Liability. In no event and under no legal theory,
+   whether in tort (including negligence), contract, or otherwise,
+   unless required by applicable law (such as deliberate and grossly
+   negligent acts) or agreed to in writing, shall any Contributor be
+   liable to You for damages, including any direct, indirect, special,
+   incidental, or consequential damages of any character arising as a
+   result of this License or out of the use or inability to use the
+   Work (including but not limited to damages for loss of goodwill,
+   work stoppage, computer failure or malfunction, or any and all
+   other commercial damages or losses), even if such Contributor
+   has been advised of the possibility of such damages.
+
+9. Accepting Warranty or Additional Liability. While redistributing
+   the Work or Derivative Works thereof, You may choose to offer,
+   and charge a fee for, acceptance of support, warranty, indemnity,
+   or other liability obligations and/or rights consistent with this
+   License. However, in accepting such obligations, You may act only
+   on Your own behalf and on Your sole responsibility, not on behalf
+   of any other Contributor, and only if You agree to indemnify,
+   defend, and hold each Contributor harmless for any liability
+   incurred by, or claims asserted against, such Contributor by reason
+   of your accepting any such warranty or additional liability.
+
+END OF TERMS AND CONDITIONS
+
+APPENDIX: How to apply the Apache License to your work.
+
+   To apply the Apache License to your work, attach the following
+   boilerplate notice, with the fields enclosed by brackets "[]"
+   replaced with your own identifying information. (Don't include
+   the brackets!)  The text should be enclosed in the appropriate
+   comment syntax for the file format. We also recommend that a
+   file or class name and description of purpose be included on the
+   same "printed page" as the copyright notice for easier
+   identification within third-party archives.
+
+Copyright [yyyy] [name of copyright owner]
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

data/README.md

@@ -0,0 +1,5 @@
+# Redfish
+
+[![Build Status](https://secure.travis-ci.org/realityforge/redfish.png?branch=master)](http://travis-ci.org/realityforge/redfish)
+
+Redfish is a lightweight ruby library for configuring GlassFish or Payara servers.

data/Rakefile

@@ -0,0 +1,18 @@
+require 'bundler'
+Bundler::GemHelper.install_tasks
+
+require 'rake'
+require 'rubygems/package_task'
+require 'rake/testtask'
+
+desc 'Default Task'
+task :default => :test
+
+desc 'Test Task'
+Rake::TestTask.new do |t|
+  files = FileList['test/helper.rb', 'test/test_*.rb', 'test/*/test_*.rb']
+  t.loader = :rake
+  t.test_files = files
+  t.libs << '.'
+  t.warning = true
+end

data/lib/redfish.rb

@@ -0,0 +1,10 @@
+require 'etc'
+
+require 'redfish/version'
+require 'redfish/property_cache'
+require 'redfish/context'
+require 'redfish/executor'
+require 'redfish/task'
+
+require 'redfish/tasks/property_cache'
+require 'redfish/tasks/property'

data/lib/redfish/context.rb

@@ -0,0 +1,65 @@
+module Redfish
+  class Context
+    # The directory in which glassfish has been installed.
+    attr_reader :install_dir
+
+    # The name of the domain.
+    attr_reader :domain_name
+    # The port on which the management application is bound.
+    attr_reader :domain_admin_port
+    # If true use SSL when communicating with the domain for administration. Assumes the domain is in secure mode.
+    attr_reader :domain_secure
+    # The username to use when communicating with the domain.
+    attr_reader :domain_username
+    # The password file used when connecting to glassfish.
+    attr_reader :domain_password_file
+
+    # Use terse output from the underlying asadmin.
+    def terse?
+      !!@terse
+    end
+
+    #If true, echo commands supplied to asadmin.
+    def echo?
+      !!@echo
+    end
+
+    # The user that the asadmin command executes as.
+    attr_reader :system_user
+    # The group that the asadmin command executes as.
+    attr_reader :system_group
+
+    def initialize(executor, install_dir, domain_name, domain_admin_port, domain_secure, domain_username, domain_password_file, options = {})
+      @executor, @install_dir, @domain_name, @domain_admin_port, @domain_secure, @domain_username, @domain_password_file =
+        executor, install_dir, domain_name, domain_admin_port, domain_secure, domain_username, domain_password_file
+      @echo = options[:echo].nil? ? false : !!options[:echo]
+      @terse = options[:terse].nil? ? false : !!options[:terse]
+      @system_user = options[:system_user]
+      @system_group = options[:system_group]
+      @property_cache = nil
+    end
+
+    def property_cache?
+      !@property_cache.nil?
+    end
+
+    def property_cache
+      raise 'Property cache not defined' unless property_cache?
+      @property_cache
+    end
+
+    def cache_properties(properties)
+      raise 'Property cache already defined' if property_cache?
+      @property_cache = PropertyCache.new(properties)
+    end
+
+    def remove_property_cache
+      raise 'No property cache to remove' unless property_cache?
+      @property_cache = nil
+    end
+
+    def exec(asadmin_command, args, options = {})
+      @executor.exec(self, asadmin_command, args, options)
+    end
+  end
+end

data/lib/redfish/executor.rb

@@ -0,0 +1,65 @@
+module Redfish
+  class Executor
+    def exec(context, asadmin_command, args = [], options = {})
+      raise 'args should be an array' unless args.is_a?(Array)
+
+      cmd = build_command(context, asadmin_command, args, options)
+
+      output = nil
+      IO.popen(cmd,'r') do |pipe|
+        output = pipe.read
+      end
+
+      raise "Asadmin command failed #{asadmin_command} with exist status #{last_exitstatus}" if 0 != last_exitstatus
+      output
+    end
+
+    private
+
+    def last_exitstatus
+      $?.exitstatus
+    end
+
+    def build_command(context, asadmin_command, args, options)
+      cmd = []
+
+      if needs_user_change?(context)
+        cmd << '/usr/bin/sudo'
+        cmd << '-u' << context.system_user.to_s unless context.system_user.nil?
+        cmd << '-g' << context.system_group.to_s unless context.system_group.nil?
+      end
+
+      cmd << asadmin_script(context)
+      cmd += asadmin_command_prefix(context, options)
+      cmd << asadmin_command
+      cmd += args
+
+      cmd
+    end
+
+    def needs_user_change?(context)
+      (context.system_user.nil? ? false : Etc.getlogin.to_s != context.system_user.to_s) ||
+        (context.system_group.nil? ? false : Etc.group.name.to_s != context.system_group.to_s)
+    end
+
+    def asadmin_command_prefix(context, options = {})
+      terse = options[:terse].nil? ? context.terse? : options[:terse]
+      echo = options[:echo].nil? ? context.echo? : options[:echo]
+      remote_command = options[:remote_command].nil? || !!options[:remote_command]
+
+      args = []
+      args << "--terse=#{terse}"
+      args << "--echo=#{echo}"
+      args << '--user' << context.domain_username.to_s if context.domain_username
+      args << "--passwordfile=#{context.domain_password_file}" if context.domain_password_file
+      if remote_command
+        args << '--secure' if context.domain_secure
+        args << '--port' <<  context.domain_admin_port.to_s
+      end
+    end
+
+    def asadmin_script(context)
+      "#{context.install_dir}/glassfish/bin/asadmin"
+    end
+  end
+end

data/lib/redfish/property_cache.rb

@@ -0,0 +1,31 @@
+module Redfish
+  class PropertyCache
+
+    def initialize(properties)
+      @properties = properties.dup
+    end
+
+    def any_property_start_with?(prefix)
+      regex = /^#{Regexp.escape(prefix)}/
+      raw_properties.keys.any? { |k| k =~ regex }
+    end
+
+    def []=(key, value)
+      raw_properties[key] = value
+    end
+
+    def [](key)
+      raw_properties[key] || ''
+    end
+
+    def properties
+      raw_properties.dup
+    end
+
+    private
+
+    def raw_properties
+      @properties
+    end
+  end
+end

data/lib/redfish/task.rb

@@ -0,0 +1,70 @@
+module Redfish
+  module MetaDataHelper
+    def self.included(base)
+      class << base
+
+        def action(key, &block)
+          define_method("perform_#{key}") do
+            instance_eval(&block)
+          end
+        end
+
+        def attribute(key, options)
+          define_method("#{key}=") do |value|
+            kind_of = ([options[:kind_of]] || []).compact.flatten
+            if !kind_of.empty? && !kind_of.any?{|k| value.is_a?(k)}
+              raise "Invalid value passed to attribute '#{key}' expected to be one of #{kind_of.inspect} but is of type #{value.class.name}"
+            end
+            equal_to = options[:equal_to] || []
+            if !equal_to.empty? && !equal_to.any?{|v| value == v}
+              raise "Invalid value passed to attribute '#{key}' expected to be one of #{equal_to.inspect} but is #{value.inspect}"
+            end
+            instance_variable_set("@#{key}", value)
+          end
+
+          define_method(key) do
+            if instance_variable_defined?("@#{key}")
+              instance_variable_get("@#{key}")
+            elsif !options[:required].nil? && options[:required]
+              raise "Required attribute '#{key}' not specified"
+            else
+              options[:default]
+            end
+          end
+        end
+      end
+    end
+  end
+
+  class Task
+    include MetaDataHelper
+
+    attr_writer :context
+
+    def initialize
+      @updated_by_last_action = false
+      yield self if block_given?
+    end
+
+    def context
+      raise 'No context associated with task' unless @context
+      @context
+    end
+
+    def perform_action(action)
+      method_name = "perform_#{action}"
+      raise "No such action #{action}" unless self.respond_to?(method_name)
+      self.send method_name
+    end
+
+    def updated_by_last_action?
+      !!@updated_by_last_action
+    end
+
+    protected
+
+    def updated_by_last_action
+      @updated_by_last_action = true
+    end
+  end
+end

data/lib/redfish/tasks/property.rb

@@ -0,0 +1,25 @@
+module Redfish
+  module Tasks
+    class Property < Task
+
+      attribute :key, :kind_of => String, :required => true
+      attribute :value, :kind_of => String, :required => true
+
+      private
+
+      action :set do
+        cache_present = context.property_cache?
+        may_need_update = cache_present ? self.value != context.property_cache[self.key] : true
+        if may_need_update
+          if cache_present || !(/^#{Regexp.escape("#{self.key}=#{self.value}")}$/ =~ context.exec('get', ["#{self.key}"], :terse => true, :echo => false))
+            context.exec('set', ["#{self.key}=#{self.value}"], :terse => true, :echo => false)
+            updated_by_last_action
+            if cache_present
+              context.property_cache[self.key] = self.value
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/redfish/tasks/property_cache.rb

@@ -0,0 +1,41 @@
+module Redfish
+  module Tasks
+    class PropertyCache < Task
+
+      private
+
+      action :create do
+        output = context.exec('get', %w(*), :terse => true, :echo => false)
+
+        properties = {}
+        output.split("\n").each do |line|
+          index = line.index('=')
+          key = line[0, index]
+          value = line[index + 1, line.size]
+          properties[key] = value
+        end
+
+        skip = false
+        if context.property_cache?
+          if context.property_cache.properties != properties
+            context.remove_property_cache
+          else
+            skip = true
+          end
+        end
+
+        unless skip
+          context.cache_properties(properties)
+          updated_by_last_action
+        end
+      end
+
+      action :destroy do
+        if context.property_cache?
+          context.remove_property_cache
+          updated_by_last_action
+        end
+      end
+    end
+  end
+end

data/lib/redfish/version.rb

@@ -0,0 +1,3 @@
+module Redfish
+  VERSION = '0.2.1'
+end

data/redfish.gemspec

@@ -0,0 +1,30 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path('../lib', __FILE__)
+require 'redfish/version'
+
+Gem::Specification.new do |s|
+  s.name               = %q{redfish}
+  s.version            = Redfish::VERSION
+  s.platform           = Gem::Platform::RUBY
+
+  s.authors            = ['Peter Donald']
+  s.email              = %q{peter@realityforge.org}
+
+  s.homepage           = %q{https://github.com/realityforge/redfish}
+  s.summary            = %q{A lightweight library for configuring GlassFish/Payara servers.}
+  s.description        = %q{A lightweight library for configuring GlassFish/Payara servers.}
+
+  s.rubyforge_project  = %q{redfish}
+
+  s.files              = `git ls-files`.split("\n")
+  s.test_files         = `git ls-files -- {spec}/*`.split("\n")
+  s.executables        = `git ls-files -- bin/*`.split("\n").map { |f| File.basename(f) }
+  s.default_executable = []
+  s.require_paths      = %w(lib)
+
+  s.has_rdoc           = false
+  s.rdoc_options       = %w(--line-numbers --inline-source --title redfish)
+
+  s.add_development_dependency(%q<minitest>, ['= 5.0.2'])
+  s.add_development_dependency(%q<mocha>, ['= 0.14.0'])
+end

data/test/helper.rb

@@ -0,0 +1,16 @@
+$:.unshift File.expand_path('../../lib', __FILE__)
+
+require 'minitest/autorun'
+require 'test/unit/assertions'
+require 'mocha/setup'
+require 'redfish'
+
+class Redfish::TestCase < Minitest::Test
+  include Test::Unit::Assertions
+
+  def setup
+  end
+
+  def teardown
+  end
+end

data/test/tasks/test_property.rb

@@ -0,0 +1,69 @@
+require File.expand_path('../../helper', __FILE__)
+
+class Redfish::Tasks::TestProperty < Redfish::TestCase
+  def test_property_no_cache_and_not_set
+    executor = Redfish::Executor.new
+    t = new_property(executor)
+
+    executor.expects(:exec).with(equals(t.context),equals('get'),equals(%w(configs.config.server-config.security-service.activate-default-principal-to-role-mapping)),equals(:terse => true, :echo => false)).returns('')
+    executor.expects(:exec).with(equals(t.context),equals('set'),equals(%w(configs.config.server-config.security-service.activate-default-principal-to-role-mapping=true)),equals(:terse => true, :echo => false)).returns('')
+
+    t.key = 'configs.config.server-config.security-service.activate-default-principal-to-role-mapping'
+    t.value = 'true'
+    t.perform_action(:set)
+
+    assert_equal t.updated_by_last_action?, true
+  end
+
+  def test_property_no_cache_and_already_set
+    executor = Redfish::Executor.new
+    t = new_property(executor)
+
+    executor.expects(:exec).with(equals(t.context),equals('get'),equals(%w(configs.config.server-config.security-service.activate-default-principal-to-role-mapping)),equals(:terse => true, :echo => false)).returns('configs.config.server-config.security-service.activate-default-principal-to-role-mapping=true')
+
+    t.key = 'configs.config.server-config.security-service.activate-default-principal-to-role-mapping'
+    t.value = 'true'
+    t.perform_action(:set)
+
+    assert_equal t.updated_by_last_action?, false
+  end
+
+  def test_property_cache_and_not_set
+    executor = Redfish::Executor.new
+    t = new_property(executor)
+
+    t.context.cache_properties('configs.config.server-config.security-service.activate-default-principal-to-role-mapping' => 'false')
+
+    executor.expects(:exec).with(equals(t.context),equals('set'),equals(%w(configs.config.server-config.security-service.activate-default-principal-to-role-mapping=true)),equals(:terse => true, :echo => false)).returns('')
+
+    t.key = 'configs.config.server-config.security-service.activate-default-principal-to-role-mapping'
+    t.value = 'true'
+    t.perform_action(:set)
+
+    assert_equal t.updated_by_last_action?, true
+    assert_equal t.context.property_cache['configs.config.server-config.security-service.activate-default-principal-to-role-mapping'], 'true'
+  end
+
+  def test_property_cache_and_set
+    executor = Redfish::Executor.new
+    t = new_property(executor)
+
+    t.context.cache_properties('configs.config.server-config.security-service.activate-default-principal-to-role-mapping' => 'true')
+
+    t.key = 'configs.config.server-config.security-service.activate-default-principal-to-role-mapping'
+    t.value = 'true'
+    t.perform_action(:set)
+
+    assert_equal t.updated_by_last_action?, false
+  end
+
+  def new_property(executor)
+    t = Redfish::Tasks::Property.new
+    t.context = new_context(executor)
+    t
+  end
+
+  def new_context(executor)
+    Redfish::Context.new(executor, '/opt/payara-4.1.151/', 'domain1', 4848, false, 'admin', nil)
+  end
+end

data/test/tasks/test_property_cache.rb

@@ -0,0 +1,89 @@
+require File.expand_path('../../helper', __FILE__)
+
+class Redfish::Tasks::TestPropertyCache < Redfish::TestCase
+  def test_create_no_existing
+    executor = Redfish::Executor.new
+    t = new_property_cache(executor)
+
+    executor.
+      expects(:exec).
+      with(equals(t.context),equals('get'),equals(%w(*)),equals(:terse => true, :echo => false)).
+      returns("a=1\nb=2\nc.d.e=345")
+
+    assert_equal t.context.property_cache?, false
+    t.perform_action(:create)
+    assert_equal t.updated_by_last_action?, true
+    assert_equal t.context.property_cache?, true
+    assert_equal t.context.property_cache['a'], '1'
+    assert_equal t.context.property_cache['b'], '2'
+    assert_equal t.context.property_cache['c.d.e'], '345'
+  end
+
+  def test_create_existing_no_match
+    executor = Redfish::Executor.new
+    t = new_property_cache(executor)
+
+    t.context.cache_properties('a' => '-1')
+
+    executor.
+      expects(:exec).
+      with(equals(t.context),equals('get'),equals(%w(*)),equals(:terse => true, :echo => false)).
+      returns("a=1\nb=2\nc.d.e=345")
+
+    assert_equal t.context.property_cache?, true
+    t.perform_action(:create)
+    assert_equal t.updated_by_last_action?, true
+    assert_equal t.context.property_cache?, true
+    assert_equal t.context.property_cache['a'], '1'
+    assert_equal t.context.property_cache['b'], '2'
+    assert_equal t.context.property_cache['c.d.e'], '345'
+  end
+
+  def test_create_existing_match
+    executor = Redfish::Executor.new
+    t = new_property_cache(executor)
+
+    t.context.cache_properties('a' => '1', 'b' => '2', 'c.d.e' => '345')
+
+    executor.
+      expects(:exec).
+      with(equals(t.context),equals('get'),equals(%w(*)),equals(:terse => true, :echo => false)).
+      returns("a=1\nb=2\nc.d.e=345")
+
+    assert_equal t.context.property_cache?, true
+    t.perform_action(:create)
+    assert_equal t.updated_by_last_action?, false
+    assert_equal t.context.property_cache?, true
+    assert_equal t.context.property_cache['a'], '1'
+    assert_equal t.context.property_cache['b'], '2'
+    assert_equal t.context.property_cache['c.d.e'], '345'
+  end
+
+  def test_destroy
+    executor = Redfish::Executor.new
+    t = new_property_cache(executor)
+
+    t.context.cache_properties('a' => '1', 'b' => '2', 'c.d.e' => '345')
+
+    assert_equal t.context.property_cache?, true
+    t.perform_action(:destroy)
+    assert_equal t.updated_by_last_action?, true
+    assert_equal t.context.property_cache?, false
+  end
+
+  def test_destroy_no_existing
+    executor = Redfish::Executor.new
+    t = new_property_cache(executor)
+
+    assert_equal t.context.property_cache?, false
+    t.perform_action(:destroy)
+    assert_equal t.updated_by_last_action?, false
+    assert_equal t.context.property_cache?, false
+  end
+
+  def new_property_cache(executor)
+    t = Redfish::Tasks::PropertyCache.new
+    t.context = Redfish::Context.new(executor, '/opt/payara-4.1.151/', 'domain1', 4848, false, 'admin', nil)
+    t
+  end
+end

data/test/test_context.rb

@@ -0,0 +1,70 @@
+require File.expand_path('../helper', __FILE__)
+
+class TestContext < Redfish::TestCase
+
+  def test_basic_workflow
+    install_dir = '/opt/glassfish'
+    domain_name = 'appserver'
+    domain_admin_port = 4848
+    domain_secure = true
+    domain_username = 'admin'
+    domain_password_file = '/etc/glassfish/password'
+    system_user = 'glassfish'
+    system_group = 'glassfish_group'
+
+    context = Redfish::Context.new(Redfish::Executor.new,
+                                   install_dir,
+                                   domain_name,
+                                   domain_admin_port,
+                                   domain_secure,
+                                   domain_username,
+                                   domain_password_file,
+                                   :system_user => system_user,
+                                   :system_group => system_group,
+                                   :terse => true,
+                                   :echo => true)
+
+    assert_equal context.domain_name, domain_name
+    assert_equal context.domain_admin_port, domain_admin_port
+    assert_equal context.domain_secure, domain_secure
+    assert_equal context.domain_username, domain_username
+    assert_equal context.domain_password_file, domain_password_file
+
+    assert_equal context.terse?, true
+    assert_equal context.echo?, true
+    assert_equal context.system_user, system_user
+    assert_equal context.system_group, system_group
+
+    assert !context.property_cache?
+  end
+
+  def test_property_caching
+    context = Redfish::Context.new(Redfish::Executor.new, '/opt/glassfish', 'appserver', 4848, true, 'admin', nil)
+
+    assert !context.property_cache?
+    context.cache_properties('a' => '1', 'b' => '2')
+    assert context.property_cache?
+    assert_equal context.property_cache['a'], '1'
+    assert_equal context.property_cache['b'], '2'
+
+    error = false
+    begin
+      context.cache_properties('a' => '1', 'b' => '2')
+    rescue
+      error = true
+    end
+    fail('Expected to fail to re-cache properties') unless error
+
+    context.remove_property_cache
+
+    assert !context.property_cache?
+
+    error = false
+    begin
+      context.remove_property_cache
+    rescue
+      error = true
+    end
+    fail('Expected to fail to remove property cache') unless error
+  end
+end

data/test/test_executor.rb

@@ -0,0 +1,89 @@
+require File.expand_path('../helper', __FILE__)
+
+class TestExecutor < Redfish::TestCase
+  def test_asadmin_script
+    executor = Redfish::Executor.new
+    assert_equal '/opt/payara-4.1.151//glassfish/bin/asadmin', executor.send(:asadmin_script, new_context(executor))
+  end
+
+  def test_build_command
+    executor = Redfish::Executor.new
+    assert_equal %w(/opt/payara-4.1.151//glassfish/bin/asadmin --terse=true --echo=false --user admin --port 4848 set a=b),
+                 executor.send(:build_command, new_context(executor), 'set', ['a=b'], :terse => true, :echo => false)
+
+    Etc.expects(:getlogin).returns('bob')
+    assert_equal %w(/usr/bin/sudo -u glassfish -g glassfish-group /opt/payara-4.1.151//glassfish/bin/asadmin --terse=false --echo=false --user admin --passwordfile=/etc/pass --secure --port 4848 set a=b),
+                 executor.send(:build_command,
+                               Redfish::Context.new(executor,
+                                                    '/opt/payara-4.1.151/',
+                                                    'domain1',
+                                                    4848,
+                                                    true,
+                                                    'admin',
+                                                    '/etc/pass',
+                                                    :system_user => 'glassfish',
+                                                    :system_group => 'glassfish-group'),
+                               'set',
+                               ['a=b'],
+                 {})
+  end
+
+  def test_asadmin_command_prefix
+    executor = Redfish::Executor.new
+    assert_equal %w(--terse=false --echo=true --user admin --port 4848),
+                 executor.send(:asadmin_command_prefix, new_context(executor))
+    assert_equal %w(--terse=true --echo=false --user admin --port 4848),
+                 executor.send(:asadmin_command_prefix, new_context(executor), :terse => true, :echo => false)
+    assert_equal %w(--terse=false --echo=false --user admin --passwordfile=/etc/pass --secure --port 4848),
+                 executor.send(:asadmin_command_prefix,
+                               Redfish::Context.new(executor, '/opt/payara-4.1.151/', 'domain1', 4848, true, 'admin', '/etc/pass'))
+  end
+
+  def test_needs_user_change?
+    executor = Redfish::Executor.new
+    assert_equal false, executor.send(:needs_user_change?, new_context(executor))
+    context_with_users =
+      Redfish::Context.new(executor,
+                           '/opt/payara-4.1.151/',
+                           'domain1',
+                           4848,
+                           false,
+                           'admin',
+                           nil,
+                           :system_user => 'glassfish',
+                           :system_group => 'glassfish-group')
+
+    Etc.expects(:getlogin).returns('bob')
+
+    assert_equal true, executor.send(:needs_user_change?, context_with_users)
+
+
+    Etc.expects(:getlogin).returns('glassfish')
+    group = 'group'
+    group.expects(:name).returns(group)
+    Etc.expects(:group).returns(group)
+
+    assert_equal true, executor.send(:needs_user_change?, context_with_users)
+
+    Etc.expects(:getlogin).returns('glassfish')
+    group = 'glassfish-group'
+    group.expects(:name).returns(group)
+    Etc.expects(:group).returns(group)
+
+    assert_equal false, executor.send(:needs_user_change?, context_with_users)
+  end
+
+  def test_exec
+    executor = Redfish::Executor.new
+
+    cmd = ['/opt/payara-4.1.151//glassfish/bin/asadmin', '--terse=false', '--echo=true', '--user', 'admin', '--port', '4848', 'set', 'a=1:b=2']
+    IO.expects(:popen).with(equals(cmd),equals('r'),anything)
+    executor.expects(:last_exitstatus).returns(0)
+
+    executor.exec(new_context(executor), 'set', ['a=1:b=2'])
+  end
+
+  def new_context(executor)
+    Redfish::Context.new(executor, '/opt/payara-4.1.151/', 'domain1', 4848, false, 'admin', nil, :terse => false, :echo => true)
+  end
+end

data/test/test_property_cache.rb

@@ -0,0 +1,33 @@
+require File.expand_path('../helper', __FILE__)
+
+class TestPropertyCache < Redfish::TestCase
+  def test_properties_are_duplicated
+    input_data = {'a' => '1', 'b' => '2'}
+
+    cache = Redfish::PropertyCache.new(input_data)
+
+    # Data should be identical
+    assert_equal cache.properties, input_data
+
+    # Ensure input can not be modified to modify cache
+    input_data['a'] = '3'
+    assert_equal cache['a'], '1'
+
+    # Ensure cache does not modify input
+    cache['b'] = '4'
+    assert_equal input_data['b'], '2'
+
+    # properties accessor does a dup
+    cache.properties['b'] = '5'
+    assert_equal cache['b'], '4'
+  end
+
+  def test_any_property_start_with?
+    cache = Redfish::PropertyCache.new('a.b.c' => '1', 'a.b.d' => '2', 'a.c.e' => '2', 'xx' => '2')
+
+    assert cache.any_property_start_with?('a.b')
+    assert cache.any_property_start_with?('a.b.d')
+    assert !cache.any_property_start_with?('x.')
+    assert cache.any_property_start_with?('x')
+  end
+end

data/test/test_task.rb

@@ -0,0 +1,142 @@
+require File.expand_path('../helper', __FILE__)
+
+class TestTask < Redfish::TestCase
+  class MyTestTask < Redfish::Task
+    attribute :a, :kind_of => String, :required => true
+    attribute :b, :kind_of => [TrueClass, FalseClass], :default => false
+    attribute :c, :equal_to => [true, false, 'true', 'false'], :default => 'false'
+    attribute :d, :kind_of => String
+
+    attr_accessor :action1_ran
+    attr_accessor :action2_ran
+
+    private
+
+    action :action1 do
+      @action1_ran = true
+    end
+
+    action :action2 do
+      @action2_ran = true
+      updated_by_last_action
+    end
+
+  end
+
+  def test_required_raises_exception_if_unset
+    begin
+      new_task.a
+    rescue
+      return
+    end
+
+    fail('Expected to fail when accessing a before setting')
+  end
+
+
+  def test_invalid_value_by_kind_of
+    begin
+      new_task.a = 1
+    rescue => e
+      assert_equal e.to_s, "Invalid value passed to attribute 'a' expected to be one of [String] but is of type Fixnum"
+      return
+    end
+
+    fail('Expected to fail due to bad type')
+  end
+
+  def test_invalid_value_by_equal_to
+    begin
+      new_task.c = 1
+    rescue => e
+      assert_equal e.to_s, "Invalid value passed to attribute 'c' expected to be one of [true, false, \"true\", \"false\"] but is 1"
+      return
+    end
+
+    fail('Expected to fail due to bad type')
+  end
+
+  def test_invalid_value_by_kind_of_array
+    begin
+      new_task.b = 1
+    rescue => e
+      assert_equal e.to_s, "Invalid value passed to attribute 'b' expected to be one of [TrueClass, FalseClass] but is of type Fixnum"
+      return
+    end
+
+    fail('Expected to fail due to bad type')
+  end
+
+  def test_set
+    mt = new_task do |t|
+      t.a = 'a'
+      t.b = true
+      t.c = 'true'
+      t.d = 'XXX'
+    end
+
+    assert_equal mt.a, 'a'
+    assert_equal mt.b, true
+    assert_equal mt.c, 'true'
+    assert_equal mt.d, 'XXX'
+  end
+
+  def test_defaults
+    mt = new_task do |t|
+      t.a = 'a'
+    end
+
+    assert_equal mt.a, 'a'
+    assert_equal mt.b, false
+    assert_equal mt.c, 'false'
+    assert_equal mt.d, nil
+  end
+
+  def test_non_existent_action
+    mt = new_task do |t|
+      t.a = 'a'
+    end
+
+    begin
+      mt.perform_action(:B)
+    rescue => e
+      assert_equal e.to_s, "No such action B"
+      return
+    end
+
+    fail('Expected to fail due to bad action')
+  end
+
+  def test_action
+    mt = new_task do |t|
+      t.a = 'a'
+    end
+
+    assert_equal mt.action1_ran, nil
+    mt.perform_action(:action1)
+    assert_equal mt.action1_ran, true
+    assert_equal mt.updated_by_last_action?, false
+  end
+
+  def test_action_that_causes_update
+    mt = new_task do |t|
+      t.a = 'a'
+    end
+
+    assert_equal mt.action2_ran, nil
+    mt.perform_action(:action2)
+    assert_equal mt.action2_ran, true
+    assert_equal mt.updated_by_last_action?, true
+  end
+
+  def new_task
+    MyTestTask.new do |t|
+      t.context = new_context
+      yield t if block_given?
+    end
+  end
+
+  def new_context
+    Redfish::Context.new(Redfish::Executor.new, '/opt/payara-4.1.151/', 'domain1', 4848, false, 'admin', nil, :terse => false, :echo => true)
+  end
+end

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification
+name: redfish
+version: !ruby/object:Gem::Version
+  version: 0.2.1
+platform: ruby
+authors:
+- Peter Donald
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-04-17 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 5.0.2
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 5.0.2
+- !ruby/object:Gem::Dependency
+  name: mocha
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 0.14.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 0.14.0
+description: A lightweight library for configuring GlassFish/Payara servers.
+email: peter@realityforge.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitattributes"
+- ".gitignore"
+- ".ruby-version"
+- ".travis.yml"
+- CONTRIBUTING.md
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- lib/redfish.rb
+- lib/redfish/context.rb
+- lib/redfish/executor.rb
+- lib/redfish/property_cache.rb
+- lib/redfish/task.rb
+- lib/redfish/tasks/property.rb
+- lib/redfish/tasks/property_cache.rb
+- lib/redfish/version.rb
+- redfish.gemspec
+- test/helper.rb
+- test/tasks/test_property.rb
+- test/tasks/test_property_cache.rb
+- test/test_context.rb
+- test/test_executor.rb
+- test/test_property_cache.rb
+- test/test_task.rb
+homepage: https://github.com/realityforge/redfish
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options:
+- "--line-numbers"
+- "--inline-source"
+- "--title"
+- redfish
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: redfish
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: A lightweight library for configuring GlassFish/Payara servers.
+test_files: []