redcar-dev 0.12.17dev

data/plugins/application/spec/application/navigation_history_spec.rb

@@ -0,0 +1,96 @@
+describe Redcar::NavigationHistory do
+  module NavigationHistoryTest
+    class TestEditView
+      include Redcar::Observable
+      attr_accessor :title
+      
+      def controller
+        o = Object.new
+        def o.method_missing(*_)
+        end
+        o
+      end
+    end
+      
+    class TestDocumentController
+      attr_accessor :text, :cursor_offset
+  
+      def line_at_offset(_)
+        0
+      end
+      
+      def line_count
+        0
+      end
+    end
+    
+    class TestMirror
+      include Redcar::Observable
+      attr_accessor :path
+      
+      def read
+        "Test content"
+      end
+      
+      def title
+        "foo"
+      end
+    end
+  end  
+  
+  class Redcar::NavigationHistory
+    attr_accessor :current, :max_history_size
+  end
+    
+  before do
+    @controller = NavigationHistoryTest::TestDocumentController.new
+    @controller.cursor_offset = 100
+    @mirror = NavigationHistoryTest::TestMirror.new
+    @mirror.path = "hoge.rb"
+    @doc = Redcar::Document.new(NavigationHistoryTest::TestEditView.new)
+    @doc.controller = @controller
+    @doc.mirror = @mirror
+    @history = Redcar::NavigationHistory.new
+  end
+  
+  it "should save current cursor location" do
+    @doc.cursor_offset.should == 100
+    @history.size.should == 0
+    @history.save(@doc)
+    @history.size.should == 1
+    @history[0][:path].should == "hoge.rb"
+    @history[0][:cursor_offset].should == 100
+  end
+  
+  it "can backward?" do
+    @history.save(@doc)
+    @history.can_backward?.should be_true
+  end
+  
+  it "can forward?" do
+    @history.save(@doc)
+    @controller.cursor_offset = 50
+    @history.save(@doc)
+    @history.size.should == 2
+    @history.current -= 2
+    @history.can_forward?.should be_true
+  end
+  
+  it "should not exceed max history size" do
+    (@history.max_history_size + 10).times do
+      @history.save(@doc)
+      @controller.cursor_offset += 1
+    end
+    @history.size.should == @history.max_history_size
+  end
+  
+  it "should delete old future when forward" do
+    5.times do
+      @history.save(@doc)
+      @controller.cursor_offset += 1
+    end
+    @history.current = 2
+    @history.save(@doc)
+    @history.size.should == 3
+  end
+end

data/plugins/application/spec/application/notebook_spec.rb

@@ -0,0 +1,31 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Notebook do
+  describe "with no tabs" do
+    class NotebookTestTab < Redcar::Tab
+    end
+    
+    before do
+      @notebook = Redcar::Notebook.new(nil)
+      @app = mock
+      Redcar.stub!(:app).and_return(@app)
+    end
+    
+    it "reports its length" do
+      @notebook.length.should == 0
+    end
+    
+    it "accepts new tabs and reports them to the controller" do
+      tab_result = nil
+      @notebook.add_listener(:tab_added) do |tab|
+        tab_result = tab
+      end
+      @app.should_receive(:call_on_plugins)
+      
+      @notebook.new_tab NotebookTestTab
+      
+      tab_result.should be_an_instance_of(NotebookTestTab)
+    end
+  end
+end
+    

data/plugins/application/spec/application/sensitive_spec.rb

