hotcocoa 0.5.1 → 0.6.0pre

data/test/core_extensions/test_numeric.rb

@@ -0,0 +1,10 @@
+class TestNumericExt < MiniTest::Unit::TestCase
+
+  def test_negative?
+    assert -1.negative?
+    assert -1.1.negative?
+    refute 1.negative?
+    refute 1.1.negative?
+  end
+
+end

data/test/core_extensions/test_object.rb

@@ -0,0 +1,37 @@
+# Originally imported from MacRuby sources
+
+module TestNamespaceForConstLookup
+  def self.const_missing(const)
+    @missing_const = const
+  end
+
+  def self.missing_const
+    @missing_const
+  end
+end
+
+class TestObjectFullConstGet < MiniTest::Unit::TestCase
+  def test_returns_a_constant_by_FQ_name_in_receiver_namespace
+    assert_equal HotCocoa,           Object.full_const_get('HotCocoa')
+    assert_equal HotCocoa::Mappings, Object.full_const_get('HotCocoa::Mappings')
+    assert_equal HotCocoa,           HotCocoa.full_const_get('HotCocoa')
+    assert_equal HotCocoa::Mappings, HotCocoa.full_const_get('HotCocoa::Mappings')
+    assert_equal HotCocoa::Mappings, HotCocoa.full_const_get('Mappings')
+  end
+
+  def test_calls_const_missing_on_namespaces_which_do_not_exist
+    Object.full_const_get('TestNamespaceForConstLookup::DoesNotExist')
+    assert_equal 'DoesNotExist', TestNamespaceForConstLookup.missing_const
+  end
+
+  def test_raises_a_NameError_if_a_const_cannot_be_found
+    assert_raises NameError do
+      Object.full_const_get('DoesNotExist::ForSure')
+    end
+  end
+
+  def test_ignores_leading_namespace_separator
+    assert_equal HotCocoa, Object.full_const_get('::HotCocoa')
+    assert_equal HotCocoa::Mappings, Object.full_const_get('::HotCocoa::Mappings')
+  end
+end

data/test/core_extensions/test_range.rb

@@ -0,0 +1,28 @@
+class TestRangeToNSRange < MiniTest::Unit::TestCase
+
+  def test_raises_error
+    assert_raises ArgumentError do
+      (1..-1).to_NSRange
+    end
+  end
+
+  def array
+    @@array ||= (0..10).to_a
+  end
+
+  def run_test range, *arg
+    assert_equal array.slice(range), array.subarrayWithRange(range.to_NSRange(*arg)), range
+  end
+
+  def test_cases
+    run_test 0..10
+    run_test 1..10
+    run_test 2..-1, array.size
+    run_test 3..-2, array.size
+    run_test 4...-1, array.size
+    run_test -3...-1, array.size
+    run_test -5..-1, array.size
+    # run_test -1..-2, array.size # returns an empty array, is a fucked up case to begin with
+  end
+
+end

data/test/helper.rb

@@ -0,0 +1,30 @@
+require 'rubygems'
+gem     'minitest'
+require 'minitest/autorun'
+
+if ENV['BENCH']
+  require 'minitest/benchmark'
+else
+  require 'minitest/pride'
+end
+
+$LOAD_PATH.unshift File.join( File.dirname(__FILE__), '..', 'lib' )
+require 'hotcocoa'
+
+class MiniTest::Unit::TestCase
+  def run_run_loop time = 1.5
+    NSRunLoop.currentRunLoop.runUntilDate( Time.now + time )
+  end
+
+  def self.bench_range
+    bench_exp 10, 10_000
+  end
+end
+
+class SampleClass
+  def some_method
+    false
+  end
+end
+
+SOURCE_ROOT = `git rev-parse --show-toplevel`.chomp

data/test/mappings/test_bonjour.rb

