[macruby-changes] [796] MacRuby/trunk
source_changes at macosforge.org
source_changes at macosforge.org
Tue Jan 20 06:44:47 PST 2009
Revision: 796
http://trac.macosforge.org/projects/ruby/changeset/796
Author: eloy.de.enige at gmail.com
Date: 2009-01-20 06:44:47 -0800 (Tue, 20 Jan 2009)
Log Message:
-----------
Move HotCocoa tests to MacRuby suite
Added Paths:
-----------
MacRuby/trunk/test-macruby/cases/hotcocoa/
MacRuby/trunk/test-macruby/cases/hotcocoa/test_helper.rb
MacRuby/trunk/test-macruby/cases/hotcocoa/test_mapper.rb
MacRuby/trunk/test-macruby/cases/hotcocoa/test_mappings.rb
MacRuby/trunk/test-macruby/cases/hotcocoa/test_plist.rb
Removed Paths:
-------------
MacRuby/trunk/test/hotcocoa/test_mapper.rb
MacRuby/trunk/test/hotcocoa/test_mappings.rb
MacRuby/trunk/test/hotcocoa/test_plist.rb
MacRuby/trunk/test/test_helper.rb
Deleted: MacRuby/trunk/test/hotcocoa/test_mapper.rb
===================================================================
--- MacRuby/trunk/test/hotcocoa/test_mapper.rb 2009-01-20 14:44:35 UTC (rev 795)
+++ MacRuby/trunk/test/hotcocoa/test_mapper.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -1,63 +0,0 @@
-require 'hotcocoa'
-require File.join(File.dirname(__FILE__), '..', 'test_helper')
-
-class SampleClass
-end
-
-class TestMapper < Test::Unit::TestCase
-
- include HotCocoa::Mappings
-
- it "should have two hash attributes named #bindings and #delegate" do
- assert Mapper.bindings_modules.is_a?(Hash)
- assert Mapper.delegate_modules.is_a?(Hash)
- end
-
- [ :control_class, :builder_method, :control_module,
- :map_bindings, :map_bindings= ].each do |method|
-
- it "should have a #{method} attribute" do
- assert_respond_to(sample_mapper, method)
- end
-
- end
-
- it "should set it's control class on initialization" do
- assert_equal(sample_mapper(true).control_class, SampleClass)
- end
-
- it "should convert from camelcase to underscore" do
- assert sample_mapper.underscore("SampleCamelCasedWord"), 'sample_camel_cased_word'
- end
-
- def test_include_in_class
-
- m = sample_mapper(true)
- m.include_in_class
-
- assert_equal m.instance_variable_get('@extension_method'), :include
-
- flunk 'Pending.'
-
- end
-
- def test_each_control_ancestor
- flunk 'Pending.'
- end
-
- def test_map_class
- flunk 'Pending.'
- end
-
- def test_map_instances_of
- flunk 'Pending.'
- end
-
- private
-
- def sample_mapper(flush = false)
- @mapper = nil if flush
- @mapper || Mapper.new(SampleClass)
- end
-
-end
Deleted: MacRuby/trunk/test/hotcocoa/test_mappings.rb
===================================================================
--- MacRuby/trunk/test/hotcocoa/test_mappings.rb 2009-01-20 14:44:35 UTC (rev 795)
+++ MacRuby/trunk/test/hotcocoa/test_mappings.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -1,76 +0,0 @@
-require 'hotcocoa'
-require File.join(File.dirname(__FILE__), '..', 'test_helper')
-
-class SampleClass
- def self.val; @val || false; end
- def self.val= (v); @val = v; end
-end
-
-class TestMappings < Test::Unit::TestCase
-
- include HotCocoa
-
- it "should have two Hash attributes named #mappings and #frameworks" do
- assert Mappings.mappings.is_a?(Hash)
- assert Mappings.frameworks.is_a?(Hash)
- end
-
- it "should register callbacks for the point of time when a framework is loaded with #on_framework" do
- p = Proc.new {}
- Mappings.on_framework(:Foo, &p)
- assert_equal(Mappings.frameworks['foo'].last, p)
- end
-
- it "should create a mapping to a class with #map" do
-
- block = Proc.new do
- def alloc_with_options(options); options; end
- end
-
- HotCocoa::Mappings.map({:foo => :SampleClass}, &block)
-
- m = HotCocoa::Mappings.mappings[:foo]
-
- assert_equal(m.control_class, SampleClass)
- assert_equal(m.builder_method, :foo)
- assert(m.control_module.instance_methods.include?(:alloc_with_options))
-
- end
-
- it "should create a mapping to a class for a framework with #map" do
-
- p = Proc.new {}
-
- HotCocoa::Mappings.map({:foo => :SampleClass, :framework => :Anonymous}, &p)
-
- require 'pp'; pp HotCocoa::Mappings
-
- # FIXME: This is not really nice. We test that the result exists, but not what it is.
- assert_equal Mappings.frameworks["anonymous"].size, 1
-
- end
-
- it "should call the framework's callbacks if it's passed to #framework_loaded" do
-
- p = Proc.new { SampleClass.val = true }
-
- Mappings.on_framework(:Foo, &p)
- Mappings.framework_loaded(:Foo)
-
- assert_equal SampleClass.val, true
-
- end
-
- it "should raise nothing if there's no entry for the framework passed to #framework_loaded" do
-
- assert_nothing_raised do
- Mappings.framework_loaded(:FrameworkDoesNotExist)
- end
-
- end
-
- def test_reload
- flunk 'Pending.'
- end
-
-end
\ No newline at end of file
Deleted: MacRuby/trunk/test/hotcocoa/test_plist.rb
===================================================================
--- MacRuby/trunk/test/hotcocoa/test_plist.rb 2009-01-20 14:44:35 UTC (rev 795)
+++ MacRuby/trunk/test/hotcocoa/test_plist.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -1,29 +0,0 @@
-require 'test/unit'
-require 'hotcocoa'
-
-class TestPlist < Test::Unit::TestCase
- include HotCocoa
-
- def test_to_plist
- assert_plist(123)
- assert_plist(true)
- assert_plist(false)
- assert_plist('foo')
- assert_plist('aiueo'.transform('latin-hiragana'))
- assert_plist(:foo, 'foo')
- assert_plist([1,2,3])
- assert_plist({'un' => 1, 'deux' => 2})
- end
-
- def test_to_plist_with_invalid_objects
- assert_plist(nil, nil)
- assert_plist(Object.new, nil)
- assert_plist(/foo/, nil)
- end
-
- private
-
- def assert_plist(val, expected=val)
- assert_equal(expected, read_plist(val.to_plist))
- end
-end
Deleted: MacRuby/trunk/test/test_helper.rb
===================================================================
--- MacRuby/trunk/test/test_helper.rb 2009-01-20 14:44:35 UTC (rev 795)
+++ MacRuby/trunk/test/test_helper.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -1,11 +0,0 @@
-require 'test/unit'
-
-class Test::Unit::TestCase
-
- class << self
- def it(name, &block)
- define_method("test_#{name}", &block)
- end
- end
-
-end
\ No newline at end of file
Copied: MacRuby/trunk/test-macruby/cases/hotcocoa/test_helper.rb (from rev 795, MacRuby/trunk/test/test_helper.rb)
===================================================================
--- MacRuby/trunk/test-macruby/cases/hotcocoa/test_helper.rb (rev 0)
+++ MacRuby/trunk/test-macruby/cases/hotcocoa/test_helper.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -0,0 +1,11 @@
+require 'test/unit'
+
+class Test::Unit::TestCase
+
+ class << self
+ def it(name, &block)
+ define_method("test_#{name}", &block)
+ end
+ end
+
+end
\ No newline at end of file
Copied: MacRuby/trunk/test-macruby/cases/hotcocoa/test_mapper.rb (from rev 795, MacRuby/trunk/test/hotcocoa/test_mapper.rb)
===================================================================
--- MacRuby/trunk/test-macruby/cases/hotcocoa/test_mapper.rb (rev 0)
+++ MacRuby/trunk/test-macruby/cases/hotcocoa/test_mapper.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -0,0 +1,63 @@
+require 'hotcocoa'
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class SampleClass
+end
+
+class TestMapper < Test::Unit::TestCase
+
+ include HotCocoa::Mappings
+
+ it "should have two hash attributes named #bindings and #delegate" do
+ assert Mapper.bindings_modules.is_a?(Hash)
+ assert Mapper.delegate_modules.is_a?(Hash)
+ end
+
+ [ :control_class, :builder_method, :control_module,
+ :map_bindings, :map_bindings= ].each do |method|
+
+ it "should have a #{method} attribute" do
+ assert_respond_to(sample_mapper, method)
+ end
+
+ end
+
+ it "should set it's control class on initialization" do
+ assert_equal(sample_mapper(true).control_class, SampleClass)
+ end
+
+ it "should convert from camelcase to underscore" do
+ assert sample_mapper.underscore("SampleCamelCasedWord"), 'sample_camel_cased_word'
+ end
+
+ def test_include_in_class
+
+ m = sample_mapper(true)
+ m.include_in_class
+
+ assert_equal m.instance_variable_get('@extension_method'), :include
+
+ flunk 'Pending.'
+
+ end
+
+ def test_each_control_ancestor
+ flunk 'Pending.'
+ end
+
+ def test_map_class
+ flunk 'Pending.'
+ end
+
+ def test_map_instances_of
+ flunk 'Pending.'
+ end
+
+ private
+
+ def sample_mapper(flush = false)
+ @mapper = nil if flush
+ @mapper || Mapper.new(SampleClass)
+ end
+
+end
Copied: MacRuby/trunk/test-macruby/cases/hotcocoa/test_mappings.rb (from rev 795, MacRuby/trunk/test/hotcocoa/test_mappings.rb)
===================================================================
--- MacRuby/trunk/test-macruby/cases/hotcocoa/test_mappings.rb (rev 0)
+++ MacRuby/trunk/test-macruby/cases/hotcocoa/test_mappings.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -0,0 +1,76 @@
+require 'hotcocoa'
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class SampleClass
+ def self.val; @val || false; end
+ def self.val= (v); @val = v; end
+end
+
+class TestMappings < Test::Unit::TestCase
+
+ include HotCocoa
+
+ it "should have two Hash attributes named #mappings and #frameworks" do
+ assert Mappings.mappings.is_a?(Hash)
+ assert Mappings.frameworks.is_a?(Hash)
+ end
+
+ it "should register callbacks for the point of time when a framework is loaded with #on_framework" do
+ p = Proc.new {}
+ Mappings.on_framework(:Foo, &p)
+ assert_equal(Mappings.frameworks['foo'].last, p)
+ end
+
+ it "should create a mapping to a class with #map" do
+
+ block = Proc.new do
+ def alloc_with_options(options); options; end
+ end
+
+ HotCocoa::Mappings.map({:foo => :SampleClass}, &block)
+
+ m = HotCocoa::Mappings.mappings[:foo]
+
+ assert_equal(m.control_class, SampleClass)
+ assert_equal(m.builder_method, :foo)
+ assert(m.control_module.instance_methods.include?(:alloc_with_options))
+
+ end
+
+ it "should create a mapping to a class for a framework with #map" do
+
+ p = Proc.new {}
+
+ HotCocoa::Mappings.map({:foo => :SampleClass, :framework => :Anonymous}, &p)
+
+ require 'pp'; pp HotCocoa::Mappings
+
+ # FIXME: This is not really nice. We test that the result exists, but not what it is.
+ assert_equal Mappings.frameworks["anonymous"].size, 1
+
+ end
+
+ it "should call the framework's callbacks if it's passed to #framework_loaded" do
+
+ p = Proc.new { SampleClass.val = true }
+
+ Mappings.on_framework(:Foo, &p)
+ Mappings.framework_loaded(:Foo)
+
+ assert_equal SampleClass.val, true
+
+ end
+
+ it "should raise nothing if there's no entry for the framework passed to #framework_loaded" do
+
+ assert_nothing_raised do
+ Mappings.framework_loaded(:FrameworkDoesNotExist)
+ end
+
+ end
+
+ def test_reload
+ flunk 'Pending.'
+ end
+
+end
\ No newline at end of file
Copied: MacRuby/trunk/test-macruby/cases/hotcocoa/test_plist.rb (from rev 795, MacRuby/trunk/test/hotcocoa/test_plist.rb)
===================================================================
--- MacRuby/trunk/test-macruby/cases/hotcocoa/test_plist.rb (rev 0)
+++ MacRuby/trunk/test-macruby/cases/hotcocoa/test_plist.rb 2009-01-20 14:44:47 UTC (rev 796)
@@ -0,0 +1,29 @@
+require 'test/unit'
+require 'hotcocoa'
+
+class TestPlist < Test::Unit::TestCase
+ include HotCocoa
+
+ def test_to_plist
+ assert_plist(123)
+ assert_plist(true)
+ assert_plist(false)
+ assert_plist('foo')
+ assert_plist('aiueo'.transform('latin-hiragana'))
+ assert_plist(:foo, 'foo')
+ assert_plist([1,2,3])
+ assert_plist({'un' => 1, 'deux' => 2})
+ end
+
+ def test_to_plist_with_invalid_objects
+ assert_plist(nil, nil)
+ assert_plist(Object.new, nil)
+ assert_plist(/foo/, nil)
+ end
+
+ private
+
+ def assert_plist(val, expected=val)
+ assert_equal(expected, read_plist(val.to_plist))
+ end
+end
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20090120/4b2845cf/attachment-0001.html>
More information about the macruby-changes
mailing list