rboss 0.7.2 → 0.8.0

data/README.md

@@ -17,7 +17,7 @@ Installation
 ### Configuration
 
 Set a RBOSS_CLI_JBOSS_HOME variable pointing to your JBoss AS home location that has jboss-cli
-for using rboss-cli, for using twiddle, set a TWIDDLE_HOME variable pointing to you JBoss AS 
+for using rboss-cli, for using twiddle, set a RBOSS_TWIDDLE_HOME variable pointing to you JBoss AS 
 that has twiddle.
 
 Using rboss-cli

data/bin/rboss-cli

@@ -37,7 +37,7 @@ servers_file = "#@conf_dir/jboss-cli-servers.yaml"
 @servers_file = File.expand_path(servers_file)
 @operation = :read_resource
 save = false
-params[:jboss_home] = (ENV["JBOSS_HOME"] or ENV["RBOSS_CLI_JBOSS_HOME"] or Dir.pwd)
+params[:jboss_home] = (ENV["RBOSS_CLI_JBOSS_HOME"] or Dir.pwd)
 params[:host] = '127.0.0.1'
 params[:port] = '9999'
 
@@ -175,5 +175,5 @@ begin
   execute_actions
 
 rescue Interrupt
-  #Do nothing
+  puts Yummi::colorize("Aborted!", :red)
 end

data/bin/{twiddle → rboss-twiddle}

@@ -37,7 +37,7 @@ no_details = false
 servers_file = "#{@conf_dir}/twiddle.yaml"
 @servers_file = File.expand_path(servers_file)
 save = false
-params[:jboss_home] = (ENV["JBOSS_HOME"] or ENV["TWIDDLE_HOME"] or Dir.pwd)
+params[:jboss_home] = (ENV["RBOSS_TWIDDLE_HOME"] or Dir.pwd)
 
 defaults = RBoss::Twiddle::Monitor::defaults
 
@@ -116,7 +116,7 @@ opts.on('--info mbean_id[:resource_name],[arguments]', Array,
   @commands[:info] = info
 end
 opts.on('--invoke mbean_id[:resource_name],method,[,args...]', Array,
-        'Invokes a resoruce method') do |invoke|
+        'Invokes a mbean method') do |invoke|
   @commands[:invoke] = invoke
 end
 opts.on("-l", "--list", "List the mbeans mappings") do
@@ -200,5 +200,5 @@ begin
 
   execute_actions
 rescue Interrupt
-  #Do nothing
+  puts Yummi::colorize("Aborted!", :red)
 end

data/lib/rboss/twiddle/monitor.rb

