class Tryouts::Drill::Sergeant::RBenchmark::ComparisonPartial

def initialize( block, options )
  @block1 = block
  @options = options
end

def with( &block2 )
  times1 = []
  times2 = []
  (1..@options[ :iterations ]).each do |iteration|
    if @options[ :verbose ]
      $stdout.print "."; $stdout.flush
    end
    times1 << ::Benchmark.realtime do
      @options[ :inner_iterations ].times do |i|
        @block1.call( iteration )
      end
    end
    times2 << ::Benchmark.realtime do
      @options[ :inner_iterations ].times do |i|
        block2.call( iteration )
      end
    end
  end
  r = RSRuby.instance
  wilcox_result = r.wilcox_test( times1, times2 )
  {
    :results1 => {
      :times => times1,
      :mean => r.mean( times1 ),
      :stddev => r.sd( times1 ),
    },
    :results2 => {
      :times => times2,
      :mean => r.mean( times2 ),
      :stddev => r.sd( times2 ),
    },
    :p => wilcox_result[ 'p.value' ],
    :W => wilcox_result[ 'statistic' ][ 'W' ],
    :significant => (
      wilcox_result[ 'p.value' ] < @options[ :required_significance ]
    ),
  }
end