riel 1.1.17 → 1.2.0

data/test/riel/optproc_test.rb

@@ -1,202 +0,0 @@
-#!/usr/bin/ruby -w
-# -*- ruby -*-
-
-require 'pathname'
-require 'tempfile'
-require 'test/unit'
-require 'riel/optproc'
-
-class OptProcTestCase < Test::Unit::TestCase
-  def setup
-    # ignore what they have in ENV[HOME]    
-    ENV['HOME'] = '/this/should/not/exist'
-  end
-
-  def run_match_tag_test opt, exp, tag
-    m = opt.match [ tag ]
-    match = nil
-    if exp.respond_to? :include?
-      match = exp.include? m
-    else
-      match = exp == m
-    end
-    assert match, "match_tag(#{tag}): expected: #{exp.inspect}; actual: #{m.inspect}"
-  end
-  
-  def test_match_tag
-    @after = "nothing"
-    opt = OptProc::Option.new :tags => %w{ --after-context -A }, :arg => [ :integer ]
-    
-    %w{ --after-context --after-context=3 -A }.each do |tag|
-      run_match_tag_test opt, 1.0, tag
-    end
-
-    run_match_tag_test opt, nil, '-b'
-    
-    # we don't support case insensitivity (which is insensitive of us):
-    %w{ --After-Context --AFTER-CONTEXT=3 -a }.each do |tag|
-      run_match_tag_test opt, nil, tag
-    end
-
-    %w{ --after --after=3 }.each do |tag|
-      run_match_tag_test opt, 0.07, tag
-    end
-
-    %w{ --after-cont --after-cont=3 }.each do |tag|
-      run_match_tag_test opt, 0.12, tag
-    end
-
-    %w{ --aft --aft=3 }.each do |tag|
-      run_match_tag_test opt, 0.05, tag
-    end
-  end
-
-  def run_match_value_test opt, exp, val
-    m = opt.match_value val
-    assert !!m == !!exp, "match value #{val}; expected: #{exp.inspect}; actual: #{m.inspect}"
-  end
-
-  def test_value_none
-    opt = OptProc::Option.new(:arg  => [ :none ])
-
-    {
-      '34'    => nil,
-      '43'    => nil,
-      '34.12' => nil
-    }.each do |val, exp|
-      run_match_value_test opt, exp, val
-    end
-  end
-
-  def test_value_integer
-    opt = OptProc::Option.new(:arg => [ :integer ])
-
-    {
-      '34'    => true,
-      '43'    => true,
-      '34.12' => nil,
-      '-34'   => true,
-      '+34'   => true,
-    }.each do |val, exp|
-      run_match_value_test opt, exp, val
-    end
-  end
-
-  def test_value_float
-    opt = OptProc::Option.new(:arg  => [ :float ])
-
-    {
-      '34'    => true,
-      '43'    => true,
-      '34.12' => true,
-      '.12'   => true,
-      '.'     => false,
-      '12.'   => false,
-    }.each do |val, exp|
-      run_match_value_test opt, exp, val
-    end
-  end
-
-  def test_value_string
-    opt = OptProc::Option.new(:arg  => [ :string ])
-
-    {
-      '34'    => true,
-      '43'    => true,
-      '34.12' => true,
-      '.12'   => true,
-      '.'     => true,
-      '12.'   => true,
-      'hello' => true,
-      'a b c' => true,
-      ''      => true,
-    }.each do |val, exp|
-      [ 
-        '"' + val + '"',
-        "'" + val + "'",
-        val,
-      ].each do |qval|
-        run_match_value_test opt, exp, qval
-      end
-    end
-  end
-
-  def test_after_context_float
-    @after = nil
-    opt = OptProc::Option.new(:tags => %w{ --after-context -A },
-                              :arg  => [ :required, :float ],
-                              :set  => Proc.new { |val| @after = val })
-    [ 
-      %w{ --after-context 3 },
-      %w{ --after-context=3 },
-      %w{ -A              3 },
-    ].each do |args|
-      @after = nil
-
-      m = opt.match args
-      assert_equal 1.0, m, "args: #{args.inspect}"
-      # curr = args.shift
-      opt.set_value args
-      assert_equal 3.0, @after
-    end
-  end
-
-  def test_regexp_option
-    @after = nil
-    opt = OptProc::Option.new(:res  => %r{ ^ - ([1-9]\d*) $ }x,
-                              :tags => %w{ --context -C },
-                              :arg  => [ :optional, :integer ],
-                              :set  => Proc.new { |val| @ctx = val })
-    [ 
-      %w{ --context 3 },
-      %w{ --context=3 },
-      %w{ -C        3 },
-    ].each do |args|
-      @ctx = nil
-
-      m = opt.match args
-      assert_equal 1.0, m, "args: #{args.inspect}"
-      opt.set_value args
-      assert_equal 3, @ctx
-    end
-
-    vals = (1 .. 10).to_a  | (1 .. 16).collect { |x| 2 ** x }
-    # vals = [ 4 ]
-    vals.each do |val|
-      args = [ '-' + val.to_s, 'foo' ]
-
-      @ctx = nil
-
-      m = opt.match args
-      assert_equal 1.0, m, "args: #{args.inspect}"
-      opt.set_value args
-      assert_equal val, @ctx
-    end
-  end
-
-  def test_value_regexp
-    @range_start = nil
-    opt = OptProc::Option.new(:tags => %w{ --after },
-                              :arg  => [ :required, :regexp, %r{ ^ (\d+%?) $ }x ],
-                              :set  => Proc.new { |md| @range_start = md[1] })
-    
-    %w{ 5 5% 10 90% }.each do |rg|
-      [
-        [ '--after',   rg ],
-        [ '--after=' + rg ]
-      ].each do |args|
-        @range_start = nil
-        
-        m = opt.match args
-        assert_equal 1.0, m, "args: #{args.inspect}"
-        opt.set_value args
-        assert_equal rg, @range_start
-      end
-    end
-  end
-
-end
-
-if __FILE__ == $0
-  Log.level = Log::DEBUG
-end