@@ -0,0 +1,79 @@
+##
+# @todo In this test class, there is a base set of tests
+#       that each mapping should have
+class TestBonjourMappings < MiniTest::Unit::TestCase
+  include HotCocoa
+
+  def test_defaults_kick_in
+    b = bonjour_service type:'_http._tcp.', name:'Defaults Test'
+
+    assert_equal '', b.domain
+    assert_equal -1, b.port
+  end
+
+  def test_defaults_can_be_overridden
+    b = bonjour_service type:'_http._tcp.', name:'Defaults Test',
+                        domain: 'local.', port: 9090
+
+    assert_equal 'local.', b.domain
+    assert_equal 9090,     b.port
+  end
+
+  def test_delegation_publishing_success
+    b = bonjour_service type:'_http._tcp.', name:'HotCocoa Test', port: 9091
+    will_publish = did_publish = did_stop = false
+
+    b.will_publish { will_publish = true }
+    b.did_publish { did_publish = true }
+    b.did_stop { did_stop = true }
+
+    b.publish
+    assert will_publish
+
+    run_run_loop
+    assert did_publish
+
+    b.stop
+    assert did_stop
+  end
+
+  def test_delegation_publishing_failure
+    b = bonjour_service type:'fake', name:'HotCocoa Test', port: 9091
+
+    did_not_publish = false
+
+    b.did_not_publish { |error_dict| did_not_publish = error_dict }
+
+    b.publish
+    run_run_loop
+
+    assert_equal NSNetServicesBadArgumentError,
+      did_not_publish["NSNetServicesErrorCode"]
+  end
+
+  def test_delegating_resolving
+    service = bonjour_service type:'_fake._tcp.',
+                              name:'HotCocoa Test',
+                              port: 9091
+    service.publish
+    found_service = nil
+
+    browser = bonjour_browser
+    browser.did_find_service { |new_service, more|
+      found_service = new_service
+    }
+    browser.search_for_services '_fake._tcp.'
+
+    run_run_loop
+    refute_nil found_service
+    found_service.resolve
+
+    run_run_loop
+    assert_equal 9091, found_service.port
+  end
+
+  def test_delegation_TXT_record
+    skip 'TODO'
+  end
+
+end

data/test/mappings/test_color.rb

@@ -0,0 +1,16 @@
+class TestColorMappings < MiniTest::Unit::TestCase
+
+  def test_given_a_name
+    assert_equal NSColor.redColor, HotCocoa.color(name: 'red')
+    assert_equal NSColor.greenColor, HotCocoa.color(name: 'green')
+    assert_equal NSColor.lightGrayColor, HotCocoa.color(name: 'lightGray')
+  end
+
+  def bench_create_color
+    color = 'red'
+    assert_performance_linear do |n|
+      n.times { HotCocoa.color(name: color) }
+    end
+  end
+
+end

data/test/mappings/test_font.rb

@@ -0,0 +1,21 @@
+class TestFontMappings < MiniTest::Unit::TestCase
+
+  def test_options
+    assert_equal NSFont.labelFontOfSize(10), HotCocoa.font(label: 10)
+    assert_equal NSFont.systemFontOfSize(15), HotCocoa.font(system: 15)
+    assert_equal NSFont.controlContentFontOfSize(12), HotCocoa.font(control_content: 12)
+    assert_equal NSFont.toolTipsFontOfSize(20), HotCocoa.font(tool_tip: 20)
+    assert_equal NSFont.paletteFontOfSize(32), HotCocoa.font(palette: 32)
+  end
+
+  def test_size
+    assert_equal 10.0, HotCocoa.font(label: 10).size
+  end
+
+  def bench_create_font
+    assert_performance_linear do |n|
+      n.times { HotCocoa.font(label: 10) }
+    end
+  end
+
+end

data/test/mappings/test_tracking_area.rb

