glimmer 0.1.0.0

data/test/observable_model_test.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../src/command_handlers/models/observable_model"
+
+require "test/unit"
+class ObservableModelTest < Test::Unit::TestCase
+  class Person 
+    attr_accessor :name
+  end
+
+  def test_observe_model
+    person = Person.new
+    person.name = "Marty"
+    assert_equal "Marty", person.name
+    person.extend ObservableModel
+    person.add_observer(:name, self)
+    person.name = "Julia"
+    assert_equal "Julia", @observed_name
+    assert_equal "Julia", person.name
+  end
+  
+  def update(name)
+    @observed_name = name
+  end
+end

data/test/r_widget_test.rb

@@ -0,0 +1,52 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../src/swt"
+
+class RWidgetTest < Test::Unit::TestCase
+  include Glimmer
+
+  def test_async_exec
+    @target = shell {
+      @text = text {
+        text "text1"
+      }
+    }
+
+    @target.async_exec do 
+      @text.widget.setText("text2") 
+    end
+    
+    @target.async_exec do 
+      assert_equal "text2", @text.widget.getText
+      @target.widget.close
+    end
+    
+    @target.open
+  end
+  
+  def test_sync_exec
+    @target = shell {
+      @text = text {
+        text "text1"
+      }
+    }
+
+    @target.async_exec do 
+      assert_equal "text2", @text.widget.getText
+      @text.widget.setText("text3") 
+    end
+    
+    @target.sync_exec do 
+      @text.widget.setText("text2") 
+    end
+    
+    @target.async_exec do 
+      @target.widget.close
+    end
+    
+    @target.open
+  end
+  
+end

data/test/samples/contactmanager/contact_manager_presenter_test.rb

@@ -0,0 +1,60 @@
+# Copyright (C) 2007-2008 Nick Malnick and Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../../../samples/contactmanager/contact_manager_presenter"
+
+class ContactManagerPresenterTest < Test::Unit::TestCase
+
+  def test_find_specify_all_fields_for_one_result
+    contact_manager_presenter = ContactManagerPresenter.new
+    contact_manager_presenter.first_name = "Frank"
+    contact_manager_presenter.last_name = "Deelio"
+    contact_manager_presenter.email = "frank@deelio.com"
+    contact_manager_presenter.find
+    contacts = contact_manager_presenter.results
+    assert_not_nil contacts
+    assert_equal 1, contacts.size
+    contact = contacts[0]
+    assert contact.is_a?(Contact)
+    assert_equal "Frank", contact.first_name
+    assert_equal "Deelio", contact.last_name
+    assert_equal "frank@deelio.com", contact.email
+  end
+  
+  def test_find_specify_one_field_for_two_results
+    contact_manager_presenter = ContactManagerPresenter.new
+    contact_manager_presenter.first_name = "Frank"
+    contact_manager_presenter.find
+    contacts = contact_manager_presenter.results
+    assert_not_nil contacts
+    assert_equal 2, contacts.size
+    contact1 = contacts[0]
+    contact2 = contacts[1]
+    assert_equal "Frank", contact1.first_name
+    assert_equal "Deelio", contact1.last_name
+    assert_equal "frank@deelio.com", contact1.email
+    assert_equal "franky", contact2.first_name
+    assert_equal "miller", contact2.last_name
+    assert_equal "frank@miller.com", contact2.email
+  end
+  
+  def test_find_specify_all_fields_for_no_results
+    contact_manager_presenter = ContactManagerPresenter.new
+    contact_manager_presenter.first_name = "Julia"
+    contact_manager_presenter.last_name = "Big"
+    contact_manager_presenter.email = "julia@big.com"
+    contact_manager_presenter.find
+    contacts = contact_manager_presenter.results
+    assert_not_nil contacts
+    assert_equal 0, contacts.size
+  end
+  
+  def test_initial_results
+    contact_manager_presenter = ContactManagerPresenter.new
+    contacts = contact_manager_presenter.results
+    assert_not_nil contacts
+    assert_equal 0, contacts.size
+  end
+  
+end

data/test/samples/tictactoe/tic_tac_toe_test.rb

