rfs 0.1

data/lib/innate/string.rb

@@ -0,0 +1,56 @@
+class String
+  def split_with_separator(pattern)
+    pos = 0
+    result = []
+    separator = nil
+    t = self
+    loop do
+      t = t[pos...length]
+      m = pattern.match(t)
+      unless m
+        return result << yield(separator, t) if block_given?
+        return result << [separator, t]
+      end
+      if block_given?
+        result << yield(separator, m.pre_match)
+      else
+        result << [separator, m.pre_match]
+      end
+      separator = m[0]
+      pos = m.offset(0).last
+    end
+    result
+  end
+
+  def starts_with?(*s)
+    s.flatten.each do |t|
+      return t if self[0...t.length].strip == t.strip
+    end
+    nil
+  end
+
+  def starts_with_i?(*s)
+    s.flatten.each do |t|
+      return t if self[0...t.length].upcase.strip == t.upcase.strip
+    end
+    nil
+  end
+
+  def prefix_to?(*s)
+    v = strip
+    return false if v.length == 0
+    s.flatten.each do |t|
+      return t if t[0...v.length].strip == v
+    end
+    nil
+  end
+
+  def prefix_to_i?(*s)
+    v = strip
+    return false if v.length == 0
+    s.flatten.each do |t|
+      return t if t[0...v.length].upcase.strip == v.upcase
+    end
+    nil
+  end
+end

data/lib/innate/test/all_tests.rb

@@ -0,0 +1,11 @@
+require 'testarray'
+require 'testfile'
+require 'testfilelines'
+require 'testkernel'
+require 'testmkdirs'
+require 'testregexp'
+require 'testreload'
+require 'testroman'
+require 'testscriptlines'
+require 'teststring'
+require 'testtitlecase'

data/lib/innate/test/files/mkdirs_dummy.file

@@ -0,0 +1 @@
+

data/lib/innate/test/files/reloadtarget.rb

@@ -0,0 +1,5 @@
+def targetfn
+  yield 'start 2'
+  sleep(1)
+  'function2'
+end

data/lib/innate/test/files/reloadtarget1.rb

@@ -0,0 +1,5 @@
+def targetfn
+  yield 'start 1'
+  sleep(2)
+  'function1'
+end

data/lib/innate/test/files/reloadtarget2.rb

@@ -0,0 +1,5 @@
+def targetfn
+  yield 'start 2'
+  sleep(1)
+  'function2'
+end

data/lib/innate/test/test_coverage.rb

@@ -0,0 +1,13 @@
+require 'innate/coverage'
+require '../array'
+require '../file'
+require '../filelines'
+require '../kernel'
+require '../mkdirs'
+require '../regexp'
+require '../reload'
+require '../roman'
+require '../scriptlines'
+require '../string'
+require '../titlecase'
+require 'all_tests'

data/lib/innate/test/testarray.rb

