require 'runit/testcase'
require 'runit/cui/testrunner'

require 'rrb/script'
require 'rrb/scriptfile'
require 'rrb/rename_local_var'

class TestScriptFile_RenameLocalVariable < RUNIT::TestCase
  
end

class TestScript_RenameLocalVariable < RUNIT::TestCase
    RENAME_LOCAL_VAR_INPUT = "\
/home/ohai/ruby/test/file1.rb\C-a

# comment

class Rename
  def method_1( x, y )
    z = 3
    z.upto(6) do |i|
      print i*3, \"\\n\"
    end
    print z**4, z**5
  end
  def Rename.method_3( x, y )
    z = x * y + 1
    print z ** 3
  end
end
\C-a/home/ohai/ruby/test/file2.rb\C-a
class Rename
  def method_2( x, y)
    x**2 + y**2
  end
end
\C-a-- END --\C-a
"

  RENAME_LOCAL_VAR_OUTPUT1 = "\
/home/ohai/ruby/test/file2.rb\C-a
class Rename
  def method_2( yy, y)
    yy**2 + y**2
  end
end
\C-a-- END --\C-a
"
    RENAME_LOCAL_VAR_OUTPUT2 = "\
/home/ohai/ruby/test/file1.rb\C-a

# comment

class Rename
  def method_1( x, y )
    z = 3
    z.upto(6) do |i|
      print i*3, \"\\n\"
    end
    print z**4, z**5
  end
  def Rename.method_3( yy, y )
    z = yy * y + 1
    print z ** 3
  end
end
\C-a-- END --\C-a
"
  def test_rename_local_var
    script = RRB::Script.new_from_io( StringIO.new( RENAME_LOCAL_VAR_INPUT ) )
    script.rename_local_var( RRB::MN.new(RRB::NS.new('Rename'),'method_2'),
                             'x','yy' )
    dst = ''      
    script.result_to_io( dst )
    assert_equals( RENAME_LOCAL_VAR_OUTPUT1, dst )

    script = RRB::Script.new_from_io( StringIO.new( RENAME_LOCAL_VAR_INPUT ) )
    script.rename_local_var( RRB::CMN.new( RRB::NS.new('Rename'), 'method_3' ),
                             'x','yy' )
    dst = ''      
    script.result_to_io( dst )
    assert_equals( RENAME_LOCAL_VAR_OUTPUT2, dst )

    script = RRB::Script.new_from_filenames("samples/rename_var_sample.rb")   
    script.rename_local_var( RRB::MN.new( RRB::NS.new('Rename'), 'method_1' ),
                             'z', 'bb') 
    dst = ''
    script.result_to_io(dst)
    assert_equals( File.open( 'samples/rename_var_sample_after.rb' ).read,dst)
  end

  def test_rename_local_var?
    script = RRB::Script.new_from_io( StringIO.new( RENAME_LOCAL_VAR_INPUT ) )
    assert_equals( true,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_2'),
					   'x','yy') )
    assert_equals( true,
                   script.rename_local_var?( RRB::CMN.new( RRB::NS.new('Rename'),
                                                           'method_3'),
					   'x','yy') )

    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
					   'x','y') )
    assert_equals("y: already used", script.error_message)    

    assert_equals( false,
                   script.rename_local_var?( RRB::CMN.new( RRB::NS.new('Rename'),
                                                           'method_3'),
					   'x','y') )
    assert_equals("y: already used", script.error_message)    

    script = RRB::Script.new_from_filenames("samples/rename_var_sample.rb")   
    
    assert_equals( true,
                   script.rename_local_var?( RRB::MN.new(RRB::NS.new('Rename'),
                                                         'method_1'),
                                             'z', 'bb' ) )
    # collision with other variable
    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
                                             'z', 'x' ) )
    assert_equals("x: already used", script.error_message)    
    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
                                             'z', 'i' ) )
    assert_equals("i: already used", script.error_message)    
    # invalid identifier 
    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
                                             'z', 'Z' ) )
    assert_equals("Z: not a valid name for local variables",
                  script.error_message)    
    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
                                             'z', 'print' ) )
    
    assert_equals("print: already used as a function",
                  script.error_message)
    assert_equals( false,
                   script.rename_local_var?( RRB::MN.new( RRB::NS.new('Rename'),
                                                          'method_1'),
                                             'z', 'super' ) )
    assert_equals("super: not a valid name for local variables",
                  script.error_message)

    
  end

end

if $0 == __FILE__
  suite = RUNIT::TestSuite.new
  suite.add_test( TestScriptFile_RenameLocalVariable.suite )
  suite.add_test( TestScript_RenameLocalVariable.suite )
  RUNIT::CUI::TestRunner.run(suite)
end