btetris_kp 0.0.1

data/spec/core/board_spec.rb

@@ -0,0 +1,94 @@
+#!/usr/bin/env ruby
+
+require "btetris_kp/core/piece"
+require "btetris_kp/core/board"
+require 'spec_helper'
+
+module BTetrisKp
+  describe Board do
+    before :each do
+      @board = Board.new(BTetrisWindow.new, 20, 20)
+    end
+
+    it 'can initialize Board' do
+      @board.should(be_an_instance_of Board)
+    end
+
+    it 'initialization creates empty board' do
+      @board.board.each do |row| 
+        row.each { |val| val.should eq 0 }
+      end
+    end
+
+    it 'can convert board to string' do
+      str = @board.to_s
+      str.size.should eq Const::PNR_VER * Const::PNR_HOR
+      str.each_char { |val| val.should eq '0' }
+    end
+
+    it 'can convert string to board' do
+      str = @board.to_s
+      str[0] = '1'
+      str[Const::PNR_VER * Const::PNR_HOR - 1] = '2'
+      @board.from_s!(str)
+      @board.board[0][0].should eq 1
+      @board.board[Const::PNR_VER - 1][Const::PNR_HOR - 1].should eq 2
+    end
+
+    it 'can tell if game is over' do
+      @board.game_over?.should eq false
+      @board.board[0].each_with_index { |val, y| @board.board[0][y] = 1 }
+      @board.game_over?.should eq true
+    end
+
+    it 'can clear full rows' do
+      @board.board[0].each_with_index { |val, y| @board.board[0][y] = 1 }
+      @board.board[3].each_with_index { |val, y| @board.board[3][y] = 1 }
+      cnt = @board.clear_rows!
+      cnt.should eq 2
+      @board.board[0][0].should eq 0
+      @board.board[3][0].should eq 0
+    end
+
+    it 'can move other rows correctly when clearing rows' do
+      @board.board[2].each_with_index { |val, y| @board.board[2][y] = 1 }
+      @board.board[0][0] = 1
+      @board.board[1][1] = 1
+      cnt = @board.clear_rows!
+      cnt.should eq 1
+      @board.board[1][0].should eq 1
+      @board.board[2][1].should eq 1
+    end
+
+    it 'can insert garbage rows at the bottom of the board' do
+      @board.insert_garbage!(2)
+      @board.board[Const::PNR_VER - 1].inject(:+).should_not eq 0
+      @board.board[Const::PNR_VER - 1].include?(0).should eq true
+    end
+
+    it 'can move other rows correctly when inserting garbage rows' do
+      @board.board[Const::PNR_VER - 1][0] = 1
+      @board.board[Const::PNR_VER - 2][0].should eq 0
+      @board.insert_garbage!(1)
+      @board.board[Const::PNR_VER - 2][0].should eq 1
+    end
+
+    it 'can drop piece to the bottom of the board' do
+      @board.cur_piece = Piece.new(@board.board, 0, 0, 0)
+      @board.piece_drop!
+      @board.cur_piece.set_on_board
+      @board.board[Const::PNR_VER - 1][0].should_not eq 0
+    end
+
+    it 'can tell if piece is stuck (cant move further down)' do
+      @board.cur_piece = Piece.new(@board.board, 0, 0, 0)
+      @board.piece_stuck?.should eq false
+      @board.piece_drop!
+      @board.piece_stuck?.should eq true
+
+      @board.cur_piece = Piece.new(@board.board, 0, 0, 0)
+      @board.board[2][0] = 1
+      @board.piece_stuck?.should eq true
+    end
+  end
+end

data/spec/core/piece_spec.rb

