gravitext-util 1.4.0-java

data/lib/gravitext-util/unimap.rb

@@ -0,0 +1,79 @@
+#--
+# Copyright (c) 2007-2010 David Kellum
+#
+# 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.
+#++
+
+module Gravitext
+
+  module HTMap
+
+    import 'com.gravitext.htmap.UniMap'
+
+    # Extension to com.gravitext.htmap.UniMap providing convenience
+    # methods, including ruby accessors for keys registered in
+    # UniMap::KEY_SPACE
+    class UniMap
+
+      # Types requiring explicit construction on set
+      EXPLICIT_CTOR_TYPES = [ Java::java.lang.Integer,
+                              Java::java.lang.Double,
+                              Java::java.lang.Float ]
+
+      # Create a new key in UniMap::KEY_SPACE. Useful for ruby-only keys
+      # or for keys passed as parameters to Java.
+      # ==== Parameters
+      # :name<~to_s>:: New key name (lower_case by convention)
+      # :vtype<~java_class>:: Java class value type (default: java.lang.Object)
+      # ==== Returns
+      # com.gravitext.htmap.Key
+      def self.create_key( name, vtype = Java::java.lang.Object )
+        KEY_SPACE.create_generic( name, vtype.java_class )
+      end
+
+      # Define accessors for each key currently in the KEY_SPACE. To
+      # define accessors for keys defined in java, statically reference
+      # the containing class before calling this method. As Ruby's
+      # define_method is not likely thread safe, invoke during
+      # initialization in advance of starting threaded execution. May
+      # be called multiple times.
+      def self.define_accessors
+        KEY_SPACE.keys.each do |key|
+
+          getter = key.name.downcase
+          unless method_defined?( getter )
+            define_method( getter ) { get( key ) }
+          end
+
+          setter = getter + '='
+          unless method_defined?( setter )
+            vtype = key.value_type
+            ctype = EXPLICIT_CTOR_TYPES.find { |ct| vtype == ct.java_class }
+            if ctype
+              define_method( setter ) do |value|
+                set( key, ( ctype.new( value ) if value ) )
+              end
+            else
+              define_method( setter ) do |value|
+                set( key, value )
+              end
+            end
+          end
+
+        end
+      end
+
+    end
+
+  end
+end

data/lib/gravitext-util/version.rb

@@ -0,0 +1,23 @@
+#--
+# Copyright (c) 2007-2010 David Kellum
+#
+# 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.
+#++
+
+module Gravitext
+  module Util
+    VERSION = '1.4.0'
+
+    LIB_DIR = File.dirname(__FILE__) # :nodoc:
+  end
+end

data/pom.xml