@@ -30,26 +30,29 @@ module RBoss
       def defaults
         @@defaults ||= {
           :webapp => {
-            :description => 'Deployed webapps',
+            :title => 'Deployed webapps',
             :pattern => 'jboss.web:type=Manager,host=localhost,path=/#{resource}',
             :properties => %W(activeSessions maxActive distributable maxActiveSessions
                                     expiredSessions rejectedSessions),
             :header => ["Active\nSessions", "Max\nSessions", "Distributable",
                         "Max Active\nSession", "Expired\nSessions", "Rejected\nSessions"],
+            :format => {
+              :distributable => :boolean
+            },
             :scan => proc do
               query "jboss.web:type=Manager,*" do |path|
-                path.gsub! "jboss.web:type=Manager,path=/", ""
-                path.gsub! /,host=.+/, ''
+                path.gsub!("jboss.web:type=Manager,path=/", "")
+                path.gsub!(/,host=.+/, '')
                 path
               end
             end
           },
           :web_deployment => {
-            :description => 'Deployed webapp control',
+            :title => 'Deployed webapp control',
             :pattern => 'jboss.web.deployment:war=/#{resource}'
           },
           :connector => {
-            :description => 'JBossWeb connector',
+            :title => 'JBossWeb connector',
             :pattern => 'jboss.web:type=ThreadPool,name=#{resource}',
             :properties => %W(maxThreads currentThreadCount currentThreadsBusy),
             :header => ['Max Threads', 'Current Threads', 'Busy Threads'],
@@ -68,36 +71,36 @@ module RBoss
             end
           },
           :cached_connection_manager => {
-            :description => 'JBoss JCA cached connections',
+            :title => 'JBoss JCA cached connections',
             :pattern => 'jboss.jca:service=CachedConnectionManager',
             :properties => %W(InUseConnections),
             :header => ['In Use Connections'],
           },
           :main_deployer => {
-            :description => 'Main Deployer',
+            :title => 'Main Deployer',
             :pattern => 'jboss.system:service=MainDeployer'
           },
           :engine => {
-            :description => 'JBossWeb engine',
+            :title => 'JBossWeb engine',
             :pattern => 'jboss.web:type=Engine',
             :properties => %W(jvmRoute name defaultHost),
             :header => ['JVM Route', 'Name', 'Default Host'],
           },
           :log4j => {
-            :description => 'JBoss Log4J Service',
+            :title => 'JBoss Log4J Service',
             :pattern => 'jboss.system:service=Logging,type=Log4jService',
             :properties => %W(DefaultJBossServerLogThreshold),
             :header => ['Default Server Log Threshold'],
           },
           :server => {
-            :description => 'JBoss Server specifications',
+            :title => 'JBoss Server specifications',
             :pattern => 'jboss.system:type=Server',
-            :properties => %W(VersionName VersionNumber Version),
+            :properties => %W(StartDate VersionName VersionNumber Version),
             :layout => :vertical,
-            :header => ['Version Name', 'Version Number', 'Version'],
+            :header => ['Start Date', 'Version Name', 'Version Number', 'Version'],
           },
           :server_info => {
-            :description => 'JBoss Server runtime info',
+            :title => 'JBoss Server runtime info',
             :pattern => 'jboss.system:type=ServerInfo',
             :properties => %W(ActiveThreadCount MaxMemory FreeMemory AvailableProcessors
                                     JavaVendor JavaVersion OSName OSArch),
@@ -118,18 +121,18 @@ module RBoss
             }
           },
           :server_config => {
-            :description => 'JBoss Server configuration',
+            :title => 'JBoss Server configuration',
             :pattern => 'jboss.system:type=ServerConfig',
             :properties => %W(ServerName HomeDir ServerLogDir ServerHomeURL),
             :layout => :vertical,
             :header => ['Server Name', 'Home Dir', 'Log Dir', 'Home URL'],
           },
           :system_properties => {
-            :description => 'System properties',
+            :title => 'System properties',
             :pattern => 'jboss:name=SystemProperties,type=Service'
           },
           :request => {
-            :description => 'JBossWeb connector requests',
+            :title => 'JBossWeb connector requests',
             :pattern => 'jboss.web:type=GlobalRequestProcessor,name=#{resource}',
             :properties => %W(requestCount errorCount maxTime),
             :header => ['Requests', 'Errors', 'Max Time'],
@@ -148,7 +151,7 @@ module RBoss
             end
           },
           :datasource => {
-            :description => 'Datasource',
+            :title => 'Datasource',
             :pattern => 'jboss.jca:service=ManagedConnectionPool,name=#{resource}',
             :properties => %W(MinSize MaxSize AvailableConnectionCount
                                       InUseConnectionCount ConnectionCount),
@@ -169,7 +172,7 @@ module RBoss
             end
           },
           :queue => {
-            :description => 'JMS Queue',
+            :title => 'JMS Queue',
             :pattern => 'jboss.messaging.destination:service=Queue,name=#{resource}',
             :properties => %W(JNDIName MessageCount DeliveringCount
                     ScheduledMessageCount MaxSize FullSize Clustered ConsumerCount),
@@ -182,7 +185,7 @@ module RBoss
             end
           },
           :jndi => {
-            :description => 'JNDI View',
+            :title => 'JNDI View',
             :pattern => 'jboss:service=JNDIView'
           }
         }

data/lib/rboss/version.rb

@@ -21,5 +21,5 @@
 # THE SOFTWARE.
 
 module RBoss
-  VERSION = "0.7.2"
+  VERSION = "0.8.0"
 end

data/rboss.gemspec

@@ -8,9 +8,9 @@ Gem::Specification.new do |s|
   s.authors     = ["Ataxexe"]
   s.email       = ["ataxexe@gmail.com"]
   s.homepage    = "https://github.com/ataxexe/rboss"