@@ -0,0 +1,114 @@
+#!/usr/bin/env ruby
+
+require "btetris_kp/core/piece"
+require "btetris_kp/core/board"
+require 'spec_helper'
+
+module BTetrisKp
+  describe Piece do
+    before :each do
+      @board = Board.new(Gosu::Window.new(800, 600, false), 20, 20)
+    end
+  
+    it 'can initialize Piece' do
+      pi = Piece.new(@board.board, 10, 15, 0).should(be_an_instance_of Piece)
+    end
+
+    it 'can place any type of piece on empty board' do
+      (0...Const::TILES.size).each_with_index do |tile, index|
+        pi = Piece.new(@board.board, 0, 0, index)
+        pi.can_be_set?.should eq true
+      end
+    end
+
+    it 'can rotate any type of piece to both directions' do
+      (0...Const::TILES.size).each_with_index do |tile, index|
+        pi = Piece.new(@board.board, 4, 4, index)
+        pi.can_be_set?.should eq true
+        3.times do
+          pi.rotate_right!
+          pi.can_be_set?.should eq true
+        end
+        3.times do
+          pi.rotate_left!
+          pi.can_be_set?.should eq true
+        end
+      end
+    end
+
+    it 'can tell if piece can be placed on board or not' do
+      pi = Piece.new(@board.board, 0, 0, 0)
+      pi.can_be_set?.should eq true
+      @board.board[0][0] = 1
+      pi.can_be_set?.should eq false
+    end
+
+    it 'can move piece left' do
+      pi = Piece.new(@board.board, 4, 4, 0)
+      pi.move_left!
+      pi.can_be_set?.should eq true
+    end
+
+    it 'can move piece right' do
+      pi = Piece.new(@board.board, 4, 4, 0)
+      pi.move_right!
+      pi.can_be_set?.should eq true
+    end
+
+    it 'can move piece up' do
+      pi = Piece.new(@board.board, 4, 4, 0)
+      pi.move_up!
+      pi.can_be_set?.should eq true
+    end
+
+    it 'can move piece down' do
+      pi = Piece.new(@board.board, 4, 4, 0)
+      pi.move_down!
+      pi.can_be_set?.should eq true
+    end
+
+    it 'can not place piece on full board' do
+      @board.board.each_with_index do |row, x|
+        row.each_with_index do |val, y|
+          @board.board[x][y] = 1
+        end
+      end
+      pi = Piece.new(@board.board, 4, 4, 0)
+      pi.can_be_set?.should eq false
+    end
+
+    it 'can not place piece after moving on filled block' do
+      @board.board[0][0] = 1
+      pi = Piece.new(@board.board, 0, 1, 0)
+      pi.can_be_set?.should eq true
+      pi.move_left!
+      pi.can_be_set?.should eq false
+    end
+
+    it 'can not leave board borders when moving' do
+      pi = Piece.new(@board.board, 0, 0, 0)
+      pi.can_be_set?.should eq true
+      pi.move_left!
+      pi.can_be_set?.should eq false
+      pi.move_right!
+      pi.move_up!
+      pi.can_be_set?.should eq false
+    end
+
+    it 'can be set on board' do
+      pi = Piece.new(@board.board, 0, 0, 0)
+      pi.can_be_set?.should eq true
+      @board.board[0][0].should eq 0
+      pi.set_on_board
+      @board.board[0][0].should_not eq 0
+    end
+
+    it 'can be unset from board' do
+      pi = Piece.new(@board.board, 0, 0, 0)
+      pi.set_on_board
+      @board.board[0][0].should_not eq 0
+      pi.unset_on_board
+      @board.board[0][0].should eq 0
+    end
+  end
+end

data/spec/game_spec.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+
+module BTetrisKp
+  describe GameState do
+    before :each do
+      @game = GameState.new(BTetrisWindow.new, 50, 50)
+    end
+
+    it 'can initialize GameState (window state used for playing game)' do
+      @game.should(be_an_instance_of GameState)
+    end
+
+    it 'can pause and unpause game' do
+      @game.pause!
+      @game.paused.should eq true
+      @game.pause!
+      @game.paused.should eq false
+    end
+
+    it 'can tell if game is over' do
+      @game.game_over.should eq false
+      @game.insert_garbage!(Const::PNR_VER - 1)
+      Const::GAME_SPEED.times { @game.update }
+      @game.game_over.should eq true
+    end
+  end
+end

