QMF updates:

  - Added "sendUserId" option (defaults to true) to QMF connection settings
  - Implemented the user-id function using "negotiatedSettings" from qpid::client::Connection
  - Fixed a sign-extension bug in Value
  - Added tests for all of the above


git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@817813 13f79535-47bb-0310-9956-ffa450edef68

2 files changed, 80 insertions, 9 deletions

diff --git a/cpp/bindings/qmf/tests/agent_ruby.rb b/cpp/bindings/qmf/tests/agent_ruby.rb
index 2f0869ad73..426a284e7d 100755
--- a/cpp/bindings/qmf/tests/agent_ruby.rb
+++ b/cpp/bindings/qmf/tests/agent_ruby.rb
@@ -40,6 +40,9 @@ class Model
     @parent_class.add_property(Qmf::SchemaProperty.new("int16val", Qmf::TYPE_INT16))
     @parent_class.add_property(Qmf::SchemaProperty.new("int8val", Qmf::TYPE_INT8))
 
+    @parent_class.add_property(Qmf::SchemaProperty.new("sstrval", Qmf::TYPE_SSTR))
+    @parent_class.add_property(Qmf::SchemaProperty.new("lstrval", Qmf::TYPE_LSTR))
+
     @parent_class.add_statistic(Qmf::SchemaStatistic.new("queryCount", Qmf::TYPE_UINT32, :unit => "query", :desc => "Query count"))
 
     method = Qmf::SchemaMethod.new("echo", :desc => "Check responsiveness of the agent object")
@@ -50,6 +53,14 @@ class Model
     method.add_argument(Qmf::SchemaArgument.new("test", Qmf::TYPE_SSTR, :dir => Qmf::DIR_IN))
     @parent_class.add_method(method)
 
+    method = Qmf::SchemaMethod.new("set_short_string", :desc => "Set the short string value in the object")
+    method.add_argument(Qmf::SchemaArgument.new("value", Qmf::TYPE_SSTR, :dir => Qmf::DIR_IN_OUT))
+    @parent_class.add_method(method)
+
+    method = Qmf::SchemaMethod.new("set_long_string", :desc => "Set the long string value in the object")
+    method.add_argument(Qmf::SchemaArgument.new("value", Qmf::TYPE_LSTR, :dir => Qmf::DIR_IN_OUT))
+    @parent_class.add_method(method)
+
     method = Qmf::SchemaMethod.new("create_child", :desc => "Create a new child object")
     method.add_argument(Qmf::SchemaArgument.new("child_name", Qmf::TYPE_LSTR, :dir => Qmf::DIR_IN))
     method.add_argument(Qmf::SchemaArgument.new("child_ref", Qmf::TYPE_REF, :dir => Qmf::DIR_OUT))
@@ -84,12 +95,13 @@ class App < Qmf::AgentHandler
   def method_call(context, name, object_id, args, userId)
 #    puts "Method: user=#{userId} context=#{context} method=#{name} object_num=#{object_id.object_num_low if object_id} args=#{args}"
     
+    retCode = 0
+    retText = "OK"
+
     if name == "echo"
       @agent.method_response(context, 0, "OK", args)
 
     elsif name == "set_numerics"
-      retCode = 0
-      retText = "OK"
 
       if args['test'] == "big"
         @parent.uint64val = 0x9494949449494949
@@ -129,7 +141,11 @@ class App < Qmf::AgentHandler
         retText = "Invalid argument value for test"
       end
 
-      @agent.method_response(context, retCode, retText, args)
+    elsif name == "set_short_string"
+      @parent.sstrval = args['value']
+
+    elsif name == "set_long_string"
+      @parent.lstrval = args['value']
 
     elsif name == "create_child"
       oid = @agent.alloc_object_id(2)
@@ -137,15 +153,16 @@ class App < Qmf::AgentHandler
       @child = Qmf::AgentObject.new(@model.child_class)
       @child.name = args.by_key("child_name")
       @child.set_object_id(oid)
-      @agent.method_response(context, 0, "OK", args)
 
     elsif name == "probe_userid"
       args['userid'] = userId
-      @agent.method_response(context, 0, "OK", args)
 
     else
-      @agent.method_response(context, 1, "Unimplemented Method: #{name}", args)
+      retCode = 1
+      retText = "Unimplemented Method: #{name}"
     end
+
+    @agent.method_response(context, retCode, retText, args)
   end
 
   def main
diff --git a/cpp/bindings/qmf/tests/ruby_console_test.rb b/cpp/bindings/qmf/tests/ruby_console_test.rb
index a5d37ba71f..6c6547efbb 100755
--- a/cpp/bindings/qmf/tests/ruby_console_test.rb
+++ b/cpp/bindings/qmf/tests/ruby_console_test.rb
@@ -97,7 +97,7 @@ class ConsoleTest < ConsoleTestBase
     assert_equal(parent.int8val,  11)
   end
 
-  def _test_C_basic_types_numeric_negative
+  def test_C_basic_types_numeric_negative
     parents = @qmfc.get_objects(Qmf::Query.new(:class =>"parent"))
     assert_equal(parents.size, 1, "Number of parent objects")
     parent = parents[0]
@@ -119,14 +119,68 @@ class ConsoleTest < ConsoleTestBase
     assert_equal(parent.int8val,  -100)
   end
 
-  def _test_D_userid_for_method
+  def test_C_basic_types_string_short
+    parents = @qmfc.get_objects(Qmf::Query.new(:class =>"parent"))
+    assert_equal(parents.size, 1, "Number of parent objects")
+    parent = parents[0]
+
+    strings = []
+    strings << ""
+    strings << "A"
+    strings << "BC"
+    strings << "DEF"
+    strings << "GHIJKLMNOPQRSTUVWXYZ"
+    big = "a"
+    for i in 0...270 
+      big << "X"
+    end
+    strings << big
+
+    strings.each do |str|
+      result = parent.set_short_string(str)
+      assert_equal(result.status, 0, "Method Response Status")
+      compare = str
+      compare = compare[0..254] if compare.size > 255
+      assert_equal(result.args.value, compare, "Value returned by method")
+      parent.update
+      assert_equal(parent.sstrval, compare, "Value stored in the object")
+    end
+  end
+
+  def test_C_basic_types_string_long
+    parents = @qmfc.get_objects(Qmf::Query.new(:class =>"parent"))
+    assert_equal(parents.size, 1, "Number of parent objects")
+    parent = parents[0]
+
+    strings = []
+    strings << ""
+    strings << "A"
+    strings << "BC"
+    strings << "DEF"
+    strings << "GHIJKLMNOPQRSTUVWXYZ"
+    big = "a"
+    for i in 0...270 
+      big << "X"
+    end
+    strings << big
+
+    strings.each do |str|
+      result = parent.set_long_string(str)
+      assert_equal(result.status, 0, "Method Response Status")
+      assert_equal(result.args.value, str, "Value returned by method")
+      parent.update
+      assert_equal(parent.lstrval, str, "Value stored in the object")
+    end
+  end
+
+  def test_D_userid_for_method
     parents = @qmfc.get_objects(Qmf::Query.new(:class => "parent"))
     assert_equal(parents.size, 1, "Number of parent objects")
     parent = parents[0]
 
     result = parent.probe_userid
     assert_equal(result.status, 0, "Method Response Status")
-    assert_equal(result.args.userid, "guest")
+    assert_equal(result.args.userid, "anonymous")
   end
 
 end