-  s.summary     = %q{A Ruby way to do a JBoss work!}
-  s.description = %q{Rboss gives you an automate tool to configure a JBoss instance
-  and a nice command line front end to use jboss-cli and twiddle}
+  s.summary     = %q{Manage your JBoss from your command line.}
+  s.description = %q{Rboss gives you a set of command line tools to configure a JBoss instance
+  and use jboss-cli and twiddle wrapped by an elegant interface}
 
   s.rubyforge_project = "rboss"
 

data/rboss.iml

@@ -11,7 +11,7 @@
     <orderEntry type="jdk" jdkName="RVM: ruby-1.9.3-p194" jdkType="RUBY_SDK" />
     <orderEntry type="sourceFolder" forTests="false" />
     <orderEntry type="library" scope="PROVIDED" name="bundler (v1.1.4, RVM: ruby-1.9.3-p194) [gem]" level="application" />
-    <orderEntry type="library" scope="PROVIDED" name="yummi (v0.4.2, RVM: ruby-1.9.3-p194) [gem]" level="application" />
+    <orderEntry type="library" scope="PROVIDED" name="yummi (v0.6.2, RVM: ruby-1.9.3-p194) [gem]" level="application" />
   </component>
   <component name="org.twodividedbyzero.idea.findbugs">
     <option name="_basePreferences">

data/rboss.ipr

@@ -84,6 +84,7 @@
       <entry name="?*.dtd" />
       <entry name="?*.tld" />
       <entry name="?*.ftl" />
+      <entry name="trace.info" />
     </wildcardResourcePatterns>
     <annotationProcessing enabled="false" useClasspath="true" />
   </component>
@@ -109,6 +110,9 @@
   <component name="EntryPointsManager">
     <entry_points version="2.0" />
   </component>
+  <component name="GradleSettings">
+    <option name="gradleHome" value="$USER_HOME$/build/gradle" />
+  </component>
   <component name="GradleUISettings">
     <setting name="root" />
   </component>

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: rboss
 version: !ruby/object:Gem::Version
-  version: 0.7.2
+  version: 0.8.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,16 +9,16 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-11-19 00:00:00.000000000 Z
+date: 2012-12-01 00:00:00.000000000 Z
 dependencies: []
-description: ! "Rboss gives you an automate tool to configure a JBoss instance\n  and
-  a nice command line front end to use jboss-cli and twiddle"
+description: ! "Rboss gives you a set of command line tools to configure a JBoss instance\n
+  \ and use jboss-cli and twiddle wrapped by an elegant interface"
 email:
 - ataxexe@gmail.com
 executables:
-- jboss-profile
 - rboss-cli
-- twiddle
+- rboss-profile
+- rboss-twiddle
 extensions: []
 extra_rdoc_files: []
 files:
@@ -26,9 +26,9 @@ files:
 - Gemfile
 - README.md
 - Rakefile
-- bin/jboss-profile
 - bin/rboss-cli
-- bin/twiddle
+- bin/rboss-profile
+- bin/rboss-twiddle
 - lib/rboss.rb
 - lib/rboss/bin/command_actions.rb
 - lib/rboss/cli/invoker.rb
@@ -83,12 +83,6 @@ files:
 - rboss.gemspec
 - rboss.iml
 - rboss.ipr
-- test/datasource_test.rb
-- test/deploy_folder_test.rb
-- test/jbossweb_test.rb
-- test/mbean_test.rb
-- test/test_helper.rb
-- test/test_suite.rb
 homepage: https://github.com/ataxexe/rboss
 licenses: []
 post_install_message: 
@@ -112,11 +106,5 @@ rubyforge_project: rboss
 rubygems_version: 1.8.24
 signing_key: 
 specification_version: 3
-summary: A Ruby way to do a JBoss work!
-test_files:
-- test/datasource_test.rb
-- test/deploy_folder_test.rb
-- test/jbossweb_test.rb
-- test/mbean_test.rb
-- test/test_helper.rb
-- test/test_suite.rb
+summary: Manage your JBoss from your command line.
+test_files: []

data/test/datasource_test.rb