@@ -0,0 +1,98 @@
+require 'test/unit'
+require 'innate/array'
+
+class TestArray < Test::Unit::TestCase
+  def test_match_string
+    assert ['hello', 'bye'].match?('bye')
+    assert ['something', 'aoeu'].match?('something')
+    assert_nil ['ueao', ';e', 'ueo'].match?('zzzzz')
+  end
+
+  def test_match_regexp
+    assert ['aoeu', /z/, /a/].match?('claw')
+    assert [/yes/, 'no', /no/].match?('yes')
+    assert [/yes/, 'no', /no/].match?('no')
+    assert_nil ['aoeu', /z/, /a/].match?('xxxx')
+  end
+
+  def test_rows
+    a = %w{ %                         &              *             **                     +                      +@
+    -                         -@             /             <                      <<                     <=
+    <=>                       ==             ===           =~                     >                      >=
+    >>                        []             ^             __id__                 __send__               abs
+    between?                  ceil           chr           class                  clone                  coerce
+    denominator               display        div           divmod                 downto                 dup
+    eql?                      equal?         extend        floor                  freeze                 frozen?
+    gcd                       gcd2           gcdlcm        hash                   id                     id2name
+    inspect                   instance_eval  instance_of?  instance_variable_get  instance_variable_set  instance_variables
+    integer?                  is_a?          kind_of?      lcm                    method                 methods
+    modulo                    next           nil?          nonzero?               numerator              object_id
+    power!                    prec           prec_f        prec_i                 private_methods        protected_methods
+    public_methods            quo            rdiv          remainder              require                require_gem
+    require_gem_with_options  respond_to?    round         rpower                 send                   singleton_method_added
+    singleton_methods         size           step          succ                   taint                  tainted?
+    times                     to_a           to_bn         to_f                   to_i                   to_int
+    to_r                      to_s           to_sym        truncate               type                   untaint
+    upto                      zero?          |             ~}
+    
+    s = "%                         &              *             **                     +                      +@                    \n" +
+        "-                         -@             /             <                      <<                     <=                    \n" +
+        "<=>                       ==             ===           =~                     >                      >=                    \n" +
+        ">>                        []             ^             __id__                 __send__               abs                   \n" +
+        "between?                  ceil           chr           class                  clone                  coerce                \n" +
+        "denominator               display        div           divmod                 downto                 dup                   \n" +
+        "eql?                      equal?         extend        floor                  freeze                 frozen?               \n" +
+        "gcd                       gcd2           gcdlcm        hash                   id                     id2name               \n" +
+        "inspect                   instance_eval  instance_of?  instance_variable_get  instance_variable_set  instance_variables    \n" +
+        "integer?                  is_a?          kind_of?      lcm                    method                 methods               \n" +
+        "modulo                    next           nil?          nonzero?               numerator              object_id             \n" +
+        "power!                    prec           prec_f        prec_i                 private_methods        protected_methods     \n" +
+        "public_methods            quo            rdiv          remainder              require                require_gem           \n" +
+        "require_gem_with_options  respond_to?    round         rpower                 send                   singleton_method_added\n" +
+        "singleton_methods         size           step          succ                   taint                  tainted?              \n" +
+        "times                     to_a           to_bn         to_f                   to_i                   to_int                \n" +
+        "to_r                      to_s           to_sym        truncate               type                   untaint               \n" +
+        "upto                      zero?          |             ~                                                                   "
+
+    assert_equal s, a.rows(130, 2, ' ')
+  end
+
+  def test_columns
+    a = %w{ %                         &              *             **                     +                      +@
+    -                         -@             /             <                      <<                     <=
+    <=>                       ==             ===           =~                     >                      >=
+    >>                        []             ^             __id__                 __send__               abs
+    between?                  ceil           chr           class                  clone                  coerce
+    denominator               display        div           divmod                 downto                 dup
+    eql?                      equal?         extend        floor                  freeze                 frozen?
+    gcd                       gcd2           gcdlcm        hash                   id                     id2name
+    inspect                   instance_eval  instance_of?  instance_variable_get  instance_variable_set  instance_variables
+    integer?                  is_a?          kind_of?      lcm                    method                 methods
+    modulo                    next           nil?          nonzero?               numerator              object_id
+    power!                    prec           prec_f        prec_i                 private_methods        protected_methods
+    public_methods            quo            rdiv          remainder              require                require_gem
+    require_gem_with_options  respond_to?    round         rpower                 send                   singleton_method_added
+    singleton_methods         size           step          succ                   taint                  tainted?
+    times                     to_a           to_bn         to_f                   to_i                   to_int
+    to_r                      to_s           to_sym        truncate               type                   untaint
+    upto                      zero?          |             ~}
+    
+    s = "%    ===       clone        gcd                    kind_of?   private_methods           singleton_methods  to_sym  \n" +
+        "&    =~        coerce       gcd2                   lcm        protected_methods         size               truncate\n" +
+        "*    >         denominator  gcdlcm                 method     public_methods            step               type    \n" +
+        "**   >=        display      hash                   methods    quo                       succ               untaint \n" +
+        "+    >>        div          id                     modulo     rdiv                      taint              upto    \n" +
+        "+@   []        divmod       id2name                next       remainder                 tainted?           zero?   \n" +
+        "-    ^         downto       inspect                nil?       require                   times              |       \n" +
+        "-@   __id__    dup          instance_eval          nonzero?   require_gem               to_a               ~       \n" +
+        "/    __send__  eql?         instance_of?           numerator  require_gem_with_options  to_bn                      \n" +
+        "<    abs       equal?       instance_variable_get  object_id  respond_to?               to_f                       \n" +
+        "<<   between?  extend       instance_variable_set  power!     round                     to_i                       \n" +
+        "<=   ceil      floor        instance_variables     prec       rpower                    to_int                     \n" +
+        "<=>  chr       freeze       integer?               prec_f     send                      to_r                       \n" +
+        "==   class     frozen?      is_a?                  prec_i     singleton_method_added    to_s                       "
+
+    assert_equal s, a.columns(130, 2, ' ')
+  end     
+  
+end

