Changeset 27516

Timestamp:

12/28/08 18:19:42 (4 years ago)

Author:

isaisstillalive

Message:

• Collection関連をリファクタリング。Eventableモジュールをincludeする形にした。
  
• Collectableモジュールを作成し、Sprite自身のメソッドを再定義しないようにした。
  

Location:

lang/ruby/starframe

Files:

• lib/starframe/sprite/collection.rb (modified) (1 diff)
• test/starframe/sprite/test_collection.rb (modified) (2 diffs)

lang/ruby/starframe/lib/starframe/sprite/collection.rb

@@ +1 @@
+require "starframe/eventable"
+
 module StarFrame #:nodoc:
   class Sprite
-    # 現在所属しているコレクション。
-    attr_reader :collection
+    # = コレクション所属モジュール
+    # コレクションに所属できるようにするモジュール。
+    # Sprite::Collectionをロードすると自動的にSpriteにインクルードされる。
+    module Collectable
+      # 現在所属しているコレクション。
+      attr_reader :collection
+      # 新たなコレクションに所属させる。
+      # 
+      # 所属していたコレクションからは自動的に削除される。
+      def collection= collection
+        collection.add self
+      end
+      
+      # 所属しているコレクションから自分を削除する。
+      def vanish
+        return unless @collection
+        @collection.delete self
+        @collection = nil
+      ensure
+        return self
+      end
+    end
+    include Collectable
     
-    # 所属しているコレクションから自分を削除する。
-    def vanish
-      return unless @collection
-      @collection.delete self
-      @collection = nil
-    ensure
-      return self
-    end
-    
-    # 新たなコレクションに所属させる。
-    # 
-    # 所属していたコレクションからは自動的に削除される。
-    def collection= collection
-      collection << self
-    end
-    
-    class Collection < Array
+    # = コレクション
+    class Collection
+      include Enumerable
+      include Eventable
+      
+      #:stopdoc:
+      protected
+      attr_reader :sprites
+      
+      def initialize #:nodoc:
+        @sprites = []
+      end
+      #:startdoc:
+      
+      public
       # スプライトを所属させる。
       # 
       # そのスプライトが所属していたコレクションからは自動的に削除される。
-      def << sprite
-        defect_collection = sprite.instance_variable_get :@collection
-        defect_collection.delete sprite if defect_collection
+      def add sprite
+        defect_collection = sprite.collection
+        defect_collection.sprites.delete sprite if defect_collection
+        
+        @sprites << sprite
         sprite.instance_variable_set :@collection, self
-        super
+      end
+      alias << add
+      
+      # スプライトを所属から外す。
+      def delete sprite
+        @sprites.delete sprite
+        sprite.instance_variable_set :@collection, nil
+      end
+      
+      # 所属している全てのスプライトに対してブロックを評価する。
+      def each &block
+        @sprites.each &block
+      end
+      
+      # 所属しているスプライトの数を取得する。
+      def size
+        @sprites.size
       end
       
       # 所属している全てのスプライトの更新時イベントをコールする。
-      def call_update
-        each{ |sprite| sprite.call }
+      def update
+        @sprites.each &:call_update
       end
-      alias call call_update
+      # 所属している全てのスプライトの更新時イベントをコールする。
+      def render
+        @sprites.each &:call_render
+      end
       
       # 所属している全てのスプライトをtextureに描画する。
       def render_to texture
-        each{ |sprite| sprite.render_to texture }
+        @sprites.each{ |sprite| sprite.render_to texture }
       end
     end

lang/ruby/starframe/test/starframe/sprite/test_collection.rb

@@ -1 +1 @@
 require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "helper"))
 require "starframe/sprite"
+require "starframe/sprite/collection"
 
 class TestStarFrameSpriteCollection < Test::Unit::TestCase
-  class TestSprite < StarFrame::Sprite
-    attr_reader :texture, :updated
+  class CollectableObject
+    include StarFrame::Sprite::Collectable
     
-    @texture = StarRuby::Texture.load :sprite_texture
-    
-    def update
-      @updated = true
+    attr_reader :called_methods
+    def initialize
+      @called_methods = []
+    end
+    def method_missing *args
+      @called_methods << args
     end
   end
@@ -15 +18 @@
   def setup
     @collection = StarFrame::Sprite::Collection.new
-    @sprite = TestSprite.new(0, 0)
+    @sprite = CollectableObject.new
   end
   
-  def test_require
-    assert StarFrame::Sprite::Collection.include?(Enumerable)
-    assert_respond_to @sprite, :collection
-    assert_respond_to @sprite, :collection=
-    assert_respond_to @sprite, :vanish
+  def test_sprite_include
+    assert StarFrame::Sprite.include?(StarFrame::Sprite::Collectable)
   end
   
