traceview 3.0.0-java

data/test/frameworks/padrino_test.rb

@@ -0,0 +1,30 @@
+if RUBY_VERSION >= '1.9.3'
+  require "minitest_helper"
+  require File.expand_path(File.dirname(__FILE__) + '/apps/padrino_simple')
+
+  describe Padrino do
+    before do
+      clear_all_traces
+    end
+
+    it "should trace a request to a simple padrino stack" do
+      @app = SimpleDemo
+
+      r = get "/render"
+
+      traces = get_all_traces
+
+      traces.count.must_equal 9
+      valid_edges?(traces).must_equal true
+      validate_outer_layers(traces, 'rack')
+
+      traces[2]['Layer'].must_equal "padrino"
+      traces[7]['Controller'].must_equal "SimpleDemo"
+      traces[8]['Label'].must_equal "exit"
+
+      # Validate the existence of the response header
+      r.headers.key?('X-Trace').must_equal true
+      r.headers['X-Trace'].must_equal traces[8]['X-Trace']
+    end
+  end
+end

data/test/frameworks/sinatra_test.rb

@@ -0,0 +1,30 @@
+require "minitest_helper"
+require File.expand_path(File.dirname(__FILE__) + '/apps/sinatra_simple')
+
+describe Sinatra do
+  before do
+    clear_all_traces
+  end
+
+  it "should trace a request to a simple sinatra stack" do
+    @app = SinatraSimple
+
+    r = get "/render"
+
+    traces = get_all_traces
+
+    traces.count.must_equal 9
+    valid_edges?(traces).must_equal true
+    validate_outer_layers(traces, 'rack')
+
+    traces[2]['Layer'].must_equal "sinatra"
+    traces[4]['Label'].must_equal "profile_entry"
+    traces[7]['Controller'].must_equal "SinatraSimple"
+    traces[8]['Label'].must_equal "exit"
+
+    # Validate the existence of the response header
+    r.headers.key?('X-Trace').must_equal true
+    r.headers['X-Trace'].must_equal traces[8]['X-Trace']
+  end
+end
+

data/test/instrumentation/cassandra_test.rb