data/lib/innate/test/testfile.rb

@@ -0,0 +1,15 @@
+require 'innate/file'
+require 'test/unit'
+
+class TestFile < Test::Unit::TestCase
+  def test_absolute_path?
+    assert_equal './hello', File.absolute_path?('./hello')
+    assert_equal 'F:/som/eo/the/r/path.abc', File.absolute_path?('F:/som/eo/the/r/path.abc')
+    assert_equal 'f:/som/eo/the/r/path.abc', File.absolute_path?('f:/som/eo/the/r/path.abc')
+    assert_equal '../some path/here/../or/./there.rb', File.absolute_path?('../some path/here/../or/./there.rb')
+    assert_equal '/some path/here/../or/./there.rb', File.absolute_path?('/some path/here/../or/./there.rb')
+    assert_nil File.absolute_path?('some path/here/../or/./there.rb')
+    assert_nil File.absolute_path?('somefile')
+    assert_nil File.absolute_path?('someruby.rb')
+  end
+end

data/lib/innate/test/testfilelines.rb

@@ -0,0 +1,106 @@
+# this first line is here for testing.
+
+require 'test/unit'
+require 'cursor/indexed'
+require 'innate/filelines'
+
+class TestFileLines < Test::Unit::TestCase
+  def setup
+    @file = File.open __FILE__
+    @fl = FileLines.new __FILE__
+    @first = "# this first line is here for testing.\n"
+    @last = "# this last line is here for testing."
+  end
+
+  def teardown
+    @file.close
+  end
+
+  def test_each
+    @fl.each do |l|
+      assert_equal @file.readline, l
+    end
+  end
+
+  def test_range
+    assert_equal @file.readlines[5...15], @fl[5...15]
+  end
+
+  def test_index
+    assert_equal @file.readlines[17], @fl[17]
+  end
+
+  def test_values_at
+    assert_equal @file.readlines.values_at(0..7, 9, 20...60), @fl.values_at(0..7, 9, 20...60)
+  end
+
+  def test_values_at2
+    assert_equal @file.readlines.values_at(0..7, 9, 20...-60), @fl.values_at(0..7, 9, 20...-60)
+  end
+
+  def test_enumerable
+    a = @file.readlines.reverse.to_cursor
+    @fl.reverse_each do |l|
+      assert_equal a.read1next, l
+    end
+  end
+
+  def test_length
+    assert_equal @file.readlines.length, @fl.length
+  end
+
+  def test_size
+    assert_equal @file.readlines.length, @fl.size
+  end
+
+  def test_known_lines
+    assert_equal @first, @fl[0]
+    assert_equal @last, @fl[@fl.length - 1]
+  end
+
+  def test_old_at
+    assert_nil @fl.at_before_file_lines(0)
+    # init on first use:
+    @fl.length
+    assert_equal 0, @fl.at_before_file_lines(0)
+    test_known_lines
+    assert_kind_of String, @fl.at_before_file_lines(0)
+    assert_kind_of Fixnum, @fl.at_before_file_lines(1)
+  end
+
+  def test_neg_index
+    assert_equal @file.readlines, @fl[0..-1]
+    @file.rewind
+    assert_equal @file.readlines[40..-10], @fl[40..-10]
+    @file.rewind
+    assert_equal @file.readlines[50...-17], @fl[50...-17]
+  end
+
+  def test_neg_index2
+    assert_equal @file.readlines[50...-17], @fl[50...-17]
+  end
+
+  def test_neg_int_index
+    assert_equal @file.readlines.last, @fl[-1]
+  end
+
+  def test_neg_first_index
+    assert_equal @file.readlines[-10..-1], @fl[-10..-1]
+  end
+
+  def test_first
+    assert_equal @first, @fl.first
+  end
+
+  def test_last
+    assert_equal @last, @fl.last
+  end
+
+  def test_collect
+    assert_equal @file.readlines, @fl.collect
+  end
+end
+
+
+# no line break after next line please:
+# this last line is here for testing.

