rdgc-dm 0.1.0

data/spec/rdgc/map/04_room_spec.rb

@@ -0,0 +1,190 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Map
+
+describe RDGC::Map::Room, "is Area, filled with TileType::ROOM" do
+
+  before(:all) do
+    @top = 8
+    @bottom = 20
+    @left = 21
+    @right = 40
+
+    @block = Area.create(@top, @bottom, @left, @right)
+    @notblock = Area.create(1, 1, 1, 1)
+  end
+
+  it "room_size provides random value for room's height/width" do
+    min = 1
+    max = 50
+    (min..max).each do |val|
+      size = Room.room_size(val)
+      if size <= 0
+        (val-3).should < Util::Config.min_room_size
+      else
+        size.should >= Util::Config.min_room_size
+        size.should <= val-3
+      end
+    end
+  end
+
+  describe "for create_from_block" do
+
+    it "not enough size block can't create room" do
+      Room.create_from_block(@notblock).should be_nil
+    end
+
+    it "filled with TileType::ROOM" do
+      each_create_room do |r|
+        r.each_tile do |x, y, t|
+          t.should == TileType::ROOM
+        end
+      end
+    end
+
+    it "room height/width <= block height/width - 3" do
+      each_create_room do |r|
+        r.height.should <= @block.height - 3
+        r.width.should <= @block.width - 3
+      end
+    end
+
+    it "room's all coordinates in block area" do
+      each_create_room do |r|
+        r.each do |x, y|
+          @block.has_xy?(x, y).should be_true
+        end
+      end
+    end
+
+  end
+
+  describe "for create_from_block with min and max value" do
+
+    it "room create accept min and max value" do
+      min = 5
+      max = 10
+      opt = {:min => min, :max => max}
+
+      each_create_room(opt) do |r|
+        r.height.should <= max
+        r.height.should >= min
+        r.width.should <= max
+        r.width.should >= min
+      end
+    end
+
+    it "only max" do
+      max = 10
+      min = Util::Config.min_room_size
+      opt = {:max => max}
+
+      each_create_room(opt) do |r|
+        r.height.should <= max
+        r.height.should >= min
+        r.width.should <= max
+        r.width.should >= min
+      end
+    end
+
+    it "only min" do
+      min = 5
+      opt = {:min => min}
+
+      each_create_room(opt) do |r|
+        r.height.should <= @block.height - 3
+        r.height.should >= min
+        r.width.should <= @block.width - 3
+        r.width.should >= min
+      end
+    end
+
+    it "min = max if min > max" do
+      min = 10
+      max = 5
+      opt = {:min => min, :max => max}
+
+      each_create_room(opt) do |r|
+        r.height.should == max
+        r.width.should == max
+      end
+    end
+
+    it "min value can't under MIN_ROOM_SIZE, and adjust MIN_ROOM_SIZE" do
+      min = 1
+      opt = {:min => min}
+
+      each_create_room(opt) do |r|
+        valid_room?(r).should be_true
+      end
+    end
+
+    it "room size adjust limit size, if min value over base size" do
+      min = 200
+      opt = {:min => min}
+
+      each_create_room(opt) do |r|
+        r.height.should == @block.height - 3
+        r.width.should == @block.width - 3
+      end
+    end
+
+    it "max value can't over base size, and adjust base size" do
+      max = 200
+      opt = {:max => max}
+
+      each_create_room(opt) do |r|
+        valid_room?(r).should be_true
+      end
+    end
+
+    it "room size adjust MIN_ROOM_SIZE, if max value under MIN_ROOM_SIZE" do
+      max = 1
+      opt = {:max => max}
+
+      each_create_room(opt) do |r|
+        r.height.should == Util::Config.min_room_size
+        r.width.should == Util::Config.min_room_size
+      end
+    end
+
+  end
+
+  describe "Config affect min_room_size" do
+
+    it "min_room_size change if Config change" do
+      Util::Config.set(:min_room_size => 5).should be_true
+
+      min = 1
+      max = 50
+      (min..max).each do |val|
+        size = Room.room_size(val)
+        if size <= 0
+          (val-3).should < 5
+        else
+          size.should >= 5
+          size.should <= val-3
+        end
+      end
+
+      Util::Config.reset!.should be_true
+    end
+
+  end
+
+  def each_create_room(opt = nil)
+    10.times do
+      yield(Room.create_from_block(@block, opt))
+    end
+  end
+
+  def valid_room?(r)
+    return false unless r.height <= @block.height - 3
+    return false unless r.height >= Util::Config.min_room_size
+    return false unless r.width <= @block.width - 3
+    return false unless r.width >= Util::Config.min_room_size
+    true
+  end
+
+end

data/spec/rdgc/map/05_block_spec.rb