@@ -1,211 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require_relative 'test_helper'
-
-class DatasourceTest < Test::Unit::TestCase
-
-  def setup
-    @types = %w{mysql oracle postgres}
-  end
-
-  def test_datasource_type
-    @types.each do |type|
-      for_test_with :all do |profile|
-        profile.add :datasource,
-                    :type => type
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/#{type}-ds.xml"
-        assert File.exists? file
-        datasource_content = File.read file
-        assert datasource_content[type]
-      end
-
-      do_test
-    end
-  end
-
-  def test_datasource_naming
-    @types.each do |type|
-      for_test_with :all do |profile|
-        profile.add :datasource,
-                    :type => type,
-                    :name => 'my-datasource'
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/my-datasource-ds.xml"
-        assert File.exists? file
-        datasource_content = File.read file
-        assert datasource_content[type]
-      end
-
-      do_test
-    end
-  end
-
-  def test_datasource_folder_inside_installation
-    @types.each do |type|
-      for_test_with :all do |profile|
-        profile.add :deploy_folder, 'deploy/datasources'
-
-        profile.add :datasource,
-                    :type => type,
-                    :folder => 'deploy/datasources'
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/datasources/#{type}-ds.xml"
-        assert File.exists? file
-        datasource_content = File.read file
-        assert datasource_content[type]
-      end
-
-      do_test
-    end
-  end
-
-  def test_datasource_folder_outside_installation
-    @types.each do |type|
-      for_test_with :all do |profile|
-        profile.add :deploy_folder, '/tmp/datasources'
-
-        profile.add :datasource,
-                    :type => type,
-                    :folder => '/tmp/datasources'
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "/tmp/datasources/#{type}-ds.xml"
-        assert File.exists? file
-        datasource_content = File.read file
-        assert datasource_content[type]
-
-        `rm -rf /tmp/datasources`
-      end
-
-      do_test
-    end
-  end
-
-  def test_datasource_attributes
-    @types.each do |type|
-      for_test_with :all do |profile|
-
-        profile.add :datasource,
-                    :type => type,
-                    :attributes => {
-                      :jndi_name => "#{type}Datasource",
-                      :user_name => "#{type}_user",
-                      :password => "#{type}_password",
-                      :connection_url => "#{type}_connection",
-                      :driver_class => "#{type}_class"
-                    }
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/#{type}-ds.xml"
-        xml = REXML::Document::new File::new(file)
-
-        assert_tag xml, "//jndi-name", "#{type}Datasource", "local-tx-datasource"
-        assert_tag xml, "//user-name", "#{type}_user", "local-tx-datasource"
-        assert_tag xml, "//password", "#{type}_password", "local-tx-datasource"
-        assert_tag xml, "//connection-url", "#{type}_connection", "local-tx-datasource"
-        assert_tag xml, "//driver-class", "#{type}_class", "local-tx-datasource"
-      end
-
-      do_test
-    end
-  end
-
-  def test_new_datasource_attributes
-    @types.each do |type|
-      for_test_with :all do |profile|
-
-        profile.add :datasource,
-                    :type => type,
-                    :attributes => {
-                      :min_pool_size => 10,
-                      :max_pool_size => 50,
-                      :use_java_context => true
-                    }
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/#{type}-ds.xml"
-        xml = REXML::Document::new File::new(file)
-
-        assert_tag xml, "//min-pool-size", 10, "local-tx-datasource"
-        assert_tag xml, "//max-pool-size", 50, "local-tx-datasource"
-      end
-
-      do_test
-    end
-  end
-
-  def test_datasource_encryption
-    @types.each do |type|
-      for_test_with :all do |profile|
-
-        profile.add :datasource,
-                    :type => type,
-                    :encrypt => true,
-                    :attributes => {
-                      :jndi_name => "MyDatasource",
-                      :user_name => "user-name",
-                      :password => "password"
-                    }
-      end
-
-      for_assertions_with :all do |jboss|
-        file = "#{jboss.profile}/deploy/#{type}-ds.xml"
-        xml = REXML::Document::new File::new(file)
-
-        assert XPath::first(xml, "//user-name").nil?
-        assert XPath::first(xml, "//password").nil?
-
-        assert_tag xml, "//security-domain", type, "local-tx-datasource"
-
-        xml = REXML::Document::new File::new("#{jboss.profile}/deploy/#{type}.login-module.xml")
-
-        application_policy = XPath::first xml, "//application-policy[@name='#{type}']"
-        assert !application_policy.nil?
-        assert application_policy.parent.name == "policy"
-
-        assert_tag application_policy, ".//module-option[@name='username']", "user-name", "login-module"
-        assert_tag application_policy, ".//module-option[@name='password']", "5dfc52b51bd35553df8592078de921bc", "login-module"
-        assert_tag application_policy, ".//module-option[@name='managedConnectionFactoryName']", "jboss.jca:name=MyDatasource,service=LocalTxCM", "login-module"
-      end
-
-      do_test
-    end
-  end
-
-  def assert_tag xml, path, value, parent_name = nil
-    tag = XPath::first xml, path
-    assert tag.text.strip == value.to_s
-    assert tag.parent.name == parent_name if parent_name
-  end
-
-end