@@ -0,0 +1,115 @@
+<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/maven-v4_0_0.xsd">
+
+  <modelVersion>4.0.0</modelVersion>
+  <groupId>com.gravitext</groupId>
+  <artifactId>gravitext-util</artifactId>
+  <packaging>jar</packaging>
+  <version>1.4.0</version>
+  <name>Gravitext Utilities</name>
+  <url>http://gravitext.com/oss/gravitext-util</url>
+
+  <description>A set of common utility packages. Most notably a
+  concurrent test facility and a htmap.</description>
+
+  <developers>
+    <developer>
+      <id>david</id>
+      <name>David Kellum</name>
+      <email>dek-oss@[org]</email>
+      <organization>Gravitext</organization>
+      <organizationUrl>http://gravitext.com</organizationUrl>
+    </developer>
+  </developers>
+
+  <licenses>
+    <license>
+      <name>Apache License, Version 2.0</name>
+      <url>http://www.apache.org/licenses/LICENSE-2.0.txt</url>
+      <distribution>repo</distribution>
+    </license>
+  </licenses>
+
+  <parent>
+    <groupId>com.gravitext</groupId>
+    <artifactId>gravitext-parent</artifactId>
+    <version>1.5</version>
+    <relativePath>../gravitext-parent/pom.xml</relativePath>
+  </parent>
+
+  <distributionManagement>
+    <site>
+      <id>gravitext-site</id>
+      <url>file:///home/david/src/oss/site/gravitext-util</url>
+    </site>
+    <downloadUrl>http://gravitext.com/repo/releases/gravitext-util</downloadUrl>
+  </distributionManagement>
+
+  <dependencies>
+
+    <dependency>
+      <groupId>org.slf4j</groupId>
+      <artifactId>slf4j-api</artifactId>
+      <scope>test</scope>
+    </dependency>
+
+    <dependency>
+      <groupId>junit</groupId>
+      <artifactId>junit</artifactId>
+    </dependency>
+
+    <dependency>
+      <groupId>ch.qos.logback</groupId>
+      <artifactId>logback-classic</artifactId>
+      <optional>true</optional>
+    </dependency>
+
+  </dependencies>
+
+  <build>
+    <plugins>
+      <plugin>
+        <!-- Parent settings -->
+        <groupId>org.codehaus.mojo</groupId>
+        <artifactId>cobertura-maven-plugin</artifactId>
+      </plugin>
+      <plugin>
+        <artifactId>maven-jar-plugin</artifactId>
+        <configuration>
+          <archive>
+            <manifest>
+              <mainClass>com.gravitext.perftest.Harness</mainClass>
+            </manifest>
+          </archive>
+        </configuration>
+      </plugin>
+      <plugin>
+        <!-- Parent settings -->
+        <artifactId>maven-source-plugin</artifactId>
+      </plugin>
+      <plugin>
+        <!-- Parent settings -->
+        <artifactId>maven-compiler-plugin</artifactId>
+      </plugin>
+    </plugins>
+  </build>
+
+  <reporting>
+    <plugins>
+      <plugin>
+        <groupId>org.codehaus.mojo</groupId>
+        <artifactId>cobertura-maven-plugin</artifactId>
+      </plugin>
+
+      <plugin>
+        <artifactId>maven-javadoc-plugin</artifactId>
+        <configuration>
+          <links>
+            <link>http://java.sun.com/javase/6/docs/api/</link>
+          </links>
+          <encoding>UTF-8</encoding>
+        </configuration>
+      </plugin>
+    </plugins>
+  </reporting>
+
+</project>

data/test/test_concurrent.rb

@@ -0,0 +1,91 @@
+#!/usr/bin/env jruby
+#--
+# Copyright (c) 2007-2010 David Kellum
+#
+# 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.
+#++
+
+$LOAD_PATH.unshift File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'test/unit'
+
+require 'gravitext-util'
+
+require 'java'
+require 'thread'
+
+class TestConcurrent < Test::Unit::TestCase
+  include Gravitext
+
+  class RTestFactory
+    include Gravitext::Concurrent
+    include TestFactory
+    include TestRunnable
+    def name
+      self.class.name
+    end
+
+    def create_test_runnable( seed )
+      self.class.new
+    end
+
+    def run_iteration( run )
+      run
+    end
+  end
+
+  def test_ruby_test_factory
+    tsum = Concurrent.execute_test_factory( RTestFactory.new, 100 )
+    csum = (1..100).inject { |sum,i| sum + i }
+    assert_equal( csum, tsum )
+  end
+
+  class AssertTestRunnable
+    include Gravitext::Concurrent::TestRunnable
+    include Test::Unit::Assertions
+
+    def initialize( random )
+      @random = random
+    end
+
+    def run_iteration( run )
+      Thread.pass if @random.next_int(3).zero?
+      assert_not_equal( 101, run, "run == #{run}" )
+      1
+    end
+  end
+
+  def test_assert_runnable
+    assert_raise( Test::Unit::AssertionFailedError ) do
+      Concurrent.execute_runnable( AssertTestRunnable, 1000, 7 )
+    end
+  end
+
+  def test_assert_block
+    assert_raise( Test::Unit::AssertionFailedError ) do
+      Concurrent.execute_test( 1000, 7 ) do |run, random|
+        Thread.pass if random.next_int(3).zero?
+        assert_not_equal( 101, run, "run == #{run}" )
+        1
+      end
+    end
+  end
+
+  def test_block_runnable
+    tsum = Concurrent.execute_test( 1000, 3 ) do |run,random|
+      1 + random.next_int( run )
+    end
+    assert( tsum >= 1000, "#{tsum} < 1000" )
+  end
+
+end

