RSokoban 0.71

data/test/tc_level_loader.rb

@@ -0,0 +1,88 @@
+
+class TC_LevelLoader < Test::Unit::TestCase
+
+	def setup
+		$RSOKOBAN_DATA_PATH = File.expand_path(File.dirname(__FILE__))
+	end
+	
+	def test_instance
+		ins = RSokoban::LevelLoader.new "original.xsb"
+		assert_equal true, ins.instance_of?(RSokoban::LevelLoader)
+	end
+	
+	def test_NoFileError
+		assert_raise(RSokoban::NoFileError) do
+			ins = RSokoban::LevelLoader.new "inexistant"
+		end
+	end
+	
+	def test_title_of_set
+		ins = RSokoban::LevelLoader.new "test_file1.xsb"
+		assert_equal 'test level', ins.set.title
+	end
+	
+	def test_description_of_set
+		ins = RSokoban::LevelLoader.new "test_file1.xsb"
+		assert_equal "one simple level to test\n", ins.set.description
+	end
+	
+	def test_picture
+		ins = RSokoban::LevelLoader.new "test_file1.xsb"
+		expected = [ '#####',
+                 '#.$@#',
+                 '#####']
+    assert_equal expected, ins.set.rawLevels[0].picture
+	end
+	
+	def test_title_of_level
+		ins = RSokoban::LevelLoader.new "test_file1.xsb"
+		assert_equal "1", ins.set.rawLevels[0].title
+	end
+	
+	def test_level_1
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		level = RSokoban::Level.new(RSokoban::RawLevel.new('1', ['#####', '#.$@#', '#####']))
+		assert_equal level, ins.level(1)
+	end
+	
+	def test_level_2
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		level = RSokoban::Level.new(RSokoban::RawLevel.new('2', ['######', '#. $@#', '######']))
+		assert_equal level, ins.level(2)
+	end
+
+	def test_level_3
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		level = RSokoban::Level.new(RSokoban::RawLevel.new('3', ['#####', '#   #', '#$  #', '#. @#', '#####' ]))
+		assert_equal level, ins.level(3)
+	end
+	
+	def test_level_4_title
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		assert_equal '4', ins.level(4).title
+	end
+	
+	def test_level_5_title
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		assert_equal '5', ins.level(5).title
+	end
+	
+	def test_level_6_title
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		assert_equal '6', ins.level(6).title
+	end
+	
+	def test_level_6
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		level = RSokoban::Level.new(RSokoban::RawLevel.new('6', ['#####', '#.$@#', '#####']))
+		assert_equal level, ins.level(6)
+	end
+	
+	def test_level_number_that_doesnt_exist
+		ins = RSokoban::LevelLoader.new "test_file2.xsb"
+		assert_raise(RSokoban::LevelNumberTooHighError) do
+			assert_equal '99', ins.level(99).title
+		end
+	end
+	
+end

data/test/tc_level_set.rb

@@ -0,0 +1,42 @@
+
+class TC_LevelSet < Test::Unit::TestCase
+
+	def test_instance
+		ins = RSokoban::LevelSet.new
+		assert_equal true, ins.instance_of?(RSokoban::LevelSet)
+	end
+	
+	def test_title_accessors
+		ins = RSokoban::LevelSet.new
+		ins.title = "Le titre"
+		assert_equal "Le titre", ins.title
+	end
+	
+	def test_default_title
+		ins = RSokoban::LevelSet.new
+		assert_equal 'Unknown set title', ins.title
+	end
+	
+	def test_description_accessors
+		ins = RSokoban::LevelSet.new
+		ins.description = "description"
+		assert_equal "description", ins.description
+	end
+	
+	def test_default_description
+		ins = RSokoban::LevelSet.new
+		assert_equal 'Empty description', ins.description
+	end
+	
+	def test_raw_levels_list_accessors
+		ins = RSokoban::LevelSet.new
+		list = [].push(RSokoban::RawLevel.new('title', ['###']))
+		ins.rawLevels = list
+		assert_equal list, ins.rawLevels
+	end
+	
+	def test_default_raw_levels_list
+		ins = RSokoban::LevelSet.new
+		assert_equal [], ins.rawLevels
+	end
+end