@@ -0,0 +1,156 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Sensitive do
+  class ExampleModel
+    include Redcar::Observable
+    
+    def trigger_event(event_name, *args)
+      notify_listeners(event_name, *args)
+    end
+  end
+
+  before do
+    Redcar::Sensitivity.all.clear
+    
+    @ex = ExampleModel.new
+    
+    Redcar::Sensitivity.new(:raining, @ex, true, [:new_tab]) do
+      @open_tab == true
+    end
+    
+    Redcar::Sensitivity.new(:is_tuesday, @ex, true, [:midnight]) do
+      @is_tuesday == true
+    end
+  end
+  
+  def deactivate_open_tab
+    @open_tab = false
+    @ex.trigger_event(:new_tab)
+  end
+  
+  def activate_open_tab
+    @open_tab = true
+    @ex.trigger_event(:new_tab)
+  end
+  
+  def deactivate_is_tuesday
+    @is_tuesday = false
+    @ex.trigger_event(:is_tuesday)
+  end
+  
+  def activate_is_tuesday
+    @is_tuesday = true
+    @ex.trigger_event(:is_tuesday)
+  end
+    
+  describe "a singly sensitive object" do
+    class SensitiveObject
+      include Redcar::Sensitive
+      
+      def active_changed(value)
+        @my_activeness_changed = true
+      end
+      
+      def initialize
+        sensitize :raining
+      end
+      attr_accessor :my_activeness_changed
+    end
+
+    before do
+      @obj = SensitiveObject.new
+    end
+    
+    it "should be active by default" do
+      @obj.should be_active
+    end
+    
+    it "becomes inactive when its sensitivity becomes inactive" do
+      deactivate_open_tab
+      @obj.should_not be_active
+    end
+    
+    it "becomes active when its sensitivity becomes active" do
+      deactivate_open_tab
+      @obj.should_not be_active
+      activate_open_tab
+      @obj.should be_active
+    end
+    
+    it "knows when it's sensitivity has changed" do
+      deactivate_open_tab
+      @obj.my_activeness_changed.should be_true
+    end
+  end
+  
+  describe "a multiple sensitive object" do
+    class MultiplySensitiveObject
+      include Redcar::Sensitive
+      def initialize
+        sensitize :raining, :is_tuesday
+      end
+
+      def active_changed(value)
+        @my_activeness_changed = true
+      end
+      
+      attr_accessor :my_activeness_changed
+    end
+
+    before do
+      @obj = MultiplySensitiveObject.new
+    end
+    
+    it "should be active by default" do
+      @obj.should be_active
+    end
+    
+    it "becomes inactive when one of its sensitivities becomes inactive" do
+      deactivate_open_tab
+      @obj.should_not be_active
+      @obj.my_activeness_changed.should be_true
+    end
+    
+    it "remains inactive when both of its sensitivities becomes inactive" do
+      deactivate_open_tab
+      @obj.my_activeness_changed = false
+      deactivate_is_tuesday
+      @obj.should_not be_active
+      @obj.my_activeness_changed.should be_false
+    end
+    
+    it "remains inactive when one of its sensitivities becomes active again" do
+      deactivate_open_tab
+      deactivate_is_tuesday
+      @obj.my_activeness_changed = false
+      activate_is_tuesday
+      @obj.should_not be_active
+      @obj.my_activeness_changed.should be_false
+    end
+
+    it "becomes active when both of its sensitivities become active again" do
+      deactivate_open_tab
+      deactivate_is_tuesday
+      activate_is_tuesday
+      @obj.my_activeness_changed = false
+      activate_open_tab
+      @obj.should be_active
+      @obj.my_activeness_changed.should be_true
+    end
+  end
+    
+  describe "a sensitive class" do
+    it "reports its sensitivities" do
+      s = SensitiveObject.new.sensitivities
+      s.length.should == 1
+      s.first.name.should == :raining
+      
+      s = MultiplySensitiveObject.new.sensitivities
+      s.length.should == 2
+      s.map {|s| s.name}.should == [:raining, :is_tuesday]
+    end
+  end
+end
+
+
+

data/plugins/application/spec/application/speedbar_spec.rb

@@ -0,0 +1,77 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Speedbar do
+  it "should let you add labels" do
+    class LabelSpeedbar < Redcar::Speedbar
+      label :label, "Here is a speedbar"
+    end
+    LabelSpeedbar.items.should == [Redcar::Speedbar::LabelItem.new(:label, "Here is a speedbar")]
+  end
+
+  it "should let you add toggles" do
+    class ToggleSpeedbar < Redcar::Speedbar
+      toggle :case_sensitive, "Case Sensitive", "Cmd+L"
+    end
+    ToggleSpeedbar.items.should == [Redcar::Speedbar::ToggleItem.new(:case_sensitive, "Case Sensitive", "Cmd+L", nil, false)]
+  end
+  
+  it "should let you add textboxes" do
+    class TextBoxSpeedbar < Redcar::Speedbar
+      textbox :query
+    end
+    TextBoxSpeedbar.items.should == [Redcar::Speedbar::TextBoxItem.new(:query, nil, "")]
+  end
+  
+  it "should let you add buttons" do
+    class ButtonSpeedbar < Redcar::Speedbar
+      button :search, "Search", "Ctrl+S"
+    end
+    ButtonSpeedbar.items.should == [Redcar::Speedbar::ButtonItem.new(:search, "Search", "Ctrl+S")]
+  end
+
+  it "should let you add combos" do
+    class ComboSpeedbar < Redcar::Speedbar
+      combo :tab_widths, %w"1 2 3 4", "1"
+    end
+    ComboSpeedbar.items.should == [Redcar::Speedbar::ComboItem.new(:tab_widths, %w(1 2 3 4), "1", false)]
+  end
+
+  it "should let you add editable combos" do
+    class EditComboSpeedbar < Redcar::Speedbar
+      combo :editable_combo, %w"1 2 3 4", "1", true 
+    end
+    EditComboSpeedbar.items.should == [Redcar::Speedbar::ComboItem.new(:editable_combo, %w(1 2 3 4), "1", true)]
+  end
+
+  it "should let you add keys" do
+    class KeySpeedbar < Redcar::Speedbar
+      key "Ctrl+S"
+    end
+    KeySpeedbar.items.should == [Redcar::Speedbar::KeyItem.new("Ctrl+S")]
+  end
+  
+  it "should let you get values from instances" do
+    class GetValueSpeedbar < Redcar::Speedbar
+      textbox :query, "start"
+    end
+    sp = GetValueSpeedbar.new
+    sp.query.value.should == "start"
+  end
+  
+  it "should let you set values for instances" do
+    class SetValueSpeedbar < Redcar::Speedbar
+      textbox :query, "start"
+    end
+    sp = GetValueSpeedbar.new
+    sp.query.value = "yoyo"
+    sp.query.value.should == "yoyo"
+   end
+   
+   it "should let only add an item with the same name once" do
+     class TextBoxSpeedbar < Redcar::Speedbar
+       textbox :query
+       textbox :query
+     end
+     TextBoxSpeedbar.items.should == [Redcar::Speedbar::TextBoxItem.new(:query, nil, "")]
+   end
+end