@@ -0,0 +1,18 @@
+class TestTrackingAreaMappings < MiniTest::Unit::TestCase
+
+  def test_given_a_name
+    tracking_area = HotCocoa.tracking_area(rect: [0,0,10,10],
+                                        options: [:mouse_entered_and_exited, :active_in_key_window],
+                                          owner: self)
+    assert_instance_of(NSTrackingArea, tracking_area)
+    assert_equal NSMakeRect(0,0,10,10), tracking_area.rect
+    assert_equal self, tracking_area.owner
+    assert_equal NSTrackingMouseEnteredAndExited | NSTrackingActiveInKeyWindow, tracking_area.options
+  end
+
+  def bench_create_tracking_area
+    assert_performance_linear do |n|
+      n.times { HotCocoa.tracking_area }
+    end
+  end
+end

data/test/test_application_builder.rb

@@ -0,0 +1,95 @@
+require 'fileutils'
+require 'yaml'
+
+require 'hotcocoa/application_builder'
+
+class TestConfiguration < MiniTest::Unit::TestCase
+
+  Configuration = HotCocoa::ApplicationBuilder::Configuration
+  TEST_DIR      = File.join( ENV['TMPDIR'], 'test_app_builder' )
+
+  # Some HotCocoa build.yml files, borrowed from projects on Github
+  HOTCONSOLE = 'test/fixtures/hotconsole.yml'
+  CALCULATOR = 'test/fixtures/calculator.yml'
+  STOPWATCH  = 'test/fixtures/stopwatch.yml'
+  EMPTY_APP  = 'test/fixtures/empty.yml'
+
+  def setup;    FileUtils.mkdir TEST_DIR; end
+  def teardown; FileUtils.rm_rf TEST_DIR; end
+
+  def test_reads_attributes
+    conf = Configuration.new HOTCONSOLE
+    assert_equal 'HotConsole',                conf.name
+    assert_equal '1.0',                       conf.version
+    assert_equal 'resources/HotConsole.icns', conf.icon
+    assert_equal ['resources/**/*.*'],        conf.resources
+    assert_equal ['lib/**/*.rb'],             conf.sources
+
+    conf = Configuration.new CALCULATOR
+    assert_equal 'Calculator', conf.name
+    assert_equal '2.0', conf.version
+  end
+
+  def test_version_defaults_to_1_if_not_set
+    conf = Configuration.new STOPWATCH
+    refute_nil conf.version
+    assert_equal '1.0', conf.version
+  end
+
+  def test_sources_resources_and_data_models_are_initialized_to_an_empty_array_if_not_provided
+    conf = Configuration.new EMPTY_APP
+    assert_empty conf.sources
+    assert_empty conf.resources
+    assert_empty conf.data_models
+  end
+
+  def test_overwirte_attribute
+    conf = Configuration.new EMPTY_APP
+    refute conf.overwrite?
+
+    conf = Configuration.new STOPWATCH
+    assert conf.overwrite?
+  end
+
+  def test_agent_attribute
+    conf = Configuration.new EMPTY_APP
+    assert_equal '0', conf.agent
+
+    conf = Configuration.new STOPWATCH
+    assert_equal '1', conf.agent
+  end
+
+  def test_stdlib_attribute
+    conf = Configuration.new HOTCONSOLE
+    assert_equal true, conf.stdlib
+
+    conf = Configuration.new STOPWATCH
+    assert_equal false, conf.stdlib
+  end
+
+  def test_type_attribute
+    conf = Configuration.new HOTCONSOLE
+    assert_equal 'APPL', conf.type
+
+    conf = Configuration.new EMPTY_APP
+    assert_equal 'BNDL', conf.type
+  end
+
+  def test_signature_attribute
+    conf = Configuration.new EMPTY_APP
+    assert_equal '????', conf.signature
+
+    conf = Configuration.new HOTCONSOLE
+    assert_equal 'girb', conf.signature
+  end
+
+  def test_icon_exists?
+    conf = Configuration.new HOTCONSOLE
+    refute conf.icon_exists?
+
+    # works because this project uses the icon from a system app
+    conf = Configuration.new CALCULATOR
+    assert conf.icon_exists?
+  end
+
+end