@@ -0,0 +1,380 @@
+require 'minitest_helper'
+
+# The cassandra-rb client doesn't support JRuby
+# https://github.com/cassandra-rb/cassandra
+unless defined?(JRUBY_VERSION)
+  describe "Cassandra" do
+    before do
+      clear_all_traces
+
+      @client = Cassandra.new("system", "127.0.0.1:9160", { :timeout => 10 })
+      @client.disable_node_auto_discovery!
+
+      @ks_name = "AppNetaCassandraTest"
+
+      ks_def = CassandraThrift::KsDef.new(:name => @ks_name,
+                :strategy_class => "SimpleStrategy",
+                :strategy_options => { 'replication_factor' => '2' },
+                :cf_defs => [])
+
+      @client.add_keyspace(ks_def) unless @client.keyspaces.include? @ks_name
+      @client.keyspace = @ks_name
+
+      unless @client.column_families.include? "Users"
+        cf_def = CassandraThrift::CfDef.new(:keyspace => @ks_name, :name => "Users")
+        @client.add_column_family(cf_def)
+      end
+
+      unless @client.column_families.include? "Statuses"
+        cf_def = CassandraThrift::CfDef.new(:keyspace => @ks_name, :name => "Statuses")
+        @client.add_column_family(cf_def)
+      end
+
+      # These are standard entry/exit KVs that are passed up with all mongo operations
+      @entry_kvs = {
+        'Layer' => 'cassandra',
+        'Label' => 'entry',
+        'RemoteHost' => '127.0.0.1',
+        'RemotePort' => '9160' }
+
+      @exit_kvs = { 'Layer' => 'cassandra', 'Label' => 'exit' }
+      @collect_backtraces = TraceView::Config[:cassandra][:collect_backtraces]
+    end
+
+    after do
+      TraceView::Config[:cassandra][:collect_backtraces] = @collect_backtraces
+      @client.disconnect!
+    end
+
+    it 'Stock Cassandra should be loaded, defined and ready' do
+      defined?(::Cassandra).wont_match nil
+    end
+
+    it 'Cassandra should have traceview methods defined' do
+      [ :insert, :remove, :count_columns, :get_columns, :multi_get_columns, :get,
+        :multi_get, :get_range_single, :get_range_batch, :get_indexed_slices,
+        :create_index, :drop_index, :add_column_family, :drop_column_family,
+        :add_keyspace, :drop_keyspace ].each do |m|
+        ::Cassandra.method_defined?("#{m}_with_traceview").must_equal true
+      end
+      # Special 'exists?' case
+      ::Cassandra.method_defined?("exists_with_traceview?").must_equal true
+    end
+
+    it 'should trace insert' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        user = {'screen_name' => 'larry', "blah" => "ok"}
+        @client.insert(:Users, '5', user, { :ttl => 600, :consistency => 1})
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "insert"
+      traces[1]['Cf'].must_equal "Users"
+      traces[1]['Key'].must_equal "\"5\""
+      traces[1]['Consistency'].must_equal 1
+      traces[1]['Ttl'].must_equal 600
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace remove' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.remove(:Users, '5', 'blah')
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "remove"
+      traces[1]['Cf'].must_equal "Users"
+      traces[1]['Key'].must_equal "\"5\""
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace count_columns' do
+      @client.insert(:Statuses, '12', {'body' => 'v1', 'user' => 'v2'})
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.count_columns(:Statuses, '12', :count => 50)
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "count_columns"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Key'].must_equal "\"12\""
+      traces[1]['Count'].must_equal 50
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace get_columns' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.get_columns(:Statuses, '12', ['body'])
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "get_columns"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Key'].must_equal "\"12\""
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace multi_get_columns' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.multi_get_columns(:Users, ['12', '5'], ['body'])
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "multi_get_columns"
+      traces[1]['Cf'].must_equal "Users"
+      traces[1]['Key'].must_equal "[\"12\", \"5\"]"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace get' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.get(:Statuses, '12', :reversed => true)
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "get"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Key'].must_equal "\"12\""
+      traces[1]['Reversed'].must_equal "true"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace exists?' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.exists?(:Statuses, '12')
+        @client.exists?(:Statuses, '12', 'body')
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 6
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "exists?"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Key'].must_equal "\"12\""
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+
+      traces[3]['Op'].must_equal "exists?"
+      traces[3]['Cf'].must_equal "Statuses"
+      traces[3]['Key'].must_equal "\"12\""
+      traces[3].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+    end
+
+    it 'should trace get_range_keys' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.get_range_keys(:Statuses, :key_count => 4)
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "get_range_batch"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace create_index' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.create_index(@ks_name, 'Statuses', 'column_name', 'LongType')
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "create_index"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Keyspace'].must_equal @ks_name
+      traces[1]['Column_name'].must_equal "column_name"
+      traces[1]['Validation_class'].must_equal "LongType"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+
+      # Clean up
+      @client.drop_index(@ks_name, 'Statuses', 'column_name')
+    end
+
+    it 'should trace drop_index' do
+      # Prep
+      @client.create_index(@ks_name, 'Statuses', 'column_name', 'LongType')
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.drop_index(@ks_name, 'Statuses', 'column_name')
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "drop_index"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1]['Keyspace'].must_equal @ks_name
+      traces[1]['Column_name'].must_equal "column_name"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace get_indexed_slices' do
+      @client.create_index(@ks_name, 'Statuses', 'x', 'LongType')
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        expressions   =  [
+                           { :column_name => 'x',
+                             :value => [0,20].pack("NN"),
+                             :comparison => "=="},
+                           { :column_name => 'non_indexed',
+                             :value => [5].pack("N*"),
+                             :comparison => ">"} ]
+        @client.get_indexed_slices(:Statuses, expressions).length
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "get_indexed_slices"
+      traces[1]['Cf'].must_equal "Statuses"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace add and remove of column family' do
+      cf_name = (0...10).map{ ('a'..'z').to_a[rand(26)] }.join
+      cf_def = CassandraThrift::CfDef.new(:keyspace => @ks_name, :name => cf_name)
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.add_column_family(cf_def)
+        @client.drop_column_family(cf_name)
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 6
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "add_column_family"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+
+      traces[3]['Op'].must_equal "drop_column_family"
+      traces[3]['Cf'].must_equal cf_name
+      traces[3].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+    end
+
+    it 'should trace adding a keyspace' do
+      ks_name = (0...10).map{ ('a'..'z').to_a[rand(26)] }.join
+      ks_def = CassandraThrift::KsDef.new(:name => ks_name,
+                :strategy_class => "org.apache.cassandra.locator.SimpleStrategy",
+                :strategy_options => { 'replication_factor' => '2' },
+                :cf_defs => [])
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.add_keyspace(ks_def)
+        @client.keyspace = ks_name
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "add_keyspace"
+      traces[1]['Name'].must_equal ks_name
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it 'should trace the removal of a keyspace' do
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        @client.drop_keyspace(@ks_name)
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'cassandra_test')
+
+      validate_event_keys(traces[1], @entry_kvs)
+      traces[1]['Op'].must_equal "drop_keyspace"
+      traces[1]['Name'].must_equal @ks_name
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:cassandra][:collect_backtraces]
+      validate_event_keys(traces[2], @exit_kvs)
+    end
+
+    it "should obey :collect_backtraces setting when true" do
+      TraceView::Config[:cassandra][:collect_backtraces] = true
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        user = {'screen_name' => 'larry', "blah" => "ok"}
+        @client.insert(:Users, '5', user, { :ttl => 600, :consistency => 1})
+      end
+
+      traces = get_all_traces
+      layer_has_key(traces, 'cassandra', 'Backtrace')
+    end
+
+    it "should obey :collect_backtraces setting when false" do
+      TraceView::Config[:cassandra][:collect_backtraces] = false
+
+      TraceView::API.start_trace('cassandra_test', '', {}) do
+        user = {'screen_name' => 'larry', "blah" => "ok"}
+        @client.insert(:Users, '5', user, { :ttl => 600, :consistency => 1})
+      end
+
+      traces = get_all_traces
+      layer_doesnt_have_key(traces, 'cassandra', 'Backtrace')
+    end
+
+  end
+end

