kolach-melomel 0.6.4

data/lib/melomel/cucumber/date_steps.rb

@@ -0,0 +1,22 @@
+When /^I set the "([^"]*)" (date chooser|date field) to "(\d{1,2}\/\d{1,2}\/\d{4})"$/ do |name, type, date_string|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    component = Melomel::Cucumber.find_labeled!(classes, name)
+    component.setFocus()
+    component.selectedDate = Melomel::Date.parse(date_string)
+  end
+end
+
+Then /^I should see the "([^"]*)" (date chooser|date field) set to "(\d{1,2}\/\d{1,2}\/\d{4})"$/ do |name, type, date_string|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    component = Melomel::Cucumber.find_labeled!(classes, name)
+    date = Melomel::Date.parse(date_string)
+    component.setFocus()
+
+    component.selectedDate.should_not be_nil
+    date.should_not be_nil
+    component.selectedDate.toLocaleDateString().should == date.toLocaleDateString()
+  end
+end
+

data/lib/melomel/cucumber/list_steps.rb

@@ -0,0 +1,30 @@
+When /^I select "([^"]*)" on the "([^"]*)" (combo box|list)$/ do |value, name, type|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    list = Melomel::Cucumber.find_labeled!(classes, name)
+    list.setFocus()
+    labels = Melomel.items_to_labels!(list, list.dataProvider)
+  
+    # Loop over labels and set the selected index when we find a match
+    index = nil
+    labels.length.times do |i|
+      if labels[i] == value
+        index = i
+      end
+    end
+    raise "Cannot find '#{value}' on #{type}" if index.nil?
+  
+    list.selectedIndex = index
+  end
+end
+
+Then /^I should see "([^"]*)" selected on the "([^"]*)" (combo box|list)$/ do |value, name, type|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    list = Melomel::Cucumber.find_labeled!(classes, name)
+    list.setFocus()
+    label = list.itemToLabel(list.selectedItem)
+    label.should == value
+  end
+end
+

data/lib/melomel/cucumber/slider_steps.rb

@@ -0,0 +1,20 @@
+When /^I set the "([^"]*)" (slider) to "([^"]*)"$/ do |name, type, value|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    slider = Melomel::Cucumber.find_labeled!(classes, name)
+    slider.setFocus()
+    value = value.index('.') ? value.to_f : value.to_i
+    slider.value = value
+  end
+end
+
+Then /^I should see the "([^"]*)" (slider) set to "([^"]*)"$/ do |name, type, value|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    slider = Melomel::Cucumber.find_labeled!(classes, name)
+    slider.setFocus()
+    value = value.index('.') ? value.to_f : value.to_i
+    slider.value.should == value
+  end
+end
+

data/lib/melomel/cucumber/text_steps.rb

@@ -0,0 +1,26 @@
+When /^I type "([^"]*)" in the "([^"]*)" (text field|text area)$/ do |text, name, type|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    component = Melomel::Cucumber.find_labeled!(classes, name)
+    component.setFocus()
+    component.text = text
+  end
+end
+
+Then /^I should see "([^"]*)" in the "([^"]*)" (text field|text area|label)$/ do |text, name, type|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    component = Melomel::Cucumber.find_labeled!(classes, name)
+    component.setFocus()
+    component.text.should == text
+  end
+end
+
+Then /^I should not see "([^"]*)" in the "([^"]*)" (text field|text area|label)$/ do |text, name, type|
+  Melomel::Cucumber.run! do
+    classes = Melomel::Flex.get_component_classes(type)
+    component = Melomel::Cucumber.find_labeled!(classes, name)
+    component.setFocus()
+    component.text.should_not == text
+  end
+end

data/lib/melomel/date.rb

@@ -0,0 +1,19 @@
+module Melomel
+  # This class contains helper methods for working with Flash dates.
+  class Date
+    # Parses a date.
+    #
+    # text - The date string to parse.
+    #
+    # Example:
+    #
+    #   Melomel::Date.parse('02/04/2010') # => <Melomel::ObjectProxy>
+    #
+    # Returns a proxy to a date object in Flash.
+    def self.parse(text)
+      date = Melomel.create_object!('Date')
+      date.time = Melomel.get_class!('Date').parse(text)
+      date
+    end
+  end
+end

data/lib/melomel/error.rb

@@ -0,0 +1,43 @@
+# This class is used for all errors returned from the Flash virtual machine.
+module Melomel
+  class Error < StandardError
+    ############################################################################
+    #
+    # Constructor
+    #
+    ############################################################################
+
+    def initialize(object, error_id, message, name, stack_trace)
+      @object   = object
+      @error_id = error_id
+      @message  = message
+      @name     = name
+      @stack_trace = stack_trace
+    end
+    
+
+    ############################################################################
+    #
+    # Public Properties
+    #
+    ############################################################################
+
+    # A proxied reference to the original Flash error object.
+    #
+    # Returns a Melomel::ObjectProxy.
+    attr_reader :object
+
+    # The error identifier of the Flash error.
+    attr_reader :error_id
+
+    # The Flash error message.
+    attr_reader :message
+
+    # The name of the Flash error.
+    attr_reader :name
+
+    # The Flash stack trace. This is only available when using the Flash debug
+    # player or the AIR Debug Launcher (ADL).
+    attr_reader :stack_trace
+  end
+end

data/lib/melomel/flex.rb

@@ -0,0 +1,46 @@
+module Melomel
+  # This class contains helper methods for working with Flex components.
+  class Flex
+    # Retrieves a list of classes associated with a commonly named component.
+    #
+    # name - The common name of the component.
+    #
+    # Example:
+    #
+    #   Melomel.get_component_classes('button')
+    #   # => ['mx.controls.Button', 'spark.components.Button']
+    #
+    # Returns a list of classes associated with a component's common name.
+    def self.get_component_classes(name)
+      case name.downcase
+        when 'alert' then ['mx.controls.Alert']
+        when 'button' then ['mx.controls.Button', 'spark.components.supportClasses.ButtonBase']
+        when 'check box' then ['mx.controls.CheckBox', 'spark.components.CheckBox']
+        when 'color picker' then ['mx.controls.ColorPicker']
+        when 'combo box' then ['mx.controls.ComboBox', 'spark.components.ComboBox']
+        when 'data grid' then ['mx.controls.DataGrid', 'mx.controls.AdvancedDataGrid']
+        when 'date chooser' then ['mx.controls.DateChooser']
+        when 'date field' then ['mx.controls.DateField']
+        when 'scroll bar' then ['mx.controls.HScrollBar', 'mx.controls.VScrollBar', 'spark.components.HScrollBar', 'spark.components.VScrollBar']
+        when 'slider' then ['mx.controls.HSlider', 'mx.controls.VSlider', 'spark.components.HSlider', 'spark.components.VSlider']
+        when 'image' then ['mx.controls.Image']
+        when 'label' then ['mx.controls.Label', 'spark.components.Label', 'spark.components.RichText']
+        when 'list' then ['mx.controls.List', 'spark.components.List']
+        when 'menu' then ['mx.controls.Menu']
+        when 'menu bar' then ['mx.controls.MenuBar']
+        when 'panel' then ['mx.containers.Panel', 'spark.components.Panel']
+        when 'stepper' then ['mx.controls.NumericStepper', 'spark.components.Spinner']
+        when 'pop up button' then ['mx.controls.PopUpButton']
+        when 'pop up menu button' then ['mx.controls.PopUpMenuButton']
+        when 'progress bar' then ['mx.controls.ProgressBar']
+        when 'radio button' then ['mx.controls.RadioButton', 'spark.components.RadioButton']
+        when 'rich text area' then ['mx.controls.RichTextEditor', 'spark.components.RichEditableText']
+        when 'tab' then ['mx.controls.tabBarClasses.Tab']
+        when 'text field' then ['mx.controls.TextInput', 'spark.components.TextInput']
+        when 'text area' then ['mx.controls.TextArea', 'spark.components.TextArea']
+        when 'tool tip' then ['mx.controls.ToolTip']
+        when 'tree' then ['mx.controls.Tree']
+      end
+    end
+  end
+end

data/lib/melomel/object_proxy.rb

@@ -0,0 +1,94 @@
+# This class as a proxy to an object in the Flash virtual machine. Invoking
+# methods, accessing properties or changing properties on this object will
+# result in a command being sent to Flash to change or access the state of the
+# object within the virtual machine. The Ruby object proxy holds no state.
+#
+# The object proxy works exactly as if the Flash object was a local Ruby object.
+# To do this, the following aliases are made:
+# * Method calls with method names ending in "=" are aliased to #set_property
+# * Method calls without arguments are aliased to #get_property.
+# * Method calls with arguments are aliased to #invoke_method
+module Melomel
+  class ObjectProxy
+    attr_reader :bridge, :proxy_id
+    
+    def initialize(bridge, proxy_id)
+      @bridge   = bridge
+      @proxy_id = proxy_id
+    end
+    
+    # Retrieves the value of a property for the proxied object.
+    def get_property(name)
+      @bridge.get_property(@proxy_id, name)
+    end
+    
+    def get_property!(name)
+      @bridge.get_property!(@proxy_id, name)
+    end
+    
+    # Sets the value of a property for the proxied object.
+    def set_property(name, value)
+      @bridge.set_property(@proxy_id, name, value)
+    end
+
+    # Sets the value of a property for the proxied object.
+    def set_property!(name, value)
+      @bridge.set_property!(@proxy_id, name, value)
+    end
+    
+    # Invokes a method on the proxied object. Arguments passed into the method
+    # are passed through to the invoked method
+    def invoke_method(method_name, *args)
+      @bridge.invoke_method(@proxy_id, method_name, *args)
+    end
+
+    def invoke_method!(method_name, *args)
+      @bridge.invoke_method!(@proxy_id, method_name, *args)
+    end
+    
+    alias :invoke :invoke_method
+    
+    # Proxies all methods to the appropriate Flash objects.
+    def method_missing(symbol, *args)
+      method_name = symbol.to_s
+      last_char = method_name.to_s[-1,1]
+      
+      # Methods ending in "=" are aliased to set_property
+      if last_char == '='
+        return set_property(method_name.chop, *args)
+      # Methods with arguments are methods
+      elsif args.length > 0
+        if last_char == '!'
+          return invoke_method!(method_name.chop, *args)
+        else
+          return invoke_method(method_name, *args)
+        end
+      # Methods with no arguments are aliased to get_property
+      else
+        if last_char == '!'
+          return get_property!(method_name.chop)
+        else
+          return get_property(method_name)
+        end
+      end
+    end
+
+    # Array accessor.
+    def [](index)
+      if index.is_a?(Fixnum)
+        get_property("[#{index}]")
+      else
+        get_property(index.to_s)
+      end
+    end
+
+    # Array mutator.
+    def []=(index, value)
+      if index.is_a?(Fixnum)
+        set_property("[#{index}]", value)
+      else
+        set_property(index.to_s, value)
+      end
+    end
+  end
+end

data/lib/melomel/version.rb

@@ -0,0 +1,3 @@
+module Melomel
+  VERSION = "0.6.4"
+end

data/lib/object.rb

@@ -0,0 +1,30 @@
+class Object
+  # Recursively generates an object proxy for the object if it is a Hash or
+  # and Array.
+  #
+  # bridge - The bridge to use when generating a proxy.
+  #
+  # Returns a Melomel::ObjectProxy if it is a Hash or an Array. Otherwise
+  # returns the object itself.
+  def to_object_proxy(bridge)
+    proxy = self
+
+    # Convert each key/value pair in a Hash
+    if self.is_a?(Hash)
+      proxy = bridge.create_object('Object')
+      each_pair do |k,v|
+        v = v.to_object_proxy(bridge) unless v.nil?
+        proxy.set_property!(k, v)
+      end
+    # Convert each item in an Array.
+    elsif is_a?(Array)
+      proxy = bridge.create_object('Array')
+      each do |item|
+        item = item.to_object_proxy(bridge) unless item.nil?
+        proxy.push!(item)
+      end
+    end
+    
+    return proxy
+  end
+end

data/test/helper.rb

@@ -0,0 +1,28 @@
+require 'rubygems'
+require "bundler"
+Bundler.setup
+require 'minitest/autorun'
+require 'mocha'
+
+dir = File.dirname(File.expand_path(__FILE__))
+$LOAD_PATH.unshift(File.join(dir, '..', 'lib'))
+$LOAD_PATH.unshift(dir)
+
+require 'melomel'
+
+class RunnerTestCase < MiniTest::Unit::TestCase
+  def start_runner
+    # Make sure FLEX_HOME is defined
+    raise 'FLEX_HOME environment variable must be set' if ENV['FLEX_HOME'].nil?
+
+    # Open up the sandbox
+    @pid = fork do
+      exec("#{ENV['FLEX_HOME']}/bin/adl target/MelomelRunner-app.xml")
+    end
+    Process.detach(@pid)
+  end
+
+  def stop_runner
+    Process.kill('KILL', @pid)
+  end
+end

data/test/sandbox.rb

@@ -0,0 +1,14 @@
+require File.join(File.dirname(File.expand_path(__FILE__)), *%w[helper])
+
+class SandboxTestCase < RunnerTestCase
+  def setup
+    start_runner
+    Melomel.connect()
+  end
+
+  def teardown
+    stop_runner
+  end
+
+  # Add tests here.
+end

data/test/test_bridge.rb

@@ -0,0 +1,61 @@
+require File.join(File.dirname(File.expand_path(__FILE__)), *%w[helper])
+
+class BridgeTestCase < MiniTest::Unit::TestCase
+  def setup
+    @bridge = Melomel::Bridge.new('localhost', 10101)
+  end
+
+  def connect
+    # Mock server
+    @server = mock('server')
+    TCPServer.stubs(:open).returns(@server)
+    TCPServer.any_instance.stubs(:close)
+    
+    # Mock sockets
+    @socket = mock('socket')
+    @socket.expects(:gets).returns("<connect/>\x00")
+    @server.expects(:accept).returns(@socket)
+    @server.expects(:close)
+    
+    # Attempt connection
+    @bridge.connect()
+  end
+
+  def test_should_send_messages_over_socket_connection
+    connect()
+    @socket.expects(:puts).with("<message/>\x00")
+    @bridge.send('<message/>')
+  end
+
+  def test_should_receive_messages_from_socket_connection
+    connect()
+    @socket.expects(:gets).returns("<message/>\x00")
+    assert_equal '<message/>', @bridge.receive()
+  end
+
+  def test_should_send_policy_file_and_connect
+    policy = '<?xml version="1.0"?><!DOCTYPE cross-domain-policy SYSTEM "http://www.macromedia.com/xml/dtds/cross-domain-policy.dtd"><cross-domain-policy><allow-access-from domain="localhost" to-ports="10101"/></cross-domain-policy>';
+    
+    # Mock server
+    server = mock('server')
+    server.expects(:close)
+    TCPServer.expects(:open).returns(server)
+    
+    # Mock policy file
+    policy_socket = mock('policy_socket')
+    policy_socket.expects(:gets).returns("<policy-file-request/>\x00")
+    policy_socket.expects(:send).with(policy, 0)
+    policy_socket.expects(:flush)
+    policy_socket.expects(:close)
+    
+    # Mock regular socket
+    socket = mock('socket')
+    socket.expects(:gets).returns("<connect/>\x00")
+
+    # Server should return policy socket first and then regular socket
+    server.stubs(:accept).returns(policy_socket, socket, nil)
+    
+    # Attempt connection
+    @bridge.connect()
+  end
+end