data/test/riel/testlog/log_stack_test.rb

@@ -1,98 +0,0 @@
-#!/usr/bin/ruby -w
-# -*- ruby -*-
-
-require 'pathname'
-require 'test/unit'
-require 'stringio'
-require 'riel/log'
-
-class LogAbyss
-  include Loggable
-
-  def squeal
-    log "hello from the abyss"
-    stack "turtles all the way down"
-  end
-end
-
-class LogDepths
-  include Loggable
-
-  def speak
-    log "hello from the depths"
-    la = LogAbyss.new
-    la.squeal
-  end
-end
-
-class LogInner
-  include Loggable
-
-  def screech
-    ldi = LogDepths.new
-    log "hello from the innerds"
-    ldi.speak
-  end
-end
-
-class LogStackTestCase < Test::Unit::TestCase
-  include Loggable
-
-  def test_stack
-    Log.set_widths(-15, 4, -40)
-    
-    log = Proc.new { 
-      li = LogInner.new
-      li.screech
-    }
-
-    expected_output = [
-                       "[            ...:  33] {LogInner#screech                        } hello from the innerds",
-                       "[            ...:  22] {LogDepths#speak                         } hello from the depths",
-                       "[            ...:  13] {LogAbyss#squeal                         } hello from the abyss",
-                       "[            ...:  14] {LogAbyss#squeal                         } turtles all the way down",
-                       "[            ...:  24] {speak                                   } ",
-                       "[            ...:  34] {screech                                 } ",
-                      ]
-
-    run_test @verbose_setup, log, *expected_output
-  end
-
-  # the ctor is down here so the lines above are less likely to change.
-  def initialize test, name = nil
-    @nonverbose_setup = Proc.new {
-      Log.verbose = false
-      Log.output  = StringIO.new
-    }
-    
-    @verbose_setup = Proc.new {
-      Log.verbose = true
-      Log.output  = StringIO.new
-    }
-
-    super test
-  end
-
-  def run_test setup, log, *expected
-    io = setup.call
-    puts "io: #{io}"
-
-    log.call
-
-    assert_not_nil io
-    str = io.string
-    assert_not_nil str
-
-    lines = str.split "\n"
-
-    puts lines
-
-    (0 ... expected.size).each do |idx|
-      if expected[idx]
-        assert_equal expected[idx], lines[idx], "index: #{idx}"
-      end
-    end
-
-    Log.output = io
-  end
-end

data/test/riel/testlog/log_test.rb

