epall-limelight 0.5.0-java

data/spec/limelight/builtin/players/image_spec.rb

@@ -0,0 +1,43 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/builtin/players/image'
+require 'limelight/prop'
+
+describe Limelight::Builtin::Players::Image do
+
+  before(:each) do
+    @prop = Limelight::Prop.new
+    @prop.include_player(Limelight::Builtin::Players::Image)
+  end
+
+  it "should have a ImagePanel" do
+    image_panel = @prop.panel.children[0]
+    image_panel.class.should == Limelight::UI::Model::ImagePanel
+    @prop.image_panel.should be(image_panel)
+  end
+
+  it "should have an image" do
+    @prop.image = "some/path_to/image.png"
+    @prop.panel.children[0].imageFile.should == "some/path_to/image.png";
+    @prop.image.should == "some/path_to/image.png";
+  end
+
+  it "should have rotation" do
+    @prop.rotation = 180
+    @prop.rotation.should == 180
+    @prop.image_panel.rotation.should == 180
+  end
+
+  it "should have scaled" do
+    @prop.scaled?.should == true
+    @prop.image_panel.scaled.should == true
+
+    @prop.scaled = false;
+
+    @prop.scaled?.should == false
+    @prop.image_panel.scaled.should == false
+  end
+
+end

data/spec/limelight/builtin/players/password_box_spec.rb

@@ -0,0 +1,27 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/prop'
+require 'limelight/builtin/players/password_box'
+
+describe Limelight::Builtin::Players::PasswordBox do
+
+  before(:each) do
+    @prop = Limelight::Prop.new
+    @prop.include_player(Limelight::Builtin::Players::PasswordBox)
+  end
+
+  it "should have a PasswordBox" do
+    @prop.panel.children[0].class.should == Limelight::UI::Model::Inputs::PasswordBoxPanel
+  end
+  
+  it "should use the PasswordBox for the text accessor" do
+     @prop.text = "blah"
+     @prop.panel.children[0].text.should == "blah"
+     
+     @prop.panel.children[0].text = "harumph"
+     @prop.text.should == "harumph"
+   end
+
+end

data/spec/limelight/builtin/players/radio_button_spec.rb

@@ -0,0 +1,64 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/scene'
+require 'limelight/prop'
+require 'limelight/builtin/players/radio_button'
+
+describe Limelight::Builtin::Players::RadioButton do
+
+  before(:each) do
+    @scene = Limelight::Scene.new(:casting_director => make_mock("caster", :fill_cast => nil))
+    @prop = Limelight::Prop.new
+    @scene << @prop
+    @prop.include_player(Limelight::Builtin::Players::RadioButton)
+  end
+  
+  it "should have a RadioButton" do
+    @prop.panel.children[0].class.should == Limelight::UI::Model::Inputs::RadioButtonPanel
+  end
+         
+  it "should handled checked state" do
+    @prop.checked?.should == false
+    @prop.checked.should == false
+    @prop.selected?.should == false
+    @prop.selected.should == false
+    
+    @prop.selected = true
+    
+    @prop.checked?.should == true
+    @prop.checked.should == true
+    @prop.selected?.should == true
+    @prop.selected.should == true
+  end
+  
+  it "should belong to a button group" do
+    @prop.group = "group 1"
+    
+    prop2 = Limelight::Prop.new
+    @scene << prop2
+    prop2.include_player(Limelight::Builtin::Players::RadioButton)
+    prop2.group = "group 1"
+    
+    prop3 = Limelight::Prop.new
+    @scene << prop3
+    prop3.include_player(Limelight::Builtin::Players::RadioButton)
+    prop3.group = "group 2"
+    
+    group1 = @scene.button_groups["group 1"]
+    group1.elements.include?(@prop.radio_button).should == true
+    group1.elements.include?(prop2.radio_button).should == true
+    group1.elements.include?(prop3.radio_button).should == false
+    
+    group2 = @scene.button_groups["group 2"]
+    group2.elements.include?(@prop.radio_button).should == false
+    group2.elements.include?(prop2.radio_button).should == false
+    group2.elements.include?(prop3.radio_button).should == true
+    
+    @prop.button_group.should == group1
+    prop2.button_group.should == group1
+    prop3.button_group.should == group2
+  end
+
+end

data/spec/limelight/builtin/players/stage_mover_spec.rb