data/test/test_perftest.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env jruby
+#--
+# Copyright (c) 2007-2010 David Kellum
+#
+# 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.
+#++
+
+$LOAD_PATH.unshift File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'test/unit'
+
+require 'gravitext-util/perftest'
+
+require 'java'
+
+require 'rubygems'
+
+require 'rjack-slf4j'
+require 'rjack-logback' #Or, turn off logging: require 'rjack-slf4j/nop'
+
+RJack::Logback.config_console( :level => Logback::DEBUG )
+
+class TestPerfTest < Test::Unit::TestCase
+  include Gravitext::PerfTest
+
+  def test_listener
+    factory = com.gravitext.perftest.tests.EmptyPerfTest.new
+    harness = Harness.new( [ factory ] )
+    harness.listener = LogListener.new( RJack::SLF4J[ 'TestPerfTest' ] )
+
+    harness.warmup_exec_target = 0.25
+    harness.warmup_total_target = 0.5
+    harness.warmup_tolerance = 1.0
+    harness.final_exec_target = 0.25
+    harness.final_iterations = 2
+
+    sum = harness.execute.first
+    assert_same( factory, sum.factory )
+    assert( sum.runs_executed > 0 )
+    assert( sum.duration.seconds > 0.0 )
+  end
+
+end

data/test/test_unimap.rb

@@ -0,0 +1,102 @@
+#!/usr/bin/env jruby
+#.hashdot.profile += jruby-shortlived
+
+#--
+# Copyright (c) 2007-2010 David Kellum
+#
+# 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.
+#++
+
+require 'rubygems'
+
+require 'test/unit'
+
+require 'rjack-logback'
+RJack::Logback.config_console
+
+$LOAD_PATH.unshift File.join( File.dirname(__FILE__), "..", "lib" )
+
+require 'gravitext-util'
+
+class TestUniMap < Test::Unit::TestCase
+  include Gravitext::HTMap
+
+  TEST_KEYS = [ [ 'int_key',  Java::java.lang.Integer,      33 ],
+                [ 'str_key',  Java::java.lang.String,       "string" ],
+                [ 'cseq_key', Java::java.lang.CharSequence, "other" ],
+                [ 'list_key', Java::java.util.List,         [ 1, 2, 3 ] ],
+                [ 'date_key', Java::java.util.Date,         Time.now ],
+                [ 'dbl_key',  Java::java.lang.Double,       3.1415 ],
+                [ 'flt_key',  Java::java.lang.Float,        1.5625 ] ] #exact
+
+  WRONG_TYPE_VALUE = Java::java.lang.RuntimeException.new
+
+  TEST_KEYS.each do |a|
+    a << UniMap.create_key( a[0], a[1] )
+  end
+
+  UniMap.define_accessors
+
+  LOG = RJack::SLF4J[ name ]
+
+  ## Manual tests
+
+  # Full integer test for demonstration
+  def test_int_key
+    c = UniMap.new
+    assert_nil( c.int_key )
+    c.int_key = 7
+    assert_equal( 7, c.int_key )
+    c.int_key = nil
+    assert_nil( c.int_key )
+    assert_raise NameError, NativeException do
+      c.int_key = WRONG_TYPE_VALUE
+    end
+  end
+
+  # Java.util.Date comparison is tricky
+  def test_date_key
+    c = UniMap.new
+    c.date_key = now = Time.now
+    assert( c.date_key.equals( now ) )
+  end
+
+  # Define test_<type_key> for all not manually defined above
+  TEST_KEYS.each do |name, vtype, test_value, key|
+    get = name
+    set = name + '='
+    tmethod = "test_" + name
+    unless method_defined?( tmethod )
+      define_method( tmethod ) do
+        c = UniMap.new
+        assert_nil( c.send( get ) )
+        assert_nil( c.send( set, test_value ) )
+        assert_equal( test_value, c.send( get ) )
+        assert_equal( test_value, c.get( key ) )
+        assert_equal( test_value, c.send( set, nil ) )
+        assert_nil( c.send( get ) )
+        assert_raise NameError, NativeException do
+          c.send( set, WRONG_TYPE_VALUE )
+        end
+        assert_nil( c.send( get ) )
+      end
+    end
+  end
+
+  def test_list_setters
+    c = UniMap.new
+    LOG.info( "UniMap setters defined: " +
+              c.methods.sort.select { |m| m =~ /[^=]=$/ }.join( " " ) )
+  end
+
+end