yield_test.rb

class YieldTest < PicoRubyTest
  desc "do block 1"
  assert_equal(<<~'RUBY', "Hello Ruby")
    def my_method(m)
      yield m
    end
    my_method("Ruby") do |v|
      puts "Hello #{v}"
    end
  RUBY

  desc "do block 2"
  assert_equal(<<~'RUBY', "Hello PicoRuby")
    def my_method(m, n)
     yield m, n
    end
    my_method("Ruby", "Pico") do |v, x|
      puts "Hello #{x}#{v}"
    end
  RUBY

  desc "bang yield self"
  assert_equal(<<~'RUBY', "false")
    def my_method
      puts false  if ! yield self
    end
    my_method do
      false
    end
  RUBY

  desc "yield in nested irep"
  assert_equal(<<~'RUBY', "Hello Ruby")
    def exec(sql, bind_vars = [])
      bind_vars.each do |v|
        yield v
      end
    end
    result = []
    exec("insert into test (a, b) values (?, ?)", ["Hello", "Ruby"]) do |v|
      result << v
    end
    puts result.join(" ")
  RUBY
end