@@ -1,254 +0,0 @@
-#!/usr/bin/ruby -w
-# -*- ruby -*-
-
-require 'pathname'
-require 'test/unit'
-require 'stringio'
-require 'riel/log'
-require 'riel/testlog/logtestee'
-
-class LogTestCase < Test::Unit::TestCase
-  include Loggable
-
-  def test_no_output
-    # I could make this an instance variable, but I want to check the method
-    # names in the output string.
-
-    log = Proc.new { 
-      Log.log   "hello, world?"
-      Log.debug "hello, world?"
-      Log.info  "hello, world?"
-      Log.warn  "EXPECTED OUTPUT TO STDERR: hello, world." # will go to stderr
-      Log.error "EXPECTED OUTPUT TO STDERR: hello, world." # will go to stderr
-      Log.stack "hello, world?"
-    }
-    
-    run_test @nonverbose_setup, log
-  end
-
-  def test_output_arg
-    log = Proc.new { 
-      Log.log   "hello, world?"
-      Log.debug "hello, world?"
-      Log.info  "hello, world?"
-      Log.warn  "hello, world?"
-      Log.error "hello, world?"
-      Log.stack "hello, world?"
-    }
-
-    methname = if RUBY_VERSION == "1.8.7" then "test_output_arg" else "block in test_output_arg" end
-
-    expected = Array.new
-    (1 .. 6).each do |lnum|
-      expected << sprintf("[   ...testlog/log_test.rb:  %2d] {%-20s} hello, world?", 30 + lnum, methname[0 .. 19])
-    end
-    expected << "[   ...testlog/log_test.rb: 234] {call                } "
-    expected << "[   ...testlog/log_test.rb: 234] {run_test            } "
-    expected << "[   ...testlog/log_test.rb:  49] {test_output_arg     } "
-    
-    run_test @verbose_setup, log, *expected
-  end
-
-  def test_output_block
-    log = Proc.new { 
-      Log.log { "output block" }
-    }
-    
-    Log.set_default_widths
-    # run_test @verbose_setup, log, "[ ...test/riel/log_test.rb:  73] {test_output_block   } output block"
-
-    info_setup = Proc.new {
-      Log.level = Log::INFO
-      Log.output  = StringIO.new
-    }
-
-    evaluated = false
-    log = Proc.new { 
-      Log.debug { evaluated = true; "hello, world?" }
-    }
-    
-    # run_test info_setup, log
-    
-    assert_equal false, evaluated
-  end
-
-  def test_instance_log
-    log = Proc.new { 
-      log "hello, world?"
-    }
-    
-    Log.set_widths(-15, 4, -40)
-    # the class name is different in 1.8 and 1.9, so we won't test it.
-    # run_test(@verbose_setup, log, "[ ...log_test.rb:  96] {LogTestCase#test_instance_log           } hello, world?")
-    run_test @verbose_setup, log, nil
-
-    Log.set_default_widths
-  end
-
-  def test_colors
-    log = Proc.new { 
-      white "white wedding"
-      blue "blue iris"
-      on_cyan "red"
-    }
-
-    # test_col has become 'block in test colors' in 1.9
-    # run_test(@verbose_setup, log,
-    #          "[ ...test/riel/log_test.rb: 107] {LogTestCase#test_col} \e[37mwhite wedding\e[0m",
-    #          "[ ...test/riel/log_test.rb: 108] {LogTestCase#test_col} \e[34mblue iris\e[0m",
-    #          "[ ...test/riel/log_test.rb: 109] {LogTestCase#test_col} \e[46mred\e[0m")
-
-    Log.set_default_widths
-  end
-
-  def run_format_test(expected, &blk)
-    Log.verbose = true
-    io = StringIO.new
-    Log.output = io
-    Log.set_default_widths
-
-    blk.call
-
-    lt = LogTestee.new
-    lt.format_test
-
-    puts io.string
-
-    assert_equal expected.join(''), io.string
-    
-    Log.set_default_widths
-  end
-
-  def test_format_default
-    puts "test_format_default"
-
-    expected = Array.new
-    expected << "[  ...testlog/logtestee.rb:  10] {format_test         } tamrof\n"
-
-    run_format_test expected do
-      Log.set_default_widths
-    end
-  end
-
-  def test_format_flush_filename_left
-    puts "test_format_flush_filename_left"
-    
-    expected = Array.new
-    expected << "[  ...test/riel/testlog/logtestee.rb:  10] {format_test         } tamrof\n"
-
-    run_format_test expected do
-      Log.set_widths(-35, Log::DEFAULT_LINENUM_WIDTH, Log::DEFAULT_FUNCTION_WIDTH)
-    end
-  end
-
-  def test_format_flush_linenum_left
-    puts "test_format_flush_linenum_left"
-
-    expected = Array.new
-    expected << "[  ...testlog/logtestee.rb:10        ] {format_test         } tamrof\n"
-
-    run_format_test expected do
-      Log.set_widths(Log::DEFAULT_FILENAME_WIDTH, -10, Log::DEFAULT_FUNCTION_WIDTH)
-    end
-  end
-
-  def test_format_flush_function_right
-    puts "test_format_flush_function_right"
-
-    expected = Array.new
-    expected << "[  ...testlog/logtestee.rb:  10] {                        format_test} tamrof\n"
-
-    run_format_test expected do
-      Log.set_widths(Log::DEFAULT_FILENAME_WIDTH, Log::DEFAULT_LINENUM_WIDTH, 35)
-    end
-  end
-
-  def test_format_pad_linenum_zeros
-    puts "test_format_pad_linenum_zeros"
-    
-    expected = Array.new
-    expected << "[  ...testlog/logtestee.rb:00000010] {format_test         } tamrof\n"
-
-    run_format_test expected do
-      Log.set_widths(Log::DEFAULT_FILENAME_WIDTH, "08", Log::DEFAULT_FUNCTION_WIDTH)
-    end
-  end
-
-  def test_color
-    Log.verbose = true
-    io = StringIO.new
-    Log.output = io
-    Log.set_default_widths
-    
-    expected = Array.new
-    expected << "[  ...testlog/logtestee.rb:   6] {color_test          } azul\n"
-    
-    lt = LogTestee.new
-    lt.color_test
-
-    puts io.string
-
-    assert_equal expected.join(''), io.string
-  end
-
-  # the ctor is down here so the lines above are less likely to change.
-  def initialize test, name = nil
-    @nonverbose_setup = Proc.new {
-      Log.verbose = false
-      Log.output  = StringIO.new
-    }
-    
-    @verbose_setup = Proc.new {
-      Log.verbose = true
-      Log.output  = StringIO.new
-    }
-
-    super test
-  end
-
-  def exec_test setup, log, expected = Array.new
-    io = setup.call
-
-    log.call
-
-    assert_not_nil io
-    str = io.string
-    assert_not_nil str
-
-    lines = str.split "\n"
-
-    unless expected.empty?
-      (0 ... expected.size).each do |idx|
-        if expected[idx]
-          assert_equal expected[idx], lines[idx], "index: #{idx}"
-        end
-      end
-    end
-
-    Log.output = io
-  end
-
-  def run_test setup, log, *expected
-    io = setup.call
-
-    log.call
-
-    assert_not_nil io
-    str = io.string
-    assert_not_nil str
-
-    lines = str.split "\n"
-
-    (0 ... expected.size).each do |idx|
-      if expected[idx]
-        assert_equal expected[idx], lines[idx], "index: #{idx}"
-      end
-    end
-
-    Log.output = io
-  end
-
-  def test_respond_to_color
-    assert Log.respond_to? :blue
-  end
-end

data/test/riel/testlog/loggable_test.rb

@@ -1,31 +0,0 @@
-#!/usr/bin/ruby -w
-# -*- ruby -*-
-
-require 'pathname'
-require 'test/unit'
-require 'stringio'
-require 'riel/log/log'
-require 'riel/log/loggable'
-require 'riel/testlog/lgbl_testee'
-
-class LoggableTestCase < Test::Unit::TestCase
-  include RIEL::Loggable
-
-  def test_instance_colors
-    RIEL::Log.verbose = true
-    io = StringIO.new
-    RIEL::Log.output = io
-
-    expected = Array.new
-    expected << "[...testlog/lgbl_testee.rb:  11] {LgblTestee#crystal  } hello!\n"
-    expected << "[...testlog/lgbl_testee.rb:  12] {LgblTestee#crystal  } azul ... \n"
-    expected << "[...testlog/lgbl_testee.rb:  13] {LgblTestee#crystal  } rojo?\n"
-    
-    te = LgblTestee.new
-    te.crystal
-
-    # puts io.string
-
-    assert_equal expected.join(''), io.string
-  end
-end