@@ -0,0 +1,36 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/scene'
+require 'limelight/prop'
+require 'limelight/builtin/players/stage_mover'
+require 'limelight/stage'
+
+describe Limelight::Builtin::Players::StageMover do
+
+  before(:each) do
+    @stage = Limelight::Stage.new(nil, "stage name")
+    @scene = Limelight::Scene.new
+    @scene.stage = @stage
+    @prop = Limelight::Prop.new()
+    @scene.add(@prop)
+    @prop.include_player(Limelight::Builtin::Players::StageMover)
+  end
+
+  it "should respond to the right mouse events" do
+    methods = Limelight::Builtin::Players::StageMover.instance_methods
+    methods.include?("mouse_pressed").should == true
+    methods.include?("mouse_dragged").should == true
+  end
+
+  it "should change the stage location when dragged" do
+    @stage.frame.setLocation(0, 0)
+    @prop.mouse_pressed(MouseEvent.new(100, 100))
+    @prop.mouse_dragged(MouseEvent.new(125, 150))
+
+    @stage.frame.location.x.should == 25
+    @stage.frame.location.y.should == 50
+  end
+
+end

data/spec/limelight/builtin/players/stage_sizer_spec.rb

@@ -0,0 +1,40 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/scene'
+require 'limelight/prop'
+require 'limelight/builtin/players/stage_sizer'
+require 'limelight/stage'
+
+describe Limelight::Builtin::Players::StageSizer do
+
+  before(:each) do
+    @stage = Limelight::Stage.new(nil, "stage name")
+    @scene = Limelight::Scene.new
+    @scene.stage = @stage
+    @prop = Limelight::Prop.new()
+    @scene.add(@prop)
+    @prop.include_player(Limelight::Builtin::Players::StageSizer)
+  end
+
+  it "should respond to the right mouse events" do
+    methods = Limelight::Builtin::Players::StageSizer.instance_methods
+    methods.include?("mouse_pressed").should == true
+    methods.include?("mouse_dragged").should == true
+  end
+
+  it "should change the stage dimension when dragged" do
+    @stage.frame.setSize(500, 500)
+    @prop.mouse_pressed(MouseEvent.new(100, 100))
+    @prop.mouse_dragged(MouseEvent.new(125, 150))
+
+    @stage.frame.size.width.should == 525
+    @stage.frame.size.height.should == 550
+
+    @prop.mouse_dragged(MouseEvent.new(150, 175))
+    @stage.frame.size.width.should == 550
+    @stage.frame.size.height.should == 575
+  end
+
+end

data/spec/limelight/builtin/players/text_area_spec.rb

@@ -0,0 +1,27 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/prop'
+require 'limelight/builtin/players/text_area'
+
+describe Limelight::Builtin::Players::TextArea do
+
+  before(:each) do
+    @prop = Limelight::Prop.new
+    @prop.include_player(Limelight::Builtin::Players::TextArea)
+  end
+  
+  it "should have a JTextArea" do
+    @prop.panel.children[0].class.should == Limelight::UI::Model::Inputs::TextAreaPanel
+  end
+  
+  it "should use the TextArea for the text accessor" do
+    @prop.text = "blah"
+    @prop.panel.children[0].text.should == "blah"
+    
+    @prop.panel.children[0].text = "harumph"
+    @prop.text.should == "harumph"
+  end
+
+end

data/spec/limelight/builtin/players/text_box_spec.rb

@@ -0,0 +1,27 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/prop'
+require 'limelight/builtin/players/text_box'
+
+describe Limelight::Builtin::Players::TextBox do
+
+  before(:each) do
+    @prop = Limelight::Prop.new
+    @prop.include_player(Limelight::Builtin::Players::TextBox)
+  end
+
+  it "should have a TextField" do
+    @prop.panel.children[0].class.should == Limelight::UI::Model::Inputs::TextBoxPanel
+  end
+  
+  it "should use the TextField for the text accessor" do
+    @prop.text = "blah"
+    @prop.panel.children[0].text.should == "blah"
+    
+    @prop.panel.children[0].text = "harumph"
+    @prop.text.should == "harumph"
+  end
+
+end

data/spec/limelight/builtin/utilities_production/spec_helper.rb

@@ -0,0 +1,7 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../../spec_helper")
+require 'limelight/specs/spec_helper'
+
+$PRODUCTION_PATH = File.join($LIMELIGHT_LIB, 'limelight', 'builtin', 'utilities_production')

data/spec/limelight/builtin/utilities_production/utilities_production_spec.rb