data/test/tc_man.rb

@@ -0,0 +1,55 @@
+
+class TC_Man < Test::Unit::TestCase
+
+	def testInstance
+		ins = RSokoban::Man.new 12, 3
+		assert_equal true, ins.instance_of?(RSokoban::Man)
+	end
+
+	def testXY
+		ins = RSokoban::Man.new 12, 3
+		assert_equal 12, ins.x
+		assert_equal 3, ins.y
+	end
+	
+	def testUp
+		pos = RSokoban::Man.new 12, 3
+		pos.up
+		assert_equal 12, pos.x
+		assert_equal 2, pos.y
+	end
+	
+	def testDown
+		pos = RSokoban::Man.new 12, 3
+		pos.down
+		assert_equal 12, pos.x
+		assert_equal 4, pos.y
+	end
+	
+	def testLeft
+		pos = RSokoban::Man.new 12, 3
+		pos.left
+		assert_equal 11, pos.x
+		assert_equal 3, pos.y
+	end
+	
+	def testRight
+		pos = RSokoban::Man.new 12, 3
+		pos.right
+		assert_equal 13, pos.x
+		assert_equal 3, pos.y
+	end
+	
+	def testEqual
+		pos1 = RSokoban::Man.new 99, 98
+		pos2 = RSokoban::Man.new 99, 98
+		assert pos1 == pos2
+	end
+	
+	def testNotEqual
+		pos1 = RSokoban::Man.new 99, 98
+		pos2 = RSokoban::Man.new 19, 18
+		assert pos1 != pos2
+	end
+	
+end

data/test/tc_moveable.rb

@@ -0,0 +1,41 @@
+require "../lib/rsokoban/moveable"
+
+class TC_Moveable < Test::Unit::TestCase
+
+	class Foo
+		include RSokoban::Moveable
+		attr_reader :x, :y
+		def initialize
+			@x = 12
+			@y = 3
+		end
+	end
+	
+	def testUp
+		pos = Foo.new
+		pos.up
+		assert_equal 12, pos.x
+		assert_equal 2, pos.y
+	end
+	
+	def testDown
+		pos = Foo.new
+		pos.down
+		assert_equal 12, pos.x
+		assert_equal 4, pos.y
+	end
+	
+	def testLeft
+		pos = Foo.new
+		pos.left
+		assert_equal 11, pos.x
+		assert_equal 3, pos.y
+	end
+	
+	def testRight
+		pos = Foo.new
+		pos.right
+		assert_equal 13, pos.x
+		assert_equal 3, pos.y
+	end
+end

data/test/tc_position.rb

@@ -0,0 +1,75 @@
+
+class TC_Position < Test::Unit::TestCase
+
+	def testInstance
+		pos = RSokoban::Position.new
+		assert_equal true, pos.instance_of?(RSokoban::Position)
+	end
+
+	def testXYForDefaultPositions
+		pos = RSokoban::Position.new
+		assert_equal 0, pos.x
+		assert_equal 0, pos.y
+	end
+	
+	def testXY
+		pos = RSokoban::Position.new 12, 3
+		assert_equal 12, pos.x
+		assert_equal 3, pos.y
+	end
+	
+	def testEqualityForDefaultPositions
+		pos1 = RSokoban::Position.new
+		pos2 = RSokoban::Position.new
+		assert pos1 == pos2
+	end
+	
+	def testEqlForDefaultPositions
+		pos1 = RSokoban::Position.new
+		pos2 = RSokoban::Position.new
+		assert pos1.eql?(pos2)
+	end
+	
+	def testEqualityForTwoDifferentPositions
+		pos1 = RSokoban::Position.new 
+		pos2 = RSokoban::Position.new 0, 1
+		assert_equal false, pos1 == pos2
+	end
+	
+	def testEquality
+		pos1 = RSokoban::Position.new 1, 2
+		pos2 = RSokoban::Position.new 1, 2
+		assert pos1 == pos2
+	end
+	
+	def testEqualityWithWrongObject
+		pos1 = RSokoban::Position.new 
+		pos2 = Object.new
+		assert_equal false, pos1 == pos2
+	end
+	
+	def testEqlForTwoDifferentPositions
+		pos1 = RSokoban::Position.new 
+		pos2 = RSokoban::Position.new 0, 1
+		assert_equal false, pos1.eql?(pos2)
+	end
+	
+	def testEql
+		pos1 = RSokoban::Position.new 1, 2
+		pos2 = RSokoban::Position.new 1, 2
+		assert pos1.eql?(pos2)
+	end
+	
+	def testEqlWithWrongObject
+		pos1 = RSokoban::Position.new 
+		pos2 = Object.new
+		assert_equal false, pos1.eql?(pos2)
+	end
+	
+	def testNotEqual
+		pos1 = RSokoban::Position.new 11, 12
+		pos2 = RSokoban::Position.new 1, 2
+		assert pos1 != pos2
+	end
+	
+end