data/test/deploy_folder_test.rb

@@ -1,126 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require_relative 'test_helper'
-
-class DeployFolderTest < Test::Unit::TestCase
-
-  def test_folder_inside_deploy
-    for_test_with :all do |profile|
-      profile.add :deploy_folder, 'deploy/rboss-deploy'
-      profile.add :deploy_folder, 'deploy/rboss/deploy'
-    end
-
-    for_assertions_with :all do |jboss|
-      assert(File.exists? "#{jboss.profile}/deploy/rboss-deploy")
-      assert(File.directory? "#{jboss.profile}/deploy/rboss-deploy")
-      assert(File.exists? "#{jboss.profile}/deploy/rboss/deploy")
-      assert(File.directory? "#{jboss.profile}/deploy/rboss/deploy")
-    end
-
-    do_test
-  end
-
-  def test_folder_outside_deploy
-    for_test_with :all do |profile|
-      profile.add :deploy_folder, 'rboss-deploy'
-      profile.add :deploy_folder, 'rboss/deploy'
-    end
-
-    for_assertions_with :all do |jboss|
-      assert(File.exists? "#{jboss.profile}/rboss-deploy")
-      assert(File.directory? "#{jboss.profile}/rboss-deploy")
-      assert(File.exists? "#{jboss.profile}/rboss/deploy")
-      assert(File.directory? "#{jboss.profile}/rboss/deploy")
-
-      check_profile_xml "${jboss.server.home.url}rboss-deploy", "${jboss.server.home.url}rboss/deploy"
-      check_vfs_xml "${jboss.server.home.url}rboss-deploy", "${jboss.server.home.url}rboss/deploy"
-    end
-
-    for_assertions_with :org, 6.0 do |jboss|
-      assert(File.exists? "#{jboss.profile}/rboss-deploy")
-      assert(File.directory? "#{jboss.profile}/rboss-deploy")
-      assert(File.exists? "#{jboss.profile}/rboss/deploy")
-      assert(File.directory? "#{jboss.profile}/rboss/deploy")
-
-      check_profile_xml "${jboss.server.home.url}rboss-deploy", "${jboss.server.home.url}rboss/deploy"
-    end
-
-    do_test
-  end
-
-  def test_folder_outside_jboss
-    for_test_with :all do |profile|
-      profile.add :deploy_folder, '/tmp/rboss-deploy'
-      profile.add :deploy_folder, '/tmp/rboss/deploy'
-    end
-
-    for_assertions_with :all do |jboss|
-      assert(File.exists? "/tmp/rboss-deploy")
-      assert(File.directory? "/tmp/rboss-deploy")
-      assert(File.exists? "/tmp/rboss/deploy")
-      assert(File.directory? "/tmp/rboss/deploy")
-
-      check_profile_xml 'file:///tmp/rboss-deploy', 'file:///tmp/rboss/deploy'
-      check_vfs_xml 'file:///tmp/rboss-deploy', 'file:///tmp/rboss/deploy'
-    end
-
-    for_assertions_with :org, 6.0 do |jboss|
-      assert(File.exists? "/tmp/rboss-deploy")
-      assert(File.directory? "/tmp/rboss-deploy")
-      assert(File.exists? "/tmp/rboss/deploy")
-      assert(File.directory? "/tmp/rboss/deploy")
-
-      check_profile_xml 'file:///tmp/rboss-deploy', 'file:///tmp/rboss/deploy'
-    end
-
-    do_test
-
-    `rm -rf /tmp/rboss*`
-  end
-
-  def check_profile_xml *names
-    xml = REXML::Document::new File::new("#{@jboss.profile}/conf/bootstrap/profile.xml")
-    element = XPath.first xml, "//property[@name='applicationURIs']"
-    element = XPath.first element, "//list[@elementClass='java.net.URI']"
-    element.each do |el|
-      names.delete el.text.strip if el.respond_to? :text
-    end
-    assert(names.empty?)
-  end
-
-  def check_vfs_xml *names
-    xml = REXML::Document::new File::new("#{@jboss.profile}/conf/bootstrap/vfs.xml")
-    element = XPath.first xml, "//property[@name='permanentRoots']"
-    element = XPath.first element, "//map[@keyClass='java.net.URL']"
-    XPath.each element, "//key" do |el|
-      if el.respond_to? :text
-        names.delete el.text.strip
-        value = XPath.first el.parent, "//value"
-        inject = XPath.first value, "//inject"
-        assert(inject.attributes["bean"] == "VfsNamesExceptionHandler")
-      end
-    end
-    assert(names.empty?)
-  end
-
-end