data/spec/gui/menuitem_spec.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+require "btetris_kp/constants"
+
+module BTetrisKp
+  describe MenuItem do
+    before :each do
+      @window = Gosu::Window.new(800, 600, false)
+      font = Gosu::Font.new(@window, Gosu.default_font_name, 10)
+      @set = false
+      @mi = MenuItem.new(@window, 'TEST MENU', 0, lambda { @set = true }, font,  50, 50)
+    end
+
+    it 'can initialize MenuItem' do
+      @mi.should(be_an_instance_of MenuItem)
+    end
+
+    it 'can tell if mouse is over' do
+       @window.mouse_x, @window.mouse_y = 0, 0
+       @mi.mouse_over?.should eq false
+       @window.mouse_x, @window.mouse_y = 0, 100
+       @mi.mouse_over?.should eq false
+       @window.mouse_x, @window.mouse_y = 400, 0
+       @mi.mouse_over?.should eq false
+       @window.mouse_x, @window.mouse_y = 400, 100
+       @mi.mouse_over?.should eq false
+       @window.mouse_x, @window.mouse_y = 55, 55
+       @mi.mouse_over?.should eq true
+    end
+
+    it 'can call procedure when clicked' do
+       @window.mouse_x, @window.mouse_y = 55, 55
+       @mi.clicked
+       @set.should eq true
+    end
+    
+  end
+end

data/spec/gui/textfield_spec.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+require "btetris_kp/gui/textfield"
+
+module BTetrisKp
+  describe TextField do
+    before :each do
+      window = Gosu::Window.new(800, 600, false)
+      font = Gosu::Font.new(window, Gosu.default_font_name, 10)
+      @tf = TextField.new(window, font, 50, 50, '12345',  /[^0-9]/, 100, 9)
+    end
+
+    it 'can initialize TextField' do
+      @tf.should(be_an_instance_of TextField)
+    end
+
+    it 'can filter text' do
+      @tf.filter('ah0j').should eq '0'
+    end
+
+    it 'can tell if mouse is over' do
+       @tf.mouse_over?(0,0).should eq false
+       @tf.mouse_over?(0,100).should eq false
+       @tf.mouse_over?(300,0).should eq false
+       @tf.mouse_over?(300,100).should eq false
+       @tf.mouse_over?(55,55).should eq true
+    end
+
+    it 'can set caret position depending on mouse click' do
+       @tf.move_caret(50)
+       @tf.caret_pos.should eq 0
+    end
+  end
+end

data/spec/menu_spec.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+require "btetris_kp/btetris"
+
+module BTetrisKp
+  describe MenuState do
+    before :each do
+      @ms = MenuState.new(BTetrisWindow.new)
+    end
+
+    it 'can initialize MenuState (window state used for main menu of the game)' do
+      @ms.should(be_an_instance_of MenuState)
+    end
+
+    it 'can generate background board' do
+      @ms.generate_back_board.should(be_an_instance_of Array)
+    end
+
+    it 'can generate menu' do
+      @ms.generate_menu.should(be_an_instance_of Array)
+    end
+  end
+end

data/spec/netgame_spec.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+
+module BTetrisKp
+  # class used for testing socket connection messages
+  class TestSocket
+    attr_accessor :msg
+
+    def initialize(msg)
+      @msg = msg
+    end
+
+    def sendmsg_nonblock(s)
+      @msg = s
+    end
+
+    def recv_nonblock(cnt)
+      @msg
+    end
+  end
+
+  describe NetGameState do
+    it 'can initialize NetGameState (window state used for playing net game)' do
+      ng = NetGameState.new(BTetrisWindow.new, nil)
+      ng.should(be_an_instance_of NetGameState)
+    end
+
+    it 'can send pause message' do
+      s = TestSocket.new('')
+      ng = NetGameState.new(BTetrisWindow.new, s)
+      ng.send_msg(Const::MSG_PAUSE)
+      s.msg.should eq Const::MSG_PAUSE
+    end
+
+    it 'can send game over message' do
+      s = TestSocket.new('')
+      ng = NetGameState.new(BTetrisWindow.new, s)
+      ng.send_msg(Const::MSG_GAME_OVER)
+      s.msg.should eq Const::MSG_GAME_OVER
+    end
+
+    it 'can send message with board update' do
+      s = TestSocket.new('')
+      ng = NetGameState.new(BTetrisWindow.new, s)
+      ng.send_msg(Const::MSG_BOARD)
+      m = s.msg.split(":")
+      m[0].should eq Const::MSG_BOARD
+      b = Board.new(BTetrisWindow.new, 20, 20)
+      m[1].size.should eq Const::PNR_VER * Const::PNR_HOR
+      (m[1] =~ /^[0-9]+$/).should eq 0
+    end
+
+    it 'can send garbage message' do
+      s = TestSocket.new('')
+      ng = NetGameState.new(BTetrisWindow.new, s)
+      ng.send_msg(Const::MSG_GARBAGE)
+      m = s.msg.split(":")
+      m[0].should eq Const::MSG_GARBAGE
+      m[1].to_i.should eq 0
+    end
+
+    it 'can correctly interpret incoming message type' do
+      s = TestSocket.new(Const::MSG_PAUSE)
+      ng = NetGameState.new(BTetrisWindow.new, s)
+      ng.check_msg.should eq Const::MSG_PAUSE
+      s.msg = Const::MSG_GAME_OVER
+      ng.check_msg.should eq Const::MSG_GAME_OVER
+      s.msg = Const::MSG_BOARD
+      ng.check_msg.should eq Const::MSG_BOARD
+      s.msg = Const::MSG_GARBAGE
+      ng.check_msg.should eq Const::MSG_GARBAGE
+    end
+  end
+end