-  def test_initialize
-    assert_kind_of Array, @collection
+  
+  def test_collection_initialize
+    assert_kind_of Enumerable, @collection
     assert_equal 0, @collection.size
   end
   
-  def test_add
-    @collection << @sprite
+  def test_collection_add
+    @collection.add @sprite
     assert_equal 1, @collection.size
     assert_equal @collection, @sprite.collection
-    
-    @collection << @sprite
+  end
+  def test_collection_add_do_not_duplication
+    @collection.add @sprite
+    @collection.add @sprite
     assert_equal 1, @collection.size
     assert_equal @collection, @sprite.collection
   end
   
-  def assert_collection in_collection, out_collection
-    assert_equal 1,       in_collection.size
-    assert_equal @sprite, in_collection.last
-    
-    assert_equal 0,       out_collection.size
-    
-    assert_equal in_collection, @sprite.collection
+  def test_collection_delete
+    @collection.add @sprite
+    @collection.delete @sprite
+    assert_equal 0, @collection.size
+    assert_nil @sprite.collection
+  end
+  def test_collection_delete_not_member
+    @collection.delete @sprite
+    assert_equal 0, @collection.size
+    assert_nil @sprite.collection
   end
   
-  def test_add_duplication
-    collection1 = StarFrame::Sprite::Collection.new
-    collection2 = StarFrame::Sprite::Collection.new
-    
-    collection1 << @sprite
-    assert_collection collection1, collection2
-    
-    collection2 << @sprite
-    assert_collection collection2, collection1
+  def test_collection_each
+    @collection.add @sprite
+    @sprites = []
+    @collection.each do |sprite|
+      @sprites << sprite
+    end
+    assert_equal [@sprite], @sprites
   end
   
-  def test_sprite_collection_writer
-    collection1 = StarFrame::Sprite::Collection.new
-    collection2 = StarFrame::Sprite::Collection.new
-    
-    @sprite.collection = collection1
-    assert_collection collection1, collection2
-    
-    @sprite.collection = collection2
-    assert_collection collection2, collection1
+  def test_collection_size
+    @collection.add @sprite
+    assert_equal 1, @collection.size
   end
   
-  def assert_call method
-    @collection << sprite1 = TestSprite.new(1, 2)
-    @collection << sprite2 = TestSprite.new(1, 2)
+  def assert_collection_call_event method
+    @collection.add sprite1 = CollectableObject.new
+    @collection.add sprite2 = CollectableObject.new
     
-    assert !sprite1.updated
-    assert !sprite2.updated
+    @collection.add sprite1 = CollectableObject.new
+    @collection.add sprite2 = CollectableObject.new
+    
     @collection.__send__ method
-    assert  sprite1.updated
-    assert  sprite2.updated
+    
+    assert_equal [method], sprite1.called_methods.last
+    assert_equal [method], sprite2.called_methods.last
+  end
+  def test_collection_call_update
+    assert_collection_call_event :call_update
+  end
+  def test_collection_call_render
+    assert_collection_call_event :call_render
   end
   
-  def test_call
-    assert_call :call
-  end
-  
-  def test_call_update
-    assert_call :call_update
-  end
-  
-  def test_render_to
-    sprite = TestSprite.new(1, 2)
-    @collection << sprite
+  def test_collection_render_to
+    @collection.add @sprite
     texture = StarRuby::Texture.new 1, 1
     
     @collection.render_to texture
-    assert_equal :render_texture, texture.last_method
-    assert_equal sprite.texture,  texture.last_method_args[0]
-    assert_equal 1,               texture.last_method_args[1]
-    assert_equal 2,               texture.last_method_args[2]
+    
+    assert_equal [:render_to, texture],  @sprite.called_methods.last
   end
   
-  def test_sprite_vanish
-    sprite = TestSprite.new(0, 0)
-    @collection << sprite
+  
+  def test_collectable_collection_writer
+    @sprite.collection = @collection
     assert_equal 1, @collection.size
-    assert_equal sprite, sprite.vanish
-    assert_nil sprite.collection
+    assert_equal @collection, @sprite.collection
+  end
+  def test_collectable_collection_writer_deny_duplication
+    collection2 = StarFrame::Sprite::Collection.new
+    @sprite.collection = collection2
+    @sprite.collection = @collection
+    assert_equal 0, collection2.size
+  end
+  
+  def test_collectable_vanish
+    @sprite.collection = @collection
+    assert_equal @sprite, @sprite.vanish
+    assert_nil @sprite.collection
     assert_equal 0, @collection.size
   end
-  def test_sprite_vanish_uncollection
-    sprite = TestSprite.new(0, 0)
-    assert_equal sprite, sprite.vanish
-    assert_nil sprite.collection
+  def test_collectable_vanish_not_member
+    assert_equal @sprite, @sprite.vanish
+    assert_nil @sprite.collection
   end
 end