/usr/share/proton-0.14.0/examples/ruby/example_test.rb is in libqpid-proton8-dev-examples 0.14.0-5.1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | #!/usr/bin/enc ruby
#
# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements. See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership. The ASF licenses this file
# to you 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 'test/unit'
require 'qpid_proton'
require 'socket'
$port = Random.new.rand(10000) + 10000
class ExampleTest < Test::Unit::TestCase
def run_script(script, port)
assert File.exist? script
cmd = [RbConfig.ruby, script]
cmd += ["-a", ":#{port}/examples"] if port
return IO.popen(cmd)
end
def assert_output(script, want, port=nil)
out = run_script(script, port)
assert_equal want, out.read.strip
end
def test_helloworld
assert_output("reactor/helloworld.rb", "Hello world!", $port)
end
def test_send_recv
assert_output("reactor/simple_send.rb", "All 100 messages confirmed!", $port)
want = (0..99).reduce("") { |x,y| x << "Received: sequence #{y}\n" }
assert_output("reactor/simple_recv.rb", want.strip, $port)
end
def test_client_server
want = <<EOS
-> Twas brillig, and the slithy toves
<- TWAS BRILLIG, AND THE SLITHY TOVES
-> Did gire and gymble in the wabe.
<- DID GIRE AND GYMBLE IN THE WABE.
-> All mimsy were the borogroves,
<- ALL MIMSY WERE THE BOROGROVES,
-> And the mome raths outgrabe.
<- AND THE MOME RATHS OUTGRABE.
EOS
srv = run_script("reactor/server.rb", $port)
assert_output("reactor/client.rb", want.strip, $port)
ensure
Process.kill :TERM, srv.pid if srv
end
end
begin
broker = spawn("#{RbConfig.ruby} reactor/broker.rb -a :#{$port}")
# Wait for the broker to be listening.
while true
begin
s = TCPSocket.open "", $port
puts "Broker ready at #{$port}"
s.close
break
rescue Errno::ECONNREFUSED
puts "Retry connection to #{$port}"
sleep(0.1)
end
end
Test::Unit::AutoRunner.run
ensure
Process.kill :TERM, broker if broker
end
|