data/test/test_attributed_string_helpers.rb

@@ -0,0 +1,63 @@
+class TestAttributedStringHelpers < MiniTest::Unit::TestCase
+
+  def attrs
+    {
+      NSFontAttributeName => NSFont.toolTipsFontOfSize(10),
+      NSObliquenessAttributeName => 5.0,
+      NSToolTipAttributeName => 'Some tool tip text',
+      NSStrikethroughColorAttributeName => NSColor.redColor
+    }
+  end
+
+  def attr_string value = 'test'
+    string = NSMutableAttributedString.alloc.initWithString value,
+                                                attributes: attrs
+  end
+
+  def string_proxy value = 'test'
+    string = attr_string value
+    HotCocoa::NSRangedProxyAttributedString.new string, 0..-1
+  end
+
+  def test_proxy_attributed_string
+    string = attr_string
+    range  = 0..-1
+    proxy  = HotCocoa::NSRangedProxyAttributedString.new string, range
+    assert_same string, proxy.string
+    assert_same range, proxy.range
+  end
+
+  def test_proxy_attribute_hash_reads_attributes_correctly
+    attributes = string_proxy.attributes
+    assert_equal attrs[NSFontAttributeName], attributes[:font]
+    assert_equal attrs[NSObliquenessAttributeName], attributes[:obliqueness]
+    assert_equal attrs[NSToolTipAttributeName], attributes[:tool_tip]
+    assert_equal attrs[NSStrikethroughColorAttributeName], attributes[:strikethrough_color]
+  end
+
+  def test_proxy_attribute_hash_writes_attributes_correctly
+    proxy = string_proxy
+    attributes = proxy.attributes
+    attributes[:tool_tip] = 'lol'
+    value = proxy.string.attribute NSToolTipAttributeName, atIndex: 0, effectiveRange: nil
+    assert_equal 'lol', value
+  end
+
+  def test_proxy_attribute_hash_appends_correctly
+    proxy      = string_proxy
+    attributes = proxy.attributes
+    attributes << { tool_tip: 'lol', colour: NSColor.greenColor }
+    tip    = proxy.string.attribute NSToolTipAttributeName, atIndex: 0, effectiveRange: nil
+    colour = proxy.string.attribute NSForegroundColorAttributeName, atIndex: 0, effectiveRange: nil
+    assert_equal NSColor.greenColor, colour
+    assert_equal 'lol', tip
+  end
+
+  def test_proxy_attribute_hash_inspect
+    assert_equal attrs, string_proxy.attributes.to_hash
+    # names are not translated
+    pattern = /#{attrs.keys.first.inspect}=>#{attrs.values.first.inspect}/
+    assert_match pattern, string_proxy.attributes.inspect
+  end
+
+end

data/test/test_behaviours.rb

@@ -0,0 +1,26 @@
+class BehaviorsTestView < NSView
+  include HotCocoa::Behaviors
+end
+class BehaviorsTest < NSNetServiceBrowser
+  include HotCocoa::Behaviors
+end
+
+class TestBehaviors < MiniTest::Unit::TestCase
+
+  def test_behaviours_is_alias_to_behaviors
+    assert_equal HotCocoa::Behaviors, HotCocoa::Behaviours
+  end
+
+  def test_inherits_custom_methods
+    assert_respond_to BehaviorsTest.new, :search_for_domains
+  end
+
+  def test_inherits_delegate_methods
+    assert_respond_to BehaviorsTest.new, :did_find_domain
+  end
+
+  def test_inherits_bindings
+    assert_respond_to BehaviorsTestView.new, :hidden=
+  end
+
+end

data/test/test_bin.rb