@@ -0,0 +1,146 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+
+describe "Utilitites Production" do
+
+  uses_scene "none"
+
+  before(:each) do
+    production.production_opening
+  end
+
+  after(:each) do
+    @thread.kill if @thread
+    production.theater.stages.each { |stage| stage.close }
+  end
+
+  after(:all) do
+    #    Java::java.awt.Frame.getFrames.each { |frame| frame.close; frame.dispose; puts frame }
+    #    Java::limelight.util.Threads.showAll
+  end
+
+  it "should construct stage on load_with_incomptible_version_scene" do
+    production.load_incompatible_version_scene("Some Production", "1.2.3")
+    stage = production.theater["Incompatible Version"]
+    stage.should_not == nil
+    stage.location.should == ["center", "center"]
+    stage.size.should == ["400", "auto"]
+    stage.background_color.should == "#FFFFFF"
+    stage.framed?.should == false
+    stage.always_on_top?.should == true
+    stage.vital?.should == false
+  end
+
+  it "should not construct the incomptible_version stage twice" do
+    production.load_incompatible_version_scene("Some Production", "1.2.3")
+    stage = production.theater["Incompatible Version"]
+
+    lambda { production.load_incompatible_version_scene("Some Production", "1.2.3") }.should_not raise_error
+  end
+
+  it "should load the incomptible_version scene" do
+    production.load_incompatible_version_scene("Some Production", "1.2.3")
+    stage = production.theater["Incompatible Version"]
+
+    stage.current_scene.should_not == nil
+    scene = stage.current_scene
+    scene.find("production_name_label").text.should == "Some Production"
+    scene.find("required_version_label").text.should == "1.2.3"
+    scene.find("current_version_label").text.should == Limelight::VERSION::STRING
+  end
+
+  def start_proceed_with_incompatible_version()
+    @thread = Thread.new do
+      begin
+        @result = production.proceed_with_incompatible_version?("Some Production", "1.2.3")
+      rescue Exception => e
+        puts e
+        puts e.backtrace
+      end
+    end
+  end
+
+  def wait_for
+    10.times do
+      return if yield
+      sleep(0.1)
+    end
+    raise "the desired condition was not met on time"
+  end
+
+  def scene_open?(stage_name)
+    stage = production.theater[stage_name]
+    return stage != nil && stage.current_scene != nil
+  end
+
+  it "should return true when clicking proceed" do
+    @result = nil
+    start_proceed_with_incompatible_version()
+    wait_for { scene_open?("Incompatible Version") }
+
+    scene = production.theater["Incompatible Version"].current_scene
+    scene.find("proceed_button").button_pressed(nil)
+    wait_for { !@thread.alive? }
+
+    @result.should == true
+  end
+
+  it "should return false when clicking cancel" do
+    @result = nil
+    start_proceed_with_incompatible_version()
+    wait_for { scene_open?("Incompatible Version") }
+
+    scene = production.theater["Incompatible Version"].current_scene
+    scene.find("cancel_button").button_pressed(nil)
+    wait_for { !@thread.alive? }
+
+    @result.should == false
+  end
+
+  def start_alert()
+    @thread = Thread.new do
+      begin
+        @result = production.alert("Some Message")
+      rescue Exception => e
+        puts e
+        puts e.backtrace
+      end
+    end
+  end
+
+  it "should construct alert stage" do
+    production.load_alert_scene("Some Message")
+    stage = production.theater["Alert"]
+    stage.should_not == nil
+    stage.location.should == ["center", "center"]
+    stage.size.should == ["400", "auto"]
+    stage.background_color.should == "#FFFFFF"
+    stage.framed?.should == false
+    stage.always_on_top?.should == true
+    stage.vital?.should == false
+  end
+
+  it "should load the incomptible_version scene" do
+    production.load_alert_scene("Some Message")
+    stage = production.theater["Alert"]
+
+    stage.current_scene.should_not == nil
+    scene = stage.current_scene
+    scene.find("title").text.should == "Limelight Alert"
+    scene.find("message").text.should == "Some Message"
+  end
+
+  it "should close the alert when clicking OK" do
+    start_alert
+    wait_for { scene_open?("Alert") }
+
+    scene = production.theater["Alert"].current_scene
+    scene.find("ok_button").button_pressed(nil)
+
+    wait_for { !@thread.alive? }
+    @result.should == true
+  end
+
+end

data/spec/limelight/casting_director_spec.rb