data/test/jbossweb_test.rb

@@ -1,101 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require_relative 'test_helper'
-
-class JBossWebTest < Test::Unit::TestCase
-
-  def test_http_connector
-    for_test_with :all do |profile|
-      profile.add :jbossweb,
-                  :connectors => {
-                    :http => {
-                      :max_threads => 600
-                    }
-                  }
-    end
-
-    for_assertions_with :all do |jboss|
-      xml = xml(jboss)
-      max_threads = XPath::first xml, "//Connector[@port='8080'][@protocol='HTTP/1.1'][@maxThreads='600']"
-      assert max_threads
-    end
-
-    do_test
-  end
-
-  def test_https_connector
-    for_test_with :all do |profile|
-      profile.add :jbossweb,
-                  :connectors => {
-                    :https => {
-                      :max_threads => 600
-                    }
-                  }
-    end
-
-    for_assertions_with :all do |jboss|
-      xml = xml(jboss)
-      max_threads = XPath::first xml, "//Connector[@port='8443'][@protocol='HTTP/1.1'][@maxThreads='600']"
-      assert max_threads
-    end
-
-    do_test
-  end
-
-  def test_ajp_connector
-    for_test_with :all do |profile|
-      profile.add :jbossweb,
-                  :connectors => {
-                    :ajp => {
-                      :max_threads => 600
-                    }
-                  }
-    end
-
-    for_assertions_with :all do |jboss|
-      xml = xml(jboss)
-      max_threads = XPath::first xml, "//Connector[@port='8009'][@protocol='AJP/1.3'][@maxThreads='600']"
-      assert max_threads
-    end
-
-    do_test
-  end
-
-
-  def test_engine
-    for_test_with :all do |profile|
-      profile.add :jbossweb,
-                  :jvm_route => 'route'
-    end
-    for_assertions_with :all do |jboss|
-      xml = xml(jboss)
-      jvm_route = XPath::first xml, "//Engine[@name='jboss.web'][@jvmRoute='route']"
-      assert jvm_route
-    end
-  end
-
-  def xml(jboss)
-    REXML::Document::new File::new("#{jboss.profile}/deploy/jbossweb.sar/server.xml")
-  end
-
-end

data/test/mbean_test.rb