data/test/instrumentation/dalli_test.rb

@@ -0,0 +1,171 @@
+require 'minitest_helper'
+
+describe "Dalli" do
+  before do
+    clear_all_traces
+    @dc = Dalli::Client.new
+    @collect_backtraces = TraceView::Config[:dalli][:collect_backtraces]
+  end
+
+  after do
+    TraceView::Config[:dalli][:collect_backtraces] = @collect_backtraces
+  end
+
+  it 'Stock Dalli should be loaded, defined and ready' do
+    defined?(::Dalli).wont_match nil
+    defined?(::Dalli::Client).wont_match nil
+  end
+
+  it 'should have traceview methods defined' do
+    [ :perform_with_traceview, :get_multi_with_traceview].each do |m|
+      ::Dalli::Client.method_defined?(m).must_equal true
+    end
+  end
+
+  it 'should trace set' do
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.set('some_key', 1234)
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 4
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1].has_key?("KVOp").must_equal true
+    traces[1].has_key?("KVKey").must_equal true
+    traces[1]['Layer'].must_equal "memcache"
+    traces[1]['KVKey'].must_equal "some_key"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+  end
+
+  it 'should trace get' do
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.get('some_key')
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 5
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "get"
+    traces[1]['KVKey'].must_equal "some_key"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+    traces[2]['Label'].must_equal "info"
+    traces[2].has_key?('KVHit').must_equal true
+    traces[3]['Label'].must_equal "exit"
+  end
+
+  it 'should trace get_multi' do
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.get_multi([:one, :two, :three, :four, :five, :six])
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 5
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "get_multi"
+    traces[2]['Label'].must_equal "info"
+    traces[2]['RemoteHost'].must_equal "127.0.0.1:11211"
+    traces[2].has_key?('KVKeyCount').must_equal true
+    traces[2].has_key?('KVHitCount').must_equal true
+    traces[3]['Label'].must_equal "exit"
+  end
+
+  it "should trace increment" do
+    @dc.incr("dalli_key_counter", 1, nil, 0)
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.incr("dalli_key_counter")
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 4
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "incr"
+    traces[1]['KVKey'].must_equal "dalli_key_counter"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+    traces[2]['Label'].must_equal "exit"
+  end
+
+  it "should trace decrement" do
+    @dc.incr("dalli_key_counter", 1, nil, 0)
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.decr("dalli_key_counter")
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 4
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "decr"
+    traces[1]['KVKey'].must_equal "dalli_key_counter"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+    traces[2]['Label'].must_equal "exit"
+  end
+
+  it "should trace replace" do
+    @dc.set('some_key', 1)
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.replace("some_key", "woop")
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 4
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "replace"
+    traces[1]['KVKey'].must_equal "some_key"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+    traces[2]['Label'].must_equal "exit"
+  end
+
+  it "should trace delete" do
+    @dc.set('some_key', 1)
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.delete("some_key")
+    end
+
+    traces = get_all_traces
+    traces.count.must_equal 4
+
+    validate_outer_layers(traces, 'dalli_test')
+
+    traces[1]['KVOp'].must_equal "delete"
+    traces[1]['KVKey'].must_equal "some_key"
+    traces[1]['RemoteHost'].must_equal "127.0.0.1:11211"
+  end
+
+  it "should obey :collect_backtraces setting when true" do
+    @dc.set('some_key', 1)
+    TraceView::Config[:dalli][:collect_backtraces] = true
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.get('some_key')
+    end
+
+    traces = get_all_traces
+    layer_has_key(traces, 'memcache', 'Backtrace')
+  end
+
+  it "should obey :collect_backtraces setting when false" do
+    TraceView::Config[:dalli][:collect_backtraces] = false
+
+    TraceView::API.start_trace('dalli_test', '', {}) do
+      @dc.get('some_key')
+    end
+
+    traces = get_all_traces
+    layer_doesnt_have_key(traces, 'memcache', 'Backtrace')
+  end
+end