data/spec/netjoin_spec.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+
+module BTetrisKp
+  describe NetJoinState do
+    before :each do
+      @nj = NetJoinState.new(BTetrisWindow.new)
+    end
+
+    it 'can initialize NetJoinState (window state used for joining net game)' do
+      @nj.should(be_an_instance_of NetJoinState)
+    end
+  end
+end

data/spec/netsetup_spec.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+
+module BTetrisKp
+  describe NetSetupState do
+    before :each do
+      @window = Gosu::Window.new(800, 600, false)
+      @nj = NetSetupState.new(@window)
+    end
+
+    it 'can initialize NetSetupState (window state used for creating net game)' do
+      @nj.should(be_an_instance_of NetSetupState)
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+RSpec.configure do |config|
+  config.color_enabled = true
+end

metadata

@@ -0,0 +1,147 @@
+--- !ruby/object:Gem::Specification
+name: btetris_kp
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Pavel Kocka
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-02-05 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: gosu
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.7'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.14'
+description: Battle Tetris
+email:
+- kockapav@gmail.com
+executables:
+- btetris_kp
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/btetris_kp
+- btetris_kp.gemspec
+- lib/btetris_kp.rb
+- lib/btetris_kp/btetris.rb
+- lib/btetris_kp/constants.rb
+- lib/btetris_kp/core/board.rb
+- lib/btetris_kp/core/piece.rb
+- lib/btetris_kp/game.rb
+- lib/btetris_kp/gui/menuitem.rb
+- lib/btetris_kp/gui/textfield.rb
+- lib/btetris_kp/menu.rb
+- lib/btetris_kp/netgame.rb
+- lib/btetris_kp/netjoin.rb
+- lib/btetris_kp/netsetup.rb
+- lib/btetris_kp/version.rb
+- media/drop.ogg
+- media/pop.ogg
+- media/rotate.ogg
+- media/title.png
+- spec/btetris_spec.rb
+- spec/core/board_spec.rb
+- spec/core/piece_spec.rb
+- spec/game_spec.rb
+- spec/gui/menuitem_spec.rb
+- spec/gui/textfield_spec.rb
+- spec/menu_spec.rb
+- spec/netgame_spec.rb
+- spec/netjoin_spec.rb
+- spec/netsetup_spec.rb
+- spec/spec_helper.rb
+homepage: https://github.com/kockapav/btetris_kp
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.1
+signing_key: 
+specification_version: 4
+summary: Tetris for 2 players via lan
+test_files:
+- spec/btetris_spec.rb
+- spec/core/board_spec.rb
+- spec/core/piece_spec.rb
+- spec/game_spec.rb
+- spec/gui/menuitem_spec.rb
+- spec/gui/textfield_spec.rb
+- spec/menu_spec.rb
+- spec/netgame_spec.rb
+- spec/netjoin_spec.rb
+- spec/netsetup_spec.rb
+- spec/spec_helper.rb