@@ -0,0 +1,164 @@
+#- Copyright � 2008-2009 8th Light, Inc. All Rights Reserved.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../spec_helper")
+require 'limelight/casting_director'
+require 'limelight/dsl/prop_builder'
+require 'limelight/production'
+require 'limelight/file_loader'
+
+describe Limelight::CastingDirector do
+
+  before(:each) do
+    TestDir.clean
+    $casted_props = []
+    $casted_players = []
+    @scene = Limelight::Scene.new(:casting_director => make_mock("casting_director", :fill_cast => nil), :path => TestDir.path("scene_path"))
+    @scene.illuminate
+    @loader = Limelight::FileLoader.for_root(TestDir.root)
+    @casting_director = Limelight::CastingDirector.new(@loader)
+  end
+  
+  def make_root(options={})
+    @root = Limelight::Prop.new(options)
+    @scene << @root
+  end
+
+  def prepare_player(location, name, src = nil)
+    if src == nil
+      src = "module #{name.camalized}; def self.extended(prop); $casted_props << prop; $casted_players << self; end; end;"
+    end
+    TestDir.create_file("#{location}/players/#{name}.rb", src)
+  end
+  
+  it "should include default players" do
+    prepare_player("scene_path", "root")
+    make_root(:name => "root")
+    
+    @casting_director.fill_cast(@root)
+
+    $casted_props.length.should == 1
+    $casted_props[0].should == @root
+    $casted_players[0].name.include?("Root").should == true
+    @root.is_a?($casted_players[0]).should == true
+  end
+
+  it "should not creat the player in the scene's cast and not currupt the global namespace" do
+    prepare_player("scene_path", "root")
+    make_root(:name => "root")
+
+    @casting_director.fill_cast(@root)
+
+    Object.const_defined?("Root").should == false
+    @scene.cast.const_defined?("Root").should == true
+  end
+  
+  it "should not load any default players if they don't exist" do
+    make_root(:name => "root")
+    @root.should_not_receive(:include_player)
+    
+    @casting_director.fill_cast(@root)
+
+    $casted_props.length.should == 0
+    $casted_players.length.should == 0
+  end
+  
+  it "should not load any players if they don't define a module with the right name" do
+    make_root(:name => "root")
+    prepare_player("scene_path", "root", "# empty file")
+    @root.should_not_receive(:include_player)
+
+    @casting_director.fill_cast(@root)
+
+    $casted_props.length.should == 0
+    $casted_players.length.should == 0
+  end
+
+  it "should load builtin players" do
+    make_root(:name => "root", :players => "button")
+
+    @casting_director.fill_cast(@root)
+
+    @root.is_a?(Limelight::Builtin::Players::Button).should == true
+  end
+
+  it "should load custom players" do
+    prepare_player("scene_path", "custom_player")
+    make_root(:name => "root", :players => "custom_player")
+
+    @casting_director.fill_cast(@root)
+
+    $casted_props[0].should == @root
+    $casted_players[0].name.include?("CustomPlayer").should == true
+    @root.is_a?($casted_players[0]).should == true
+  end       
+
+  it "should handle multiple players" do
+    prepare_player("scene_path", "root")
+    prepare_player("scene_path", "custom_player")
+
+    make_root(:name => "root", :players => "custom_player button")
+
+    @casting_director.fill_cast(@root)
+
+    $casted_props[0].should == @root
+    $casted_players[0].name.include?("Root").should == true
+    @root.is_a?($casted_players[0]).should == true
+    @root.is_a?(Limelight::Builtin::Players::Button).should == true
+    $casted_players[1].name.include?("CustomPlayer").should == true
+    @root.is_a?($casted_players[1]).should == true
+  end
+
+  it "should load shared custom players" do
+    production = Limelight::Production.new(TestDir.root)
+    @scene.production = production
+
+    prepare_player("scene_path", "root")
+    prepare_player(".", "shared_player")
+    make_root(:name => "root", :players => "shared_player")
+
+    @casting_director.fill_cast(@root)
+
+    $casted_props[0].should == @root
+    $casted_players[0].name.include?("Root").should == true
+    $casted_players[1].name.include?("SharedPlayer").should == true
+    @root.is_a?($casted_players[0]).should == true
+    @root.is_a?($casted_players[1]).should == true
+  end
+
+  it "should not allow casting without a scene" do
+    lambda { @casting_director.fill_cast(Limelight::Prop.new) }.should raise_error(Limelight::LimelightException, "Cannot cast a Prop without a Scene.")
+  end
+
+  it "should not reload known players in a scene" do
+    prepare_player("scene_path", "root")
+
+    make_root(:name => "root")
+    @casting_director.fill_cast(@root)
+    first_root_player = $casted_players[0]
+
+    prepare_player("scene_path", "root", "module Root; def foo; end; end;")
+    make_root(:name => "root")
+    @casting_director.fill_cast(@root)
+
+    @root.should_not respond_to(:foo)
+    @root.is_a?(first_root_player).should == true
+  end
+
+  it "should not reload known players in a scene even with a new casting director" do
+    prepare_player("scene_path", "root")
+
+    make_root(:name => "root")
+    @casting_director.fill_cast(@root)
+    first_root_player = $casted_players[0]
+
+    @casting_director = Limelight::CastingDirector.new(@loader)
+    prepare_player("scene_path", "root", "module Root; def foo; end; end;")
+    make_root(:name => "root")
+    @casting_director.fill_cast(@root)
+
+    @root.should_not respond_to(:foo)
+    @root.is_a?(first_root_player).should == true
+  end
+
+end