@@ -0,0 +1,265 @@
+# Copyright (C) 2007-2008 Nick Malnick and Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../../../samples/tictactoe/tic_tac_toe_board"
+
+class TicTacToeTest < Test::Unit::TestCase
+
+  def setup
+    @board = TicTacToeBoard.new
+  end
+  
+  def test_mark_center_x
+    assert_equal("", @board.box(2, 2).sign)
+    @board.mark_box(2, 2)
+    assert ! @board.box(2, 2).empty
+    assert_equal("X", @board.box(2, 2).sign)
+    assert @board.box(1, 1).empty
+    assert @board.box(1, 2).empty
+    assert @board.box(1, 3).empty
+    assert @board.box(2, 1).empty
+    assert @board.box(2, 3).empty
+    assert @board.box(3, 1).empty
+    assert @board.box(3, 2).empty
+    assert @board.box(3, 3).empty
+  end
+  
+  def test_mark_center_x_top_center_o_bottom_right_x
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 2)
+    @board.mark_box(3, 3)
+    assert ! @board.box(2, 2).empty
+    assert ! @board.box(1, 2).empty
+    assert ! @board.box(3, 3).empty
+    assert_equal("X", @board.box(2, 2).sign)
+    assert_equal("O", @board.box(1, 2).sign)
+    assert_equal("X", @board.box(3, 3).sign)
+  end
+
+  def test_top_center_not_marked
+    assert @board.box(1, 2).empty
+  end
+  
+  def test_top_right_marked
+    @board.mark_box(1, 3)
+    assert ! @board.box(1, 3).empty
+  end
+  
+  def test_lower_right_marked
+    @board.mark_box(3, 3)
+    assert ! @board.box(3, 3).empty
+  end
+
+  def test_game_over_false
+    assert ! @board.game_over?
+    assert_equal "X", @board.current_sign
+    assert_equal TicTacToeBoard::IN_PROGRESS, @board.game_status
+  end
+  
+  def test_game_over_X_wins_top_row_across
+    @board.mark_box(1, 1)
+    assert_equal("X", @board.box(1, 1).sign)
+    @board.mark_box(2, 1)
+    assert_equal("O", @board.box(2, 1).sign)
+    @board.mark_box(1, 2)
+    assert_equal("X", @board.box(1, 2).sign)
+    @board.mark_box(2, 2)
+    assert_equal("O", @board.box(2, 2).sign)
+    @board.mark_box(1, 3)
+    assert_equal("X", @board.box(1, 3).sign)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+    assert_equal TicTacToeBoard::WIN, @board.game_status
+  end
+  
+  def test_game_over_O_wins_top_row_across
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 2)
+    @board.mark_box(3, 3)
+    @board.mark_box(1, 3)
+    assert @board.game_over?
+    assert_equal "O", @board.winning_sign
+  end
+
+  def test_game_over_X_wins_second_row_across
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 2)
+    @board.mark_box(2, 3)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+  end
+  
+  def test_game_over_O_wins_second_row_across
+    @board.mark_box(1, 1)
+    @board.mark_box(2, 1)
+    @board.mark_box(3, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 2)
+    @board.mark_box(2, 3)
+    assert @board.game_over?
+    assert_equal "O", @board.winning_sign
+  end
+  
+  def test_game_over_X_wins_third_row_across
+    @board.mark_box(3, 1)
+    @board.mark_box(1, 1)
+    @board.mark_box(3, 2)
+    @board.mark_box(1, 2)
+    @board.mark_box(3, 3)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+  end
+
+  def test_game_over_O_wins_third_row_across
+    @board.mark_box(1, 1)
+    @board.mark_box(3, 1)
+    @board.mark_box(1, 2)
+    @board.mark_box(3, 2)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 3)
+    assert @board.game_over?
+  end
+ 
+  def test_game_over_X_wins_first_column_down
+    @board.mark_box(1, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(2, 1)
+    @board.mark_box(3, 2)
+    @board.mark_box(3, 1)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+  end
+  
+  def test_game_over_O_wins_first_column_down
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 1)
+    @board.mark_box(3, 2)
+    @board.mark_box(2, 1)
+    @board.mark_box(3, 3)
+    @board.mark_box(3, 1)
+    assert @board.game_over?
+  end
+  
+  def test_game_over_X_wins_second_column_down
+    @board.mark_box(1, 2)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(3, 1)
+    @board.mark_box(3, 2)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+  end
+
+  def test_game_over_O_wins_second_column_down
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 2)
+    @board.mark_box(3, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 2)
+    assert @board.game_over?
+    assert_equal "O", @board.winning_sign
+  end
+  
+  def test_game_over_X_wins_third_column_down
+    @board.mark_box(1, 3)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 1)
+    @board.mark_box(3, 3)
+    assert @board.game_over?
+    assert_equal "X", @board.winning_sign
+  end
+  
+  def test_game_over_O_wins_third_column_down
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 3)
+    @board.mark_box(3, 1)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 2)
+    @board.mark_box(3, 3)
+    assert @board.game_over?
+    assert_equal "O", @board.winning_sign
+  end
+  
+  def test_game_over_X_wins_top_left_to_bottom_right
+    @board.mark_box(1, 1)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(3, 2)
+    @board.mark_box(3, 3)
+    assert_equal "X", @board.winning_sign
+    assert @board.game_over?
+  end
+  
+  def test_game_over_O_wins_top_left_to_bottom_right
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 1)
+    @board.mark_box(3, 2)
+    @board.mark_box(2, 2)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 3)
+    assert_equal "O", @board.winning_sign
+    assert @board.game_over?
+  end
+  
+  def test_game_over_X_wins_top_right_to_bottom_left
+    @board.mark_box(1, 3)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(3, 2)
+    @board.mark_box(3, 1)
+    assert_equal "X", @board.winning_sign
+    assert @board.game_over?
+  end
+
+  def test_game_over_O_wins_top_right_to_bottom_left
+    @board.mark_box(2, 1)
+    @board.mark_box(1, 3)
+    @board.mark_box(3, 2)
+    @board.mark_box(2, 2)
+    @board.mark_box(1, 1)
+    @board.mark_box(3, 1)
+    assert_equal "O", @board.winning_sign
+    assert @board.game_over?
+  end
+
+  #   1 2 3
+  #1  x o x
+  #2  o x x
+  #3  o x o
+  def test_game_over_draw
+    @board.mark_box(1, 1) 
+    @board.mark_box(1, 2)
+    @board.mark_box(1, 3)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(3, 1)
+    @board.mark_box(2, 3)
+    @board.mark_box(3, 3)
+    assert ! @board.game_over?
+    @board.mark_box(3, 2)
+    assert @board.game_over?
+    assert_equal TicTacToeBox::EMPTY, @board.winning_sign
+    assert_equal TicTacToeBoard::DRAW, @board.game_status
+  end
+  
+  def test_reset
+    @board.mark_box(1, 3)
+    @board.mark_box(2, 1)
+    @board.mark_box(2, 2)
+    @board.mark_box(3, 2)
+    @board.mark_box(3, 1)
+    @board.reset
+    assert ! @board.game_over?
+    assert_equal TicTacToeBox::EMPTY, @board.winning_sign
+    assert_equal TicTacToeBoard::IN_PROGRESS, @board.game_status
+    assert_equal "X", @board.current_sign
+  end
+
+end