@@ -0,0 +1,273 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Map
+
+describe RDGC::Map::Block, 'has room and roads' do
+
+  before do
+    @block = Block.create(1, 20, 11, 30)
+  end
+
+  it "set/remove room" do
+    room = Room.create(1, 7, 15, 20)
+
+    @block.room = room
+    @block.has_room?.should be_true
+    @block.room.should equal(room)
+
+    @block.remove_room
+    @block.has_room?.should be_false
+    @block.room.should be_nil
+  end
+
+  it "add/remove road" do
+    road1 = Road.create(2, 2, 11, 14)
+    road2 = Road.create(1, 6, 20, 20)
+
+    @block.add_road(road1)
+    @block.has_road?.should be_true
+    @block.roads.size.should == 1
+    @block.roads[0].should equal(road1)
+
+    @block.add_road(road2)
+    @block.has_road?.should be_true
+    @block.roads.size.should == 2
+    @block.roads[0].should equal(road1)
+    @block.roads[1].should equal(road2)
+
+    @block.remove_roads
+    @block.has_road?.should be_false
+    @block.roads.should be_empty
+  end
+
+  it "#fill_room will set tile at room coordinates" do
+    room = Room.create(1, 7, 15, 20)
+
+    @block.room = room
+    @block.has_room?.should be_true
+    @block.room.should equal(room)
+
+    @block.fill_room
+
+    room.each_tile do |x, y, t|
+      @block.has_xy?(x, y).should be_true
+      @block.tile(x, y).should equal(TileType::ROOM)
+    end
+  end
+
+  it "#fill_roads will set tile at road coordinates" do
+    road1 = Road.create(2, 2, 11, 14)
+    road2 = Road.create(1, 6, 20, 20)
+
+    @block.add_road(road1)
+    @block.add_road(road2)
+    @block.has_road?.should be_true
+    @block.roads.size.should == 2
+
+    @block.fill_roads
+
+    [road1, road2].each do |road|
+      road.each_tile do |x, y, t|
+        @block.has_xy?(x, y).should be_true
+        @block.tile(x, y).should equal(TileType::ROAD)
+      end
+    end
+  end
+
+  it "#fill will fill room/road, and fill at wall other coordinates" do
+    room = Room.create(1, 7, 15, 20)
+    road = Road.create(2, 2, 11, 14)
+
+    @block.room = room
+    @block.add_road(road)
+
+    @block.fill
+
+    @block.each_tile do |x, y, t|
+      case
+      when room.has_xy?(x, y)
+        t.should equal(TileType::ROOM)
+      when road.has_xy?(x, y)
+        t.should equal(TileType::ROAD)
+      else
+        t.should equal(TileType::WALL)
+      end
+    end
+  end
+
+  it "#create_room create and set room from self block" do
+    @block.room.should be_nil
+
+    10.times do
+      room = @block.create_room
+      room.should be_an_instance_of(Room)
+
+      room.width.should <= @block.width - 3
+      room.height.should <= @block.height - 3
+
+      room.each do |x, y|
+        @block.has_xy?(x, y).should be_true
+      end
+    end
+  end
+
+  it "#create_room accept option value" do
+    min = 5
+    max = 8
+
+    @block.room.should be_nil
+    10.times do
+      room = @block.create_room(:min => min, :max => max)
+      room.should be_an_instance_of(Room)
+
+      room.width.should >= min
+      room.width.should <= max
+      room.height.should >= min
+      room.height.should <= max
+    end
+  end
+
+  it "cross_point is cross point of road, instead of room" do
+    @block.cross_point.should be_nil
+    @block.has_cross_point?.should be_false
+
+    10.times do
+      x, y =  @block.create_cross_point
+
+      @block.has_cross_point?.should be_true
+      @block.has_xy?(x, y).should be_true
+      x.should >= @block.left + 1
+      x.should <= @block.right - 2
+      y.should >= @block.top + 1
+      y.should <= @block.bottom - 2
+
+      _x, _y = @block.cross_point
+      _x.should == x
+      _y.should == y
+    end
+
+    @block.remove_cross_point
+
+    @block.cross_point.should be_nil
+    @block.has_cross_point?.should be_false
+  end
+
+  it "#remove_all will clear room/road/cross_point and #empty? is true" do
+    room = Room.create(1, 7, 15, 20)
+    road = Road.create(2, 2, 11, 14)
+
+    @block.room = room
+    @block.add_road(road)
+    @block.create_cross_point
+
+    @block.has_room?.should be_true
+    @block.has_road?.should be_true
+    @block.has_cross_point?.should be_true
+    @block.empty?.should be_false
+
+    @block.remove_all
+
+    @block.has_room?.should be_false
+    @block.has_road?.should be_false
+    @block.has_cross_point?.should be_false
+    @block.empty?.should be_true
+  end
+
+  it "#cling_to_top? / #cling_direction_to judge self and target block adjoin with top" do
+    # 基準（元の左上）
+    b = Block.create(-10, 0, 0, 10)
+    @block.cling_to_top?(b).should be_false
+
+    # 右端が範囲内
+    b = Block.create(-10, 0, 1, 11)
+    @block.cling_to_top?(b).should be_true
+    @block.cling_direction_to(b).should == :top
+
+    # 左端が範囲内
+    b = Block.create(-10, 0, 30, 40)
+    @block.cling_to_top?(b).should be_true
+    @block.cling_direction_to(b).should == :top
+
+    # 左端が範囲外
+    b = Block.create(-10, 0, 31, 41)
+    @block.cling_to_top?(b).should be_false
+
+    # 重なるとダメ
+    b = Block.create(-9, 1, 15, 25)
+    @block.cling_to_top?(b).should be_false
+  end
+
+  it "#cling_to_bottom? / #cling_direction_to judge self and target block adjoin with bottom" do
+    # 基準（元の左下）
+    b = Block.create(21, 31, 0, 10)
+    @block.cling_to_bottom?(b).should be_false
+
+    # 右端が範囲内
+    b = Block.create(21, 31, 1, 11)
+    @block.cling_to_bottom?(b).should be_true
+    @block.cling_direction_to(b).should == :bottom
+
+    # 左端が範囲内
+    b = Block.create(21, 31, 30, 40)
+    @block.cling_to_bottom?(b).should be_true
+    @block.cling_direction_to(b).should == :bottom
+
+    # 左端が範囲外
+    b = Block.create(21, 31, 31, 41)
+    @block.cling_to_bottom?(b).should be_false
+
+    # 重なるとダメ
+    b = Block.create(20, 30, 15, 25)
+    @block.cling_to_bottom?(b).should be_false
+  end
+
+  it "#cling_to_left? / #cling_direction_to judge self and target block adjoin with left" do
+    # 基準（元の左上）
+    b = Block.create(-10, 0, 0, 10)
+    @block.cling_to_left?(b).should be_false
+
+    # 下端が範囲内
+    b = Block.create(-9, 1, 0, 10)
+    @block.cling_to_left?(b).should be_true
+    @block.cling_direction_to(b).should == :left
+
+    # 上端が範囲内
+    b = Block.create(20, 30, 0, 10)
+    @block.cling_to_left?(b).should be_true
+    @block.cling_direction_to(b).should == :left
+
+    # 上端が範囲外
+    b = Block.create(21, 31, 0, 10)
+    @block.cling_to_left?(b).should be_false
+
+    # 重なるとダメ
+    b = Block.create(15, 30, 1, 11)
+    @block.cling_to_left?(b).should be_false
+  end
+
+  it "#cling_to_right? / #cling_direction_to judge self and target block adjoin with right" do
+    # 基準（元の右上）
+    b = Block.create(-10, 0, 31, 41)
+    @block.cling_to_right?(b).should be_false
+
+    # 下端が範囲内
+    b = Block.create(-9, 1, 31, 41)
+    @block.cling_to_right?(b).should be_true
+    @block.cling_direction_to(b).should == :right
+
+    # 上端が範囲内
+    b = Block.create(20, 30, 31, 41)
+    @block.cling_to_right?(b).should be_true
+    @block.cling_direction_to(b).should == :right
+
+    # 上端が範囲外
+    b = Block.create(21, 31, 31, 41)
+    @block.cling_to_right?(b).should be_false
+
+    # 重なるとダメ
+    b = Block.create(15, 30, 30, 40)
+    @block.cling_to_right?(b).should be_false
+  end
+
+end

