mvidner-ruby-dbus 0.2.10

data/test/Makefile

@@ -0,0 +1,4 @@
+check:
+	./test_all
+test: check
+.PHONY: test check

data/test/bus_driver_test.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Test the methods of the bus driver
+require "test/unit"
+require "dbus"
+
+def d(msg)
+  puts msg if $DEBUG
+end
+
+class BusDriverTest < Test::Unit::TestCase
+  def setup
+    @bus = DBus::SessionBus.instance
+    @svc = @bus.service("org.ruby.service")
+  end
+
+  def test_exists
+    assert @svc.exists?
+    nonsvc = @bus.service "org.ruby.nosuchservice"
+    assert ! nonsvc.exists?
+  end
+end

data/test/service_newapi.rb

@@ -0,0 +1,72 @@
+#!/usr/bin/env ruby
+
+require 'dbus'
+
+def d(msg)
+  puts "#{$$} #{msg}" if $DEBUG
+end
+
+class Test < DBus::Object
+  # Create an interface aggregating all upcoming dbus_method defines.
+  dbus_interface "org.ruby.SampleInterface" do
+    dbus_method :hello, "in name:s, in name2:s" do |name, name2|
+      puts "hello(#{name}, #{name2})"
+    end
+
+    dbus_method :test_variant, "in stuff:v" do |variant|
+      p variant
+    end
+
+    dbus_method :the_answer, "out answer:i" do
+      42
+    end
+
+    dbus_signal :SomethingJustHappened, "toto:s, tutu:u"
+  end
+
+  dbus_interface "org.ruby.AnotherInterface" do
+    dbus_method :ThatsALongMethodNameIThink do
+      puts "ThatsALongMethodNameIThink"
+    end
+    dbus_method :Reverse, "in instr:s, out outstr:s" do |instr|
+      outstr = instr.split(//).reverse.join
+      puts "got: #{instr}, replying: #{outstr}"
+      [outstr]
+    end
+  end
+
+  dbus_interface "org.ruby.Ticket30" do
+    dbus_method :Sybilla, 'in choices:av, out advice:s' do |choices|
+      ["Do #{choices[0]}"]
+    end
+  end
+
+  dbus_interface "org.ruby.Loop" do
+    # starts doing something long, but returns immediately
+    # and sends a signal when done
+    dbus_method :LongTaskBegin, 'in delay:i' do |delay|
+# FIXME did not complain about mismatch between signature and block args
+      d "Long task began"
+      task = Thread.new do
+        d "Long task thread started (#{delay}s)"
+        sleep delay
+        d "Long task will signal end"
+        self.LongTaskEnd
+      end
+      task.abort_on_exception = true # protect from test case bugs
+    end
+
+    dbus_signal :LongTaskEnd
+  end
+end
+
+bus = DBus::SessionBus.instance
+service = bus.request_service("org.ruby.service")
+myobj = Test.new("/org/ruby/MyInstance")
+service.export(myobj)
+
+puts "listening"
+main = DBus::Main.new
+main << bus
+main.run
+

data/test/t1

@@ -0,0 +1,4 @@
+#! /bin/sh
+SEND0="dbus-send  --session --dest=org.ruby.service"
+CALL="$SEND0 --type=method_call --print-reply"
+$CALL /org/ruby/MyInstance org.ruby.AnotherInterface.Reverse string:Hello

data/test/t2.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+require "test/unit"
+require "dbus"
+
+class ValueTest < Test::Unit::TestCase
+  def setup
+    session_bus = DBus::SessionBus.instance
+    svc = session_bus.service("org.ruby.service")
+    @obj = svc.object("/org/ruby/MyInstance")
+    @obj.introspect                  # necessary
+    @obj.default_iface = "org.ruby.SampleInterface"
+  end
+
+  def test_passing_an_array_through_a_variant
+    @obj.test_variant(["as", ["coucou", "kuku"]])
+  end
+
+  def test_marshalling_an_array_of_variants
+    # https://trac.luon.net/ruby-dbus/ticket/30
+    choices = []
+    choices << ['s', 'Plan A']
+    choices << ['s', 'Plan B']
+    @obj.default_iface = "org.ruby.Ticket30"
+    p @obj.Sybilla(choices)
+  end
+
+  def test_service_returning_nonarray
+    # "warning: default `to_a' will be obsolete"
+    @obj.the_answer
+  end
+end

data/test/t3-ticket27.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Test passing a particular struct array through a variant
+# https://trac.luon.net/ruby-dbus/ticket/27
+require "dbus"
+session_bus = DBus::SessionBus.instance
+svc = session_bus.service("org.ruby.service")
+obj = svc.object("/org/ruby/MyInstance")
+obj.introspect                  # necessary
+obj.default_iface = "org.ruby.SampleInterface"
+# The bug is probably alignment related so whether it triggers
+# depends also on the combined length of service, interface,
+# and method names. Luckily here it works out.
+triple = ['a(uuu)', []]
+obj.test_variant(triple)
+quadruple = ['a(uuuu)', []]     # a(uuu) works fine
+# The bus disconnects us because of malformed message,
+# code 12: DBUS_INVALID_TOO_MUCH_DATA
+obj.test_variant(quadruple)

data/test/t5-report-dbus-interface.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# should report it missing on org.ruby.SampleInterface
+# (on object...) instead of on DBus::Proxy::ObjectInterface
+require "test/unit"
+require "dbus"
+
+class ErrMsgTest < Test::Unit::TestCase
+  def setup
+    session_bus = DBus::SessionBus.instance
+    svc = session_bus.service("org.ruby.service")
+    @obj = svc.object("/org/ruby/MyInstance")
+    @obj.introspect                  # necessary
+    @obj.default_iface = "org.ruby.SampleInterface"
+  end
+
+  def test_report_dbus_interface
+    begin
+      @obj.NoSuchMethod
+    # a specific exception...
+    rescue NameError => e
+      # mentioning DBus and the interface
+      assert_match(/DBus interface.*#{@obj.default_iface}/, e.to_s)
+    end
+  end
+end
+

data/test/t6-loop.rb

@@ -0,0 +1,85 @@
+#!/usr/bin/env ruby
+# Test the main loop
+require "test/unit"
+require "dbus"
+
+def d(msg)
+  puts "#{$$} #{msg}" if $DEBUG
+end
+
+class MainLoopTest < Test::Unit::TestCase
+  def setup
+    @session_bus = DBus::SessionBus.instance
+    svc = @session_bus.service("org.ruby.service")
+    @obj = svc.object("/org/ruby/MyInstance")
+    @obj.introspect                  # necessary
+    @obj.default_iface = "org.ruby.Loop"
+
+    @loop = DBus::Main.new
+    @loop << @session_bus
+  end
+
+  def teardown
+    # workaround for nonexisting remove_match
+    @session_bus.instance_variable_set(:@signal_matchrules, [])
+  end
+
+  # Hack the library internals so that there is a delay between
+  # sending a DBus call and listening for its reply, so that
+  # the bus has a chance to join the server messages and a race is reproducible
+  def call_lazily
+    class << @session_bus
+      alias :wait_for_message_orig :wait_for_message
+      def wait_for_message_lazy
+        d "I am so lazy"
+        sleep 1    # Give the server+bus a chance to join the messages
+        wait_for_message_orig
+      end
+      alias :wait_for_message :wait_for_message_lazy
+    end
+
+    yield
+
+    # undo
+    class << @session_bus
+      remove_method :wait_for_message
+      remove_method :wait_for_message_lazy
+      alias :wait_for_message :wait_for_message_orig
+    end
+  end
+
+  def test_loop_quit(delay = 1)
+    @obj.on_signal "LongTaskEnd" do
+      d "Telling loop to quit"
+      @loop.quit
+    end
+
+    call_lazily do
+      # The method will sleep the requested amount of seconds
+      # (in another thread)  before signalling LongTaskEnd
+      @obj.LongTaskBegin delay
+    end
+
+    # this thread will make the test fail if @loop.run does not return
+    dynamite = Thread.new do
+      d "Dynamite burning"
+      sleep 2
+      d "Dynamite explodes"
+      # We need to raise in the main thread.
+      # Simply raising here means the exception is ignored
+      # (until dynamite.join which we don't call) or
+      # (if abort_on_exception is set) it terminates the whole script.
+      Thread.main.raise RuntimeError, "The main loop did not quit in time"
+    end
+
+    @loop.run
+    d "Defusing dynamite"
+    # if we get here, defuse the bomb
+    dynamite.exit
+  end
+
+  # https://bugzilla.novell.com/show_bug.cgi?id=537401
+  def test_loop_drained_socket
+    test_loop_quit 0
+  end
+end

data/test/test_all

@@ -0,0 +1,26 @@
+#! /bin/sh
+# run all applicable test cases with proper setup
+# $0 [-a: all, even failing]
+# $0 ./a_single_testcase
+if [ "$1" = "" ]; then
+  : ${CASES:=./t[01234-9]* ./*_test.rb}
+elif [ "$1" = "-a" ]; then
+  : ${CASES:=./t? ./t*-* ./*_test.rb}
+  OPTS=-k
+else
+  : ${CASES:=$@}
+fi
+CASES_A=($CASES)		 # make array
+CASES_A=(${CASES_A[@]/*~/})	 # exclude backup files
+if ! which python >/dev/null; then
+  echo >&2 "Python not found, skipping those tests"
+  CASES_A=(${CASES_A[@]/*.py/})	 # exclude python files
+fi
+
+#export DBUS_VERBOSE=1
+#export RUBYOPT="-d"
+export RUBYOPT="$RUBYOPT -w"
+RUBYLIB=../lib ./test_server $OPTS \
+	./service_newapi.rb \
+	-- \
+	${CASES_A[@]}

data/test/test_server

@@ -0,0 +1,47 @@
+#! /bin/sh
+# A wrapper for DBus tests
+# Sets up a private session bus and calls all its arguments in turn
+# exiting on first failure
+# $0 server [-k] [arg1 arg2...] -- test1 test2...
+set -o errexit
+
+KEEP_GOING=false
+if [ "$1" = "-k" ]; then
+    KEEP_GOING=true
+    shift
+fi
+
+while [ "$1" != "--" ]; do
+  SERVER="$SERVER $1"
+  shift
+done
+shift # --
+
+# This launches the bus daemon,
+# exports DBUS_SESSION_BUS_ADDRESS and sets DBUS_SESSION_BUS_PID
+my_dbus_launch () {
+    # reimplementing dbus-launch because it is in dbus-1-x11.rpm
+    PF=`mktemp --tmpdir dbus.pid.XXXXXX` || exit
+    AF=`mktemp --tmpdir dbus.addr.XXXXXX` || exit
+
+    dbus-daemon --session --print-address=3 3>$AF --print-pid=4 4>$PF &
+    # wait for the daemon to print the info
+    while [ ! -s $AF -a ! -s $PF ]; do sleep 0.1; done
+    DBUS_SESSION_BUS_PID=$(cat $PF)
+    export DBUS_SESSION_BUS_ADDRESS=$(cat $AF)
+    # Clean up at exit. This will also kill the server.
+    trap "kill $DBUS_SESSION_BUS_PID; rm $AF $PF" EXIT TERM INT
+}
+
+my_dbus_launch
+echo -n "Hey, server, get on da bus... "
+# start the server
+$SERVER & sleep 3
+echo "off we go!"
+
+while [ -n "$1" ]; do
+  echo Running $1
+  $1 || $KEEP_GOING
+  shift
+done
+echo Done

metadata

@@ -0,0 +1,106 @@
+--- !ruby/object:Gem::Specification 
+name: mvidner-ruby-dbus
+version: !ruby/object:Gem::Version 
+  version: 0.2.10
+platform: ruby
+authors: 
+- Ruby DBus Team
+autorequire: dbus
+bindir: bin
+cert_chain: []
+
+date: 2009-09-10 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: 
+email: ruby-dbus-devel@lists.luon.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- ChangeLog
+- COPYING
+- README
+- NEWS
+files: 
+- doc/tutorial
+- doc/tutorial/src
+- doc/tutorial/src/00.index.page
+- doc/tutorial/src/10.intro.page
+- doc/tutorial/src/20.basic_client.page
+- doc/tutorial/src/30.service.page
+- doc/tutorial/src/default.css
+- doc/tutorial/src/default.template
+- examples/gdbus
+- examples/gdbus/gdbus
+- examples/gdbus/gdbus.glade
+- examples/gdbus/launch.sh
+- examples/no-introspect
+- examples/no-introspect/nm-test.rb
+- examples/no-introspect/tracker-test.rb
+- examples/rhythmbox
+- examples/rhythmbox/playpause.rb
+- examples/service
+- examples/service/call_service.rb
+- examples/service/service_newapi.rb
+- examples/simple
+- examples/simple/call_introspect.rb
+- examples/utils
+- examples/utils/listnames.rb
+- examples/utils/notify.rb
+- lib/dbus
+- lib/dbus.rb
+- lib/dbus/auth.rb
+- lib/dbus/bus.rb
+- lib/dbus/export.rb
+- lib/dbus/introspect.rb
+- lib/dbus/marshall.rb
+- lib/dbus/matchrule.rb
+- lib/dbus/message.rb
+- lib/dbus/type.rb
+- setup.rb
+- test/Makefile
+- test/bus_driver_test.rb
+- test/service_newapi.rb
+- test/t1
+- test/t2.rb
+- test/t3-ticket27.rb
+- test/t5-report-dbus-interface.rb
+- test/t6-loop.rb
+- test/test_all
+- test/test_server
+- ChangeLog
+- COPYING
+- README
+- NEWS
+has_rdoc: true
+homepage: http://trac.luon.net/data/ruby-dbus/
+licenses: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 2
+summary: Ruby module for interaction with DBus
+test_files: []
+