data/test/xml/glimmer_xml_test.rb

@@ -0,0 +1,163 @@
+# Copyright (C) 2007-2008 Annas Al Maleh
+# Licensed under the LGPL. See /COPYING.LGPL for more details.
+
+require "test/unit"
+require File.dirname(__FILE__) + "/../../src/parent"
+require File.dirname(__FILE__) + "/../../src/xml"
+
+class GlimmerXmlTest < Test::Unit::TestCase
+	include Glimmer
+
+  def test_single_html_tag
+    @target = html
+    
+    assert_not_nil @target
+    assert_equal "<html/>", @target.to_xml
+  end
+  
+  def test_single_document_tag_upper_case
+    @target = tag(:_name => "DOCUMENT")
+    
+    assert_not_nil @target
+    assert_equal "<DOCUMENT/>", @target.to_xml
+  end
+  
+  def test_open_and_closed_html_tag
+    @target = html {}
+    
+    assert_not_nil @target
+    assert_equal "<html></html>", @target.to_xml
+  end
+  
+  def test_open_and_closed_html_tag_with_contents
+    @target = html { "This is an HTML Document" }
+    
+    assert_not_nil @target
+    assert_equal "<html>This is an HTML Document</html>", @target.to_xml
+  end
+  
+  def test_open_and_closed_html_tag_with_contents
+    @target = html { "This is an HTML Document" }
+    
+    assert_not_nil @target
+    assert_equal "<html>This is an HTML Document</html>", @target.to_xml
+  end
+  
+  def test_open_and_closed_html_tag_with_attributes
+    @target = html(:id => "thesis", :class => "document") {
+    }
+    
+    assert_not_nil @target
+    assert_equal '<html id="thesis" class="document"></html>', @target.to_xml
+  end
+  
+  def test_open_and_closed_html_tag_with_attributes_and_nested_body_with_attributes
+    @target = html(:id => "thesis", :class => "document") {
+      body(:id => "main") {
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<html id="thesis" class="document"><body id="main"></body></html>', @target.to_xml
+  end
+  
+  def test_tag_with_contents_before_and_after_nested_tag
+    @target = html(:id => "thesis", :class => "document") {
+      text "Before body"
+      body(:id => "main") {
+      }
+      text "When a string is the last part of the tag contents, text prefix is optional"
+    }
+    
+    assert_not_nil @target
+    assert_equal '<html id="thesis" class="document">Before body<body id="main"></body>When a string is the last part of the tag contents, text prefix is optional</html>', @target.to_xml
+  end
+  
+  def test_different_name_spaced_tags
+    @target = w3c.html(:id => "thesis", :class => "document") {
+      document.body(:id => "main") {
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<w3c:html id="thesis" class="document"><document:body id="main"></document:body></w3c:html>', @target.to_xml
+  end
+  
+  def test_different_name_spaced_attributes_and_tags
+    @target = w3c.html(w3c.id => "thesis", :class => "document") {
+      document.body(document.id => "main") {
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<w3c:html w3c:id="thesis" class="document"><document:body document:id="main"></document:body></w3c:html>', @target.to_xml
+  end
+  
+  def test_name_space_context
+    @target = name_space(:w3c) { 
+      html(:id => "thesis", :class => "document") {
+        body(:id => "main") {
+        }
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<w3c:html id="thesis" class="document"><w3c:body id="main"></w3c:body></w3c:html>', @target.to_xml
+  end
+  
+  def test_two_name_space_contexts
+    @target = name_space(:w3c) { 
+      html(:id => "thesis", :class => "document") {
+        name_space(:document) { 
+          sectionDivider(:id => "main") {
+          }
+        }
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<w3c:html id="thesis" class="document"><document:sectionDivider id="main"></document:sectionDivider></w3c:html>', @target.to_xml
+  end
+  
+  def test_two_name_space_contexts_including_contents
+    @target = name_space(:w3c) { 
+      html(:id => "thesis", :class => "document") {
+        text "before section divider"
+        name_space(:document) { 
+          sectionDivider(:id => "main") {
+            "section divider"
+          }
+        }
+        text "after section divider"
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<w3c:html id="thesis" class="document">before section divider<document:sectionDivider id="main">section divider</document:sectionDivider>after section divider</w3c:html>', @target.to_xml
+  end
+  
+  def test_mixed_contents_custom_syntax
+    @target = html{"before section divider#strong{section divider}after section divider"}
+    
+    assert_not_nil @target
+    assert_equal '<html>before section divider<strong>section divider</strong>after section divider</html>', @target.to_xml
+  end
+  
+  #TODO handle special characters such as #, {, }, and .
+  #TODO CDATA support
+  #TODO encode special characters
+  
+  def test_html_alternative_syntax_for_id_and_class_attributes
+    @target = html_thesis_document {
+      body_main {
+        h1__title
+      }
+    }
+    
+    assert_not_nil @target
+    assert_equal '<html id="thesis" class="document"><body id="main"><h1 class="title" /></body></html>', @target.to_xml
+  end
+  
+end
+
+