@@ -0,0 +1,75 @@
+class TestHotCocoaBinary < MiniTest::Unit::TestCase
+
+  def hotcocoa *args
+    ruby = ENV['RUBY_VERSION'] ? 'ruby' : 'macruby'
+    `#{ruby} -I#{SOURCE_ROOT}/lib #{SOURCE_ROOT}/bin/hotcocoa #{args.join(' ')}`.chomp
+  end
+
+end
+
+
+class TestHotCocoaBinaryOptions < TestHotCocoaBinary
+
+  def test_shows_version
+    pattern = /Hot\s?Cocoa\s+#{HotCocoa::VERSION}/i
+    assert_match pattern, hotcocoa('-v')
+    assert_match pattern, hotcocoa('--version')
+  end
+
+  def test_shows_usage
+    assert_equal 'Usage: hotcocoa <project name>', hotcocoa
+    assert_equal 'Usage: hotcocoa <project name>', hotcocoa('-h')
+    assert_equal 'Usage: hotcocoa <project name>', hotcocoa('--help')
+  end
+
+end
+
+
+class TestHotCocoaBinaryUsesTemplate < TestHotCocoaBinary
+
+  def setup
+    @dir = File.join(ENV['TMPDIR'], 'hot_cocoa_test')
+    Dir.mkdir @dir
+  end
+
+  def teardown
+    FileUtils.rm_rf @dir
+  end
+
+  def test_uses_given_name
+    app_name = 'The answer to life, the universe, and everything'
+    Dir.chdir(@dir) do
+      hotcocoa app_name.inspect
+      assert Dir.exists? app_name
+    end
+  end
+
+  def test_uses_camel_case_name_for_appspec
+    app_name = 'CamelCase'
+    Dir.chdir(@dir) do
+      hotcocoa app_name.inspect
+      assert Dir.new(app_name).entries.include? "#{app_name}.appspec"
+    end
+  end
+
+  def test_converts_non_alphanumeric_characters_to_camelcase
+    app_name = 'The answer to life, the universe, and everything'
+    Dir.chdir(@dir) do
+      hotcocoa app_name.inspect
+      assert Dir.new(app_name).entries.include? "TheAnswerToLifeTheUniverseAndEverything.appspec"
+    end
+  end
+
+  # this is a weird edge case that was programmed in
+  # so we will preseve it for the time being
+  def test_moves_existing_rb_file_into_the_project
+    app_name = 'blah blah.rb'
+    Dir.chdir(@dir) do
+      File.open(app_name, 'w') { |f| f.write 'ZOMG' }
+      hotcocoa app_name.inspect
+      app = File.read(File.join(app_name.chomp('.rb'),'lib','application.rb'))
+      assert_equal 'ZOMG', app
+    end
+  end
+
+end

data/test/test_mapper.rb

