$LOAD_PATH.unshift(File.dirname(__FILE__))
$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
require 'spec'
require 'spec/autorun'
require 'win/gui'

$debug = true

# Customize RSpec with my own extensions
module ClassMacros

  # wrapper for it method that extracts description from example source code, such as:
  # spec { use{    function(arg1 = 4, arg2 = 'string')  }}
  def spec &block
    it description_from(caller[0]), &block # it description_from(*block.source_location), &block
    #do lambda(&block).should_not raise_error end
  end

  # reads description line from source file and drops external brackets like its{}, use{}
  # accepts as arguments either file name and line or call stack member (caller[0])
  def description_from(*args)
    case args.size
      when 1
        file, line = args.first.scan(/\A(.*?):(\d+)/).first
      when 2
        file, line = args
    end
    File.open(file) do |f|
      f.lines.to_a[line.to_i-1].gsub( /(spec.*?{)|(use.*?{)|}/, '' ).strip
    end
  end
end

# Customize RSpec with my own extensions
module InstanceMacros
  def use
    lambda{yield}.should_not raise_error
  end

  def any_block
    lambda{|*args| args}
  end
end

Spec::Runner.configure do |config|
  config.extend(ClassMacros)
  config.include(InstanceMacros)

  class << Spec::ExampleGroup
#    def spoc &block
#      it description_from(caller[0]), &block
#    end
  end
end

# Global test methods
def cygwin?
  @cygwin_flag ||= `ruby -v` =~ /cygwin/
end

def os
  @os_flag ||= cygwin? ? `cmd /c ver` : `ver`
end

def vista?
  os =~ /Version 6/
end

def xp?
  os =~ /XP/
end

module WinTest

  TEST_KEY_DELAY = 0.001
  TEST_IMPOSSIBLE = 'Impossible'
  TEST_CONVERSION_ERROR = /Can.t convert/
  TEST_SLEEP_DELAY = 0.02
  TEST_APP_PATH = File.join(File.dirname(__FILE__), "test_apps/locknote/LockNote.exe" )
  TEST_APP_START = cygwin? ? "cmd /c start `cygpath -w #{TEST_APP_PATH}`" : 'start "" "' + TEST_APP_PATH + '"'
  TEST_WIN_TITLE = 'LockNote - Steganos LockNote'
  TEST_WIN_CLASS = 'ATL:00434098'
  TEST_WIN_RECT = [710, 400, 1210, 800]
  TEST_STATUSBAR_CLASS = 'msctls_statusbar32'
  TEST_TEXTAREA_CLASS = 'ATL:00434310'

  def any_handle
    find_window(nil, nil)
  end

  def not_a_handle
    123
  end

  def buffer
    FFI::MemoryPointer.new(:char, 1024)
  end
end

module WinTestApp

  include WinTest
  include Win::Gui
  #include Win::Gui::Convenience

  def launch_test_app
    system TEST_APP_START
    sleep TEST_SLEEP_DELAY until (handle = find_window(nil, TEST_WIN_TITLE))

    textarea = find_window_ex(handle, 0, TEST_TEXTAREA_CLASS, nil)
    app = "Locknote" # App identifier

    eigenklass = class << app; self; end      # Extracting app's eigenclass
    eigenklass.class_eval do                  # Defining singleton methods on app
      define_method(:handle) {handle}
      define_method(:textarea) {textarea}
    end

    @launched_test_app = app
  end

  def close_test_app(app = @launched_test_app)
    while app && app.respond_to?( :handle) && find_window(nil, TEST_WIN_TITLE)
      shut_window app.handle
      sleep TEST_SLEEP_DELAY
    end
    @launched_test_app = nil
  end

  # Creates test app object and yields it back to the block
  def test_app
    app = launch_test_app

#    def app.textarea #define singleton method retrieving app's text area
#      Window::Window.new find_window_ex(self.handle, 0, TEST_TEXTAREA_CLASS, nil)
#    end

    yield app
    close_test_app app
  end
end