data/lib/innate/test/testkernel.rb

@@ -0,0 +1,30 @@
+require 'innate/kernel'
+require 'test/unit'
+require 'cursor/indexed'
+
+class TestKernel < Test::Unit::TestCase
+  def test_find_in_path
+    #this assumes that the lib exists in ..../site_ruby/innate/kernel.rb
+    assert_equal File.expand_path('../kernel.rb').downcase, find_in_path('innate/kernel').downcase
+  end
+
+  def test_each_loaded_file
+    c = $".to_cursor
+    each_loaded_file do |f|
+      assert_match Regexp.new(Regexp.escape(c.read1next)), f
+    end
+  end
+  
+  def test_each_caller
+    c = -1
+    each_caller do |file, line, method|  # <- the below test wants the line number of this line
+      c += 1
+      if c == 0
+        assert_equal File.expand_path(__FILE__), File.expand_path(file)
+        assert_equal 20, line 
+        assert_equal 'test_each_caller', method
+      end
+    end
+    assert_equal c, caller.length
+  end
+end 

data/lib/innate/test/testmkdirs.rb

@@ -0,0 +1,19 @@
+require 'test/unit'
+require 'innate/mkdirs'
+
+class TestMkdirs < Test::Unit::TestCase
+  def test_mkdirs
+    assert File.mkdirs('.')
+    assert !File.mkdirs('files/mkdirs_dummy.file')
+    begin
+      assert File.mkdirs('files/fa/ke/direct/ory')
+      assert File.directory?('files/fa/ke/direct/ory')
+    ensure
+      Dir.delete 'files/fa/ke/direct/ory'
+      Dir.delete 'files/fa/ke/direct'
+      Dir.delete 'files/fa/ke'
+      Dir.delete 'files/fa'
+    end
+  end
+end
+    

data/lib/innate/test/testregexp.rb