data/test/tc_raw_level.rb

@@ -0,0 +1,35 @@
+
+class TC_RawLevel < Test::Unit::TestCase
+
+	def test_instance
+		ins = RSokoban::RawLevel.new
+		assert_equal true, ins.instance_of?(RSokoban::RawLevel)
+	end
+
+	def test_title_accessors
+		ins = RSokoban::RawLevel.new
+		ins.title = "Le titre"
+		assert_equal "Le titre", ins.title
+	end
+	
+	def test_default_title
+		ins = RSokoban::RawLevel.new
+		assert_equal 'Unknown level title', ins.title
+	end
+	
+	Picture1 = [ '#####',
+               '#.$@#',
+               '#####']
+               
+	def test_picture_accessors
+		ins = RSokoban::RawLevel.new
+		ins.picture = Picture1
+		assert_equal Picture1, ins.picture
+	end
+	
+	def test_default_picture
+		ins = RSokoban::RawLevel.new
+		assert_equal [], ins.picture
+	end
+	
+end

data/test/test.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+
+$LOAD_PATH.unshift File.dirname(__FILE__) + '/../lib'
+require "rsokoban"
+
+require "test/unit"
+
+require "../test/tc_level"
+require "../test/tc_level_loader"
+require "../test/tc_level_set"
+require "../test/tc_raw_level"
+require "../test/tc_position"
+require "../test/tc_moveable"
+require "../test/tc_man"
+require "../test/ui/tc_console"
+

data/test/test_file1.xsb

@@ -0,0 +1,9 @@
+; test level
+
+; one simple level to test
+
+#####
+#.$@#
+#####
+; 1
+; 

data/test/test_file2.xsb

@@ -0,0 +1,49 @@
+; another test file
+
+; 6 levels
+; blablabla
+; bla
+
+#####
+#.$@#
+#####
+; 1
+; blabla
+
+######
+#. $@#
+######
+; 2
+
+#####
+#   #
+#$  #
+#. @#
+#####
+; 3
+
+######
+#.$  #
+#.$  #
+#.$ @#
+######
+; 4
+
+    #####
+    #   #
+    #$  #
+  ###  $##
+  #  $ $ #
+### # ## #   ######
+#   # ## #####  ..#
+# $  $          ..#
+##### ### #@##  ..#
+    #     #########
+    #######
+; 5
+; Original level 1 from Thinking Rabbits
+
+#####
+#.$@#
+#####
+; 6

data/test/ui/tc_console.rb