@@ -0,0 +1,100 @@
+# Originally imported from MacRuby sources
+
+class TestMapperDetails < MiniTest::Unit::TestCase
+  include HotCocoa::Mappings
+
+  def test_module_has_bindings_and_delegate_caches
+    assert_instance_of Hash, Mapper.bindings_modules
+    assert_instance_of Hash, Mapper.delegate_modules
+  end
+
+  def test_exposes_control_class
+    assert_respond_to sample_mapper, :control_class
+    refute_respond_to sample_mapper, :control_class=
+  end
+
+  def test_exposes_builder_method
+    assert_respond_to sample_mapper, :builder_method
+    refute_respond_to sample_mapper, :builder_method=
+  end
+
+  def test_exposes_control_module
+    assert_respond_to sample_mapper, :control_module
+    refute_respond_to sample_mapper, :control_module=
+  end
+
+  def test_exposes_map_bindings
+    assert_respond_to sample_mapper, :map_bindings
+    assert_respond_to sample_mapper, :map_bindings=
+  end
+
+  def test_sets_its_control_class_on_initialization
+    assert_equal sample_mapper(true).control_class, SampleClass
+  end
+
+  def test_include_in_class
+    m = sample_mapper true
+    m.include_in_class
+
+    assert_equal m.instance_variable_get(:@extension_method), :include
+
+    skip 'Pending.'
+  end
+
+
+  private
+
+  def sample_mapper flush = false
+    @mapper = nil if flush
+    @mapper ||= Mapper.new(SampleClass)
+  end
+
+end
+
+
+class TestMapperFeatures < MiniTest::Unit::TestCase
+
+  def teardown
+    HotCocoa::Mappings.mappings.delete :sample
+  end
+
+  def test_handle_block_called_if_implemented
+    HotCocoa::Mappings.map sample: SampleClass do
+      def alloc_with_options opts
+        SampleClass.new
+      end
+      def handle_block inst
+        inst.instance_variable_set(:@cache, yield(inst))
+      end
+    end
+    object = HotCocoa.sample { |_| :cake_is_the_truth }
+    assert_equal :cake_is_the_truth, object.instance_variable_get(:@cache)
+  end
+
+  def test_block_is_executed_if_given
+    HotCocoa::Mappings.map sample: SampleClass do
+      def alloc_with_options opts
+        SampleClass.new
+      end
+    end
+    yielded = false
+    object  = HotCocoa.sample { |inst| yielded = inst }
+    assert_equal object, yielded
+  end
+
+  def test_custom_methods_override_existing_methods
+    HotCocoa::Mappings.map sample: SampleClass do
+      def alloc_with_options opts
+        SampleClass.new
+      end
+      custom_methods do
+        def some_method
+          true
+        end
+      end
+    end
+    object = HotCocoa.sample
+    assert_equal true, object.some_method
+  end
+
+end

data/test/test_mapping_methods.rb

@@ -0,0 +1,67 @@
+class TestMappingMethods < MiniTest::Unit::TestCase
+  class MappingMethodsTestClass
+  end
+
+  def setup
+    @klass = MappingMethodsTestClass.new
+    @klass.extend HotCocoa::MappingMethods
+  end
+
+  def test_there_can_only_be_one_defaults
+    first_defaults  = {  first_key: 'first_value' }
+    second_defaults = { second_key: 'second_value' }
+
+    @klass.defaults first_defaults
+    assert_equal first_defaults, @klass.defaults
+
+    @klass.defaults second_defaults
+    assert_equal second_defaults, @klass.defaults
+  end
+
+  def test_there_can_only_be_one_custom_methods
+    first_custom_methods  = Proc.new do
+      def first_method
+      end
+    end
+    second_custom_methods = Proc.new do
+      def second_method
+      end
+    end
+
+    @klass.custom_methods &first_custom_methods
+    assert_includes @klass.custom_methods.instance_methods, :first_method
+
+    @klass.custom_methods &second_custom_methods
+    assert_includes @klass.custom_methods.instance_methods, :second_method
+  end
+
+  def test_caches_are_initialized
+    assert_kind_of Hash, @klass.constants_map
+    assert_kind_of Hash, @klass.delegate_map
+  end
+
+  def test_constants_are_cached
+    first_mapping  = { nice_const: 1, other: 'two'   }
+    second_mapping = {          a: 2,     b: 'three' }
+
+    @klass.constant :x, first_mapping
+    assert_equal first_mapping, @klass.constants_map[:x]
+
+    @klass.constant :y, second_mapping
+    assert_equal second_mapping, @klass.constants_map[:y]
+    assert_equal  first_mapping, @klass.constants_map[:x]
+  end
+
+  def test_delegate_mappings_are_cached
+    first_delegate  = { to: :other_thingy }
+    second_delegate = { to: :a_method, parameters: [1, 2, 3] }
+
+    @klass.delegating :thingy, first_delegate
+    assert_equal first_delegate, @klass.delegate_map[:thingy]
+
+    @klass.delegating :thingy2, second_delegate
+    assert_equal second_delegate, @klass.delegate_map[:thingy2]
+    assert_equal  first_delegate, @klass.delegate_map[:thingy]
+  end
+
+end