data/spec/rdgc/map/06_board_spec.rb

@@ -0,0 +1,132 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Map
+
+describe RDGC::Map::Board, 'has rooms and roads from Blocks' do
+
+  it "#set_coordinates will set self coordinates from blocks coordinates" do
+    b = Board.create(1, 1, 1, 1)
+    b.should be_an_instance_of(Board)
+    b.width.should == 1
+    b.height.should == 1
+
+    b.blocks << Block.create(0, 20, 10, 30)
+    b.blocks << Block.create(10, 30, 20, 40)
+
+    b.set_coordinates
+
+    b.top.should == 0
+    b.bottom.should == 30
+    b.left.should == 10
+    b.right.should == 40
+  end
+
+  it "#fill will fill room/road, and fill at wall other coordinates" do
+    b = Board.create(0, 20, 0, 20)
+
+    room = Room.create(5, 15, 5, 15)
+    road1 = Road.create(0, 4, 10, 10)
+    road2 = Road.create(16, 20, 12, 12)
+
+    b.rooms << room
+    b.roads << road1
+    b.roads << road2
+
+    b.fill
+
+    b.each_tile do |x, y, t|
+      case t
+      when TileType::WALL
+        room.has_xy?(x, y).should be_false
+        road1.has_xy?(x, y).should be_false
+        road2.has_xy?(x, y).should be_false
+
+        b.movable?(x, y).should be_false
+        b.room?(x, y).should be_false
+        b.road?(x, y).should be_false
+      when TileType::ROOM
+        room.has_xy?(x, y).should be_true
+        road1.has_xy?(x, y).should be_false
+        road2.has_xy?(x, y).should be_false
+
+        b.movable?(x, y).should be_true
+        b.room?(x, y).should be_true
+        b.road?(x, y).should be_false
+      when TileType::ROAD
+        room.has_xy?(x, y).should be_false
+        [road1, road2].map{|r| r.has_xy?(x, y)}.any?.should be_true
+
+        b.movable?(x, y).should be_true
+        b.room?(x, y).should be_false
+        b.road?(x, y).should be_true
+      end
+    end
+  end
+
+  it "#init will initialize self from blocks, and create_from_blocks will provides init Board" do
+    block1 = Block.create(0, 20, 0, 20)
+    room1 = Room.create(5, 15, 5, 15)
+    road1 = Road.create(0, 4, 10, 10)
+    road2 = Road.create(16, 20, 12, 12)
+    block1.room = room1
+    block1.add_road(road1)
+    block1.add_road(road2)
+
+    block2 = Block.create(21, 40, 0, 20)
+    room2 = Room.create(25, 35, 25, 35)
+    road3 = Road.create(21, 24, 12, 12)
+    block2.room = room2
+    block2.add_road(road3)
+
+    b1 = Board.create(1, 1, 1, 1)
+    b1.init([block1, block2])
+
+    b2 = Board.create_from_blocks([block1, block2])
+    b2.should be_an_instance_of(Board)
+
+    [b1, b2].each do |b|
+      b.blocks.should be_include(block1)
+      b.blocks.should be_include(block2)
+      b.rooms.should be_include(room1)
+      b.rooms.should be_include(room2)
+      b.roads.should be_include(road1)
+      b.roads.should be_include(road2)
+      b.roads.should be_include(road3)
+
+      # set_coordinates
+      b.top.should == 0
+      b.bottom.should == 40
+      b.left.should == 0
+      b.right.should == 20
+
+      # fill
+      b.each_tile do |x, y, t|
+        case t
+        when TileType::WALL
+          [room1, room2].map{|r| r.has_xy?(x, y)}.any?.should be_false
+          [road1, road2, road3].map{|r| r.has_xy?(x, y)}.any?.should be_false
+
+          b.movable?(x, y).should be_false
+          b.room?(x, y).should be_false
+          b.road?(x, y).should be_false
+        when TileType::ROOM
+          [room1, room2].map{|r| r.has_xy?(x, y)}.any?.should be_true
+          [road1, road2, road3].map{|r| r.has_xy?(x, y)}.any?.should be_false
+
+          b.movable?(x, y).should be_true
+          b.room?(x, y).should be_true
+          b.road?(x, y).should be_false
+        when TileType::ROAD
+          [room1, room2].map{|r| r.has_xy?(x, y)}.any?.should be_false
+          [road1, road2, road3].map{|r| r.has_xy?(x, y)}.any?.should be_true
+
+          b.movable?(x, y).should be_true
+          b.room?(x, y).should be_false
+          b.road?(x, y).should be_true
+        end
+      end
+    end
+  end
+
+end