@@ -1,55 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'test/unit'
-require_relative '../lib/rboss'
-
-class MBeanTest < Test::Unit::TestCase
-
-  def twiddle
-    twiddle = Object.new
-
-    def twiddle.execute command, *args
-      "#{command} #{args.join " "}".strip
-    end
-
-    twiddle
-  end
-
-  def test_pattern_with_resource
-    mbean = JBoss::MBean::new :pattern => 'query=/#{resource}', :twiddle => twiddle
-    mbean.resource= "my_resource"
-    assert_equal "get query=/my_resource my_property", mbean[:my_property]
-  end
-
-  def test_pattern_without_resource
-    mbean = JBoss::MBean::new :pattern => 'query=/resource', :twiddle => twiddle
-    assert_equal "get query=/resource my_property", mbean[:my_property]
-  end
-
-  def test_invoke
-    mbean = JBoss::MBean::new :pattern => 'jboss.system:type=Server', :twiddle => twiddle
-    assert_equal "invoke jboss.system:type=Server shutdown", mbean.invoke(:shutdown)
-    assert_equal "invoke jboss.system:type=Server traceInstructions true", mbean.invoke(:traceInstructions, true)
-  end
-
-end

data/test/test_helper.rb

@@ -1,128 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'test/unit'
-require 'logger'
-require 'rexml/document'
-
-require_relative '../lib/rboss'
-require_relative '../lib/rboss/file_processor'
-
-include JBoss
-include REXML
-
-module TestHelper
-
-  def all
-    @all ||= {
-      :org => [5.1],
-      :eap => [5.1],
-      :soa_p => 5
-    }
-    @all
-  end
-
-  def jboss_dir
-    ENV["JBOSS_DIR"] or File.expand_path "~/jboss"
-  end
-
-  def for_test_with type, version = nil, &block
-    @test_blocks ||= {}
-    if type == :all
-      all.each do |key, value|
-        set_block key, value, :configure, block
-      end
-    else
-      set_block type, version, :configure, block
-    end
-  end
-
-  def for_assertions_with type, version = nil, &block
-    @assertion_blocks ||= {}
-    if type == :all
-      all.each do |key, value|
-        set_block key, value, :assertion, block
-      end
-    else
-      set_block type, version, :assertion, block
-    end
-  end
-
-  def do_test
-    @test_blocks.each do |type, versions|
-      versions.each do |version, blocks|
-        do_test_with type, version, blocks
-      end
-    end
-  end
-
-  def do_test_with type, version, blocks
-    map = {
-      :eap => "#{jboss_dir}/eap/jboss-eap-#{version}/jboss-as",
-      :epp => "#{jboss_dir}/epp/jboss-epp-#{version}/jboss-as",
-      :soa_p => "#{jboss_dir}/soa-p/jboss-soa-p-#{version}/jboss-as",
-      :org => "#{jboss_dir}/org/jboss-#{version}"
-    }
-    return unless File.exist? map[type]
-    @logger = Logger::new STDOUT
-    @logger.level = Logger::WARN
-    @jboss_profile = Profile::new :jboss_home => map[type],
-                                  :type => type,
-                                  :version => version,
-                                  :base_profile => :all,
-                                  :profile => :rboss,
-                                  :logger => @logger
-    @jboss = @jboss_profile.jboss
-    block = blocks[:configure]
-    if block
-      block.call @jboss_profile
-      puts "Creating #{type} #{version}"
-      @jboss_profile.create
-      puts "Running assertion block"
-      blocks[:assertion].call @jboss
-    end
-  end
-
-  def create_file_processor
-    RBoss::FileProcessor::new :logger => @logger, :var => @jboss
-  end
-
-  private
-
-  def set_block(type, version, key, block)
-    @test_blocks[type] ||= {}
-    if version.kind_of? Array
-      version.each do |v|
-        @test_blocks[type][v] ||= {}
-        @test_blocks[type][v][key] = block
-      end
-    else
-      @test_blocks[type][version] ||= {}
-      @test_blocks[type][version][key] = block
-    end
-  end
-
-end
-
-class Test::Unit::TestCase
-  include TestHelper
-end

data/test/test_suite.rb

@@ -1,36 +0,0 @@
-#                         The MIT License
-#
-# Copyright (c) 2011-2012 Marcelo Guimarães <ataxexe@gmail.com>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'test/unit'
-require 'test/unit/testsuite'
-require_relative 'deploy_folder_test'
-require_relative 'datasource_test'
-require_relative 'jbossweb_test'
-require_relative 'mbean_test'
-
-class TestSuite < Test::Unit::TestSuite
-
-  def initialize
-    self << DeployFolderTest << DatasourceTest << JBossWebTest << MBeanTest
-  end
-
-end