data/test/instrumentation/em_http_request_test.rb

@@ -0,0 +1,86 @@
+require 'minitest_helper'
+
+# Disable this test on JRuby until we can investigate
+# "SOCKET: SET COMM INACTIVITY UNIMPLEMENTED 10"
+# https://travis-ci.org/appneta/traceview-ruby/jobs/33745752
+if RUBY_VERSION >= '1.9' and TraceView::Config[:em_http_request][:enabled] and not defined?(JRUBY_VERSION)
+
+  describe "EventMachine" do
+    before do
+      clear_all_traces
+      @collect_backtraces = TraceView::Config[:em_http_request][:collect_backtraces]
+    end
+
+    after do
+      TraceView::Config[:em_http_request][:collect_backtraces] = @collect_backtraces
+    end
+
+    it 'EventMachine::HttpConnection should be loaded, defined and ready' do
+      defined?(::EventMachine::HttpConnection).wont_match nil
+    end
+
+    it 'should have traceview methods defined' do
+      ::EventMachine::HttpConnection.method_defined?("setup_request_with_traceview").must_equal true
+    end
+
+    it 'should trace request' do
+      TraceView::API.start_trace('em-http-request_test', '', {}) do
+        EventMachine.run do
+          http = EventMachine::HttpRequest.new('http://appneta.com/').get
+          http.callback do
+            EventMachine.stop
+          end
+        end
+      end
+
+      traces = get_all_traces
+
+      traces.count.must_equal 4
+      validate_outer_layers(traces, 'em-http-request_test')
+
+      traces[1]["Layer"].must_equal "em-http-request"
+      traces[1]["Label"].must_equal "entry"
+      traces[1]["IsService"].must_equal "1"
+      traces[1]["RemoteURL"].must_equal "http://appneta.com/"
+      traces[1].has_key?('Backtrace').must_equal TraceView::Config[:em_http_request][:collect_backtraces]
+
+      traces[2]["Layer"].must_equal "em-http-request"
+      traces[2]["Label"].must_equal "exit"
+      traces[2]["Async"].must_equal "1"
+      traces[2].has_key?('Backtrace').must_equal TraceView::Config[:em_http_request][:collect_backtraces]
+    end
+
+    it "should obey :collect_backtraces setting when true" do
+      TraceView::Config[:em_http_request][:collect_backtraces] = true
+
+      TraceView::API.start_trace('em-http-request_test', '', {}) do
+        EventMachine.run do
+          http = EventMachine::HttpRequest.new('http://appneta.com/').get
+          http.callback do
+            EventMachine.stop
+          end
+        end
+      end
+
+      traces = get_all_traces
+      layer_has_key(traces, 'em-http-request', 'Backtrace')
+    end
+
+    it "should obey :collect_backtraces setting when false" do
+      TraceView::Config[:em_http_request][:collect_backtraces] = false
+
+      TraceView::API.start_trace('em-http-request_test', '', {}) do
+        EventMachine.run do
+          http = EventMachine::HttpRequest.new('http://appneta.com/').get
+          http.callback do
+            EventMachine.stop
+          end
+        end
+      end
+
+      traces = get_all_traces
+      layer_doesnt_have_key(traces, 'em-http-request', 'Backtrace')
+    end
+  end
+
+end # unless defined?(JRUBY_VERSION)