sexp_benchmark.rb

require 'benchmark'

require 'sexpistol'
require 'sxp'

example_sexp = <<-EOD
((display "This is a test string!")

(define test (lambda () (begin
  (display (== 1 1))
  (display (== true true))
  (display (== false false))
  (display (== nil nil))
  (display (== 2.09 1.08))
  (display (== 2e6 2e12))
))))
EOD

Benchmark.bmbm do |b|
  b.report("Sexpistol") do
    parser = Sexpistol.new
    5000.times do
      test = parser.parse_string(example_sexp)
    end
  end
  
  b.report("SXP") do
    5000.times do
      test = SXP.read(example_sexp)
    end
  end
end