@@ -0,0 +1,75 @@
+require 'rsokoban/ui/console'
+class TC_Console < Test::Unit::TestCase
+
+	def setup
+		@console = RSokoban::UI::Console.new
+		# Console#parse is private, make it public for testing purpose.
+		def @console.public_parse(*args)
+			parse(*args)
+		end
+	end
+	
+	def test_string_quit_must_returns_symbol_quit
+		assert_equal :quit, @console.public_parse('quit')
+	end
+	
+	def test_string_help_must_returns_symbol_help
+		assert_equal :help, @console.public_parse('help')
+	end
+	
+	def test_string_retry_must_returns_symbol_retry
+		assert_equal :retry, @console.public_parse('retry')
+	end
+	
+	def test_string_up_must_returns_symbol_up
+		assert_equal :up, @console.public_parse('up')
+	end
+	
+	def test_string_down_must_returns_symbol_down
+		assert_equal :down, @console.public_parse('down')
+	end
+	
+	def test_string_right_must_returns_symbol_right
+		assert_equal :right, @console.public_parse('right')
+	end
+	
+	def test_string_left_must_returns_symbol_left
+		assert_equal :left, @console.public_parse('left')
+	end
+	
+	def test_string_z_must_returns_symbol_up
+		assert_equal :up, @console.public_parse('z')
+	end
+	
+	def test_string_s_must_returns_symbol_down
+		assert_equal :down, @console.public_parse('s')
+	end
+	
+	def test_string_q_must_returns_symbol_left
+		assert_equal :left, @console.public_parse('q')
+	end
+	
+	def test_string_d_must_returns_symbol_right
+		assert_equal :right, @console.public_parse('d')
+	end
+	
+	def test_string_representing_a_number_must_returns_this_number
+		assert_equal 12, @console.public_parse("12")
+	end
+	
+	def test_must_return_nil_if_number_is_negative
+		assert_equal nil, @console.public_parse("-12")
+	end
+	
+	def test_must_return_nil_if_number_is_zero
+		assert_equal nil, @console.public_parse("0")
+	end
+	
+	def test_xsb_filename_must_returns_itself
+		assert_equal 'some_levels.xsb', @console.public_parse("some_levels.xsb")
+	end
+	
+	def test_anything_else_must_returns_nil
+		assert_equal nil, @console.public_parse('azerty')
+	end
+end

metadata

@@ -0,0 +1,102 @@
+--- !ruby/object:Gem::Specification 
+name: RSokoban
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 71
+  version: "0.71"
+platform: ruby
+authors: 
+- Xavier Nayrac
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-01-21 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: |-
+  RSokoban is a clone of the famous Sokoban game.
+  I wrote this program just to improve my skills in Ruby. Currently, you can play only in a console window.
+  Enjoy the game !
+email: xavier.nayrac@gmail.com
+executables: 
+- rsokoban
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/rsokoban.rb
+- lib/rsokoban/game.rb
+- lib/rsokoban/option.rb
+- lib/rsokoban/exception.rb
+- lib/rsokoban/crate.rb
+- lib/rsokoban/storage.rb
+- lib/rsokoban/moveable.rb
+- lib/rsokoban/ui/curses_console.rb
+- lib/rsokoban/ui/ui.rb
+- lib/rsokoban/ui/console.rb
+- lib/rsokoban/level_loader.rb
+- lib/rsokoban/raw_level.rb
+- lib/rsokoban/position.rb
+- lib/rsokoban/level.rb
+- lib/rsokoban/level_set.rb
+- lib/rsokoban/man.rb
+- bin/rsokoban
+- data/original.xsb
+- data/test.xsb
+- data/microban.xsb
+- README.rdoc
+- TODO
+- COPYING
+- test/test_file1.xsb
+- test/tc_level_loader.rb
+- test/test_file2.xsb
+- test/tc_level.rb
+- test/tc_position.rb
+- test/original.xsb
+- test/ui/tc_console.rb
+- test/tc_raw_level.rb
+- test/tc_man.rb
+- test/test.rb
+- test/tc_moveable.rb
+- test/tc_level_set.rb
+has_rdoc: true
+homepage: https://github.com/lkdjiin/RSokoban/wiki
+licenses: 
+- GPL-3
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 9
+      - 0
+      version: 1.9.0
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Clone of the Sokoban game.
+test_files: 
+- test/test.rb