data/spec/rdgc/util/01_config_spec.rb

@@ -0,0 +1,44 @@
+# coding: UTF-8
+require File.expand_path(File.dirname(__FILE__) + '../../../spec_helper')
+
+include RDGC::Util
+
+describe RDGC::Util::Config do
+
+  it "default value" do
+    Util::Config.min_room_size.should == 4
+    Util::Config.min_block_size.should == 7
+    Util::Config.act_max_count.should == 200
+  end
+
+  it "value change only once, and #reset! will force change default value" do
+    val1 = {
+      :min_room_size => 5,
+      :act_max_count => 100
+    }
+
+    Util::Config.set(val1).should be_true
+    Util::Config.min_room_size.should == 5
+    Util::Config.act_max_count.should == 100
+
+    val2 = {
+      :min_room_size => 10,
+      :act_max_count => 80
+    }
+
+    Util::Config.set(val2).should be_false
+    Util::Config.min_room_size.should == 5
+    Util::Config.act_max_count.should == 100
+
+    Util::Config.reset!.should be_true
+    Util::Config.min_room_size.should == 4
+    Util::Config.act_max_count.should == 200
+
+    Util::Config.set(val2).should be_true
+    Util::Config.min_room_size.should == 10
+    Util::Config.act_max_count.should == 80
+
+    Util::Config.reset!.should be_true
+  end
+
+end