data/plugins/application/spec/application/treebook_spec.rb

@@ -0,0 +1,27 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Treebook do
+
+  describe "a new treebook" do
+    before do
+      @treebook = Redcar::Treebook.new
+    end
+
+    it "has no trees" do
+      @treebook.trees.length.should == 0
+    end
+
+    it "accepts a tree and notifies listeners" do
+      tree = MockTree.new("mock tree")
+      tree_added = false
+      @treebook.add_listener(:tree_added) do |tree|
+        tree_added = tree
+      end
+
+      @treebook.add_tree(tree)
+
+      tree_added.should == tree
+      @treebook.trees.should == [tree]
+    end
+  end
+end

data/plugins/application/spec/application/window_spec.rb

@@ -0,0 +1,24 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Window do
+  
+  describe "a new window" do
+    before do
+      @window = Redcar::Window.new
+    end  
+    
+    it "notifies the controller that the menu has changed" do
+      @called_menu_changed = false
+      @window.add_listener(:refresh_menu) do
+        @called_menu_changed = true
+      end
+      @window.refresh_menu
+      @called_menu_changed.should be_true
+    end
+
+    it "has a treebook" do
+      @window.treebook.should be_an_instance_of(Redcar::Treebook)
+    end
+    
+  end
+end

data/plugins/application/spec/spec_helper.rb

@@ -0,0 +1,18 @@
+$:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
+require 'redcar'
+Redcar.environment = :test
+Redcar.no_gui_mode!
+Redcar.load_unthreaded
+Dir[File.dirname(__FILE__) + "/application/controllers/*.rb"].each do |fn|
+  require fn
+end
+
+class MockTree
+  attr_reader :title
+
+  def initialize(title)
+    @title = title
+  end
+
+  def focus; end
+end

data/plugins/application_swt/build.xml

@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<project name="redcar.application_swt" default="dist" basedir=".">
+	<!-- set global properties for this build -->
+	<property name="src" location="src"/>
+	<property name="build" location="build"/>
+	<property name="dist"  location="lib/dist"/>
+	<property environment="env" />
+
+	<condition property="platform" value="osx">
+		<and>
+			<os family="mac" />
+			<os family="unix" />
+			<os arch="i386" />
+		</and>
+	</condition>
+
+	<condition property="platform" value="osx64">
+		<and>
+			<os family="mac" />
+			<os family="unix" />
+			<os arch="x86_64" />
+		</and>
+	</condition>
+
+	<condition property="platform" value="linux">
+		<and>
+			<os family="unix" />
+			<os arch="i386" />
+		</and>
+	</condition>
+
+	<condition property="platform" value="linux64">
+		<and>
+			<os family="unix" />
+			<os arch="amd64" />
+		</and>
+	</condition>
+
+	<condition property="platform" value="windows">
+		<os family="windows" />
+	</condition>
+
+	<path id="project.classpath">
+    <fileset dir="vendor/jface">
+			<include name="org.eclipse.jface.jar" />
+		</fileset>
+
+		<fileset dir="vendor/swt/${platform}">
+			<include name="*.jar" />
+		</fileset>
+	</path>
+
+	<target name="init">
+		<tstamp/>
+		<mkdir dir="${build}"/>
+	</target>
+
+	<target name="compile" depends="init" description="compile the source " >
+		<javac target="1.5" srcdir="${src}" destdir="${build}">
+			<classpath refid="project.classpath" />
+		</javac>
+	</target>
+
+	<target name="dist" depends="compile" description="generate the distribution" >
+		<mkdir dir="${dist}"/>
+		<jar jarfile="lib/dist/application_swt.jar" basedir="${build}"/>
+	</target>
+
+	<target 	name="clean"
+				description="clean up" >
+		<delete dir="${build}"/>
+		<delete dir="${dist}"/>
+	</target>
+</project>