@@ -0,0 +1,86 @@
+require 'innate/regexp'
+require 'test/unit'
+require 'innate/roman'
+
+class TestMatchData < Test::Unit::TestCase
+  def test_display
+    assert_equal '(hello)', /hello/.match('hello').display
+    assert_equal '(the(next)word)', /the(next)word/.match('thenextword').display
+    assert_equal 'the(next)word', /next/.match('thenextword').display
+    assert_equal 'the ((3)rd) wave', /(\d)../.match('the 3rd wave').display
+  end
+
+  def test_display_nested
+    assert_equal 'the(( )(ne)(xt) ((le)(ve)l))!', /( )(..)(..) ((le)(..).)/.match('the next level!').display
+  end
+
+  def test_display_levels
+    assert_equal 'the (ne)(xt) ((le)(ve)l)!', /( )(..)(..) ((le)(..).)/.match('the next level!').display(2)
+    assert_equal 'the (ne)(xt) ((le)vel)!', /( )(..)(..) ((le)(..).)/.match('the next level!').display(2, 6)
+    assert_equal 'the next (level)!', /( )(..)(..) ((le)(..).)/.match('the next level!').display(4, 5)
+  end
+
+  def test_display_other_delim
+    assert_equal 'the->-> <-->ne<-->xt<- ->->le<-->ve<-l<-<-!', /( )(..)(..) ((le)(..).)/.match('the next level!').display(0, nil, '->', '<-')
+  end
+
+  def test_display_problem
+    r = /^\(\?([imx]*)(-[imx]+)?:(.*?)#{Regexp.escape 'etc'}(.*)\)$/
+    m = r.match(/"etc"/mix.to_s)
+    assert_equal '((?(mix):(")etc(")))', m.display
+  end
+
+
+  def test_replace_capture
+    assert_equal 'a new word', /a(n old) word/.match('an old word').replace_capture(1, ' new')
+  end
+  
+  def test_sub
+    assert_equal 'a new word', /a(n old) word/.match('an old word').sub(' new')
+    assert_equal 'a new word', /n old/.match('an old word').sub(' new')
+    assert_equal 'a new word', /(?:a)(n ((o)l)d) word/.match('an old word').sub(' new')
+  end
+  
+  def test_sub_nil
+    assert_equal 'a new word', /a(n old) word/.match('an old word').sub(' new', nil)
+    assert_equal 'a new word', /n old/.match('an old word').sub(' new', nil)
+    assert_equal 'a new word', /(?:a)(n ((o)l)d) word/.match('an old word').sub(' new', nil)
+  end     
+  
+  def test_sub_other
+    assert_equal 'a new word', /a(n old) word/.match('an old word').sub(' new', 1)
+    assert_equal 'a new word', /n (o)ld/.match('an old word').sub(' new', 0)
+    assert_equal 'a new word', /n (o)ld/.match('an old word').sub(' new', 10)
+    assert_equal 'a new word', /n old/.match('an old word').sub(' new', 10)
+    assert_equal 'an  newd word', /(?:a)(n ((o)l)d) word/.match('an old word').sub(' new', 2)
+  end     
+end
+
+class TestRegexp < Test::Unit::TestCase
+  def test_interpolate
+    assert_equal '(?-mix:roman)', /roman/.to_s
+    assert_equal '(?-mix:this is real [R][om][an] (N)(?>um)()eralce)', /this is real romance/.interpolate('roman', '[R][om][an] (N)(?>um)()eral').to_s
+    assert_equal '(?m-ix:"etcetera")', /"etc"/m.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?i-mx:"etcetera")', /"etc"/i.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?x-mi:"etcetera")', /"etc"/x.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?mi-x:"etcetera")', /"etc"/mi.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?mx-i:"etcetera")', /"etc"/mx.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?ix-m:"etcetera")', /"etc"/ix.interpolate('etc', 'etcetera').to_s
+    assert_equal '(?mix:"etcetera")', /"etc"/mix.interpolate('etc', 'etcetera').to_s
+  end
+
+  def test_interpolate_none
+    assert_equal '(?-mix:yahoo)', /yahoo/.interpolate('cowboy', 'codfish').to_s
+  end
+
+  def test_breakdown
+    assert_equal ['book    '], /book/.match('bookmark').breakdown
+    assert_equal ['book    ', '   k    '], /boo(k)/.match('bookmark').breakdown
+  end
+
+  def test_display_breakdown
+    assert_equal "S: |bookmark|\n0: |book    |\n1: |   k    |",
+                 /boo(k)/.match('bookmark').display_breakdown
+  end
+end
+