redcar-dev 0.12.17dev

data/plugins/application/plugin.rb

@@ -0,0 +1,8 @@
+
+Plugin.define do
+  name    "application"
+  version "1.2"
+  file    "lib", "application"
+  object  "Redcar::Application"
+  dependencies "core", ">0"
+end

data/plugins/application/spec/application/application_spec.rb

@@ -0,0 +1,23 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Application do
+  it "has a name" do
+    Redcar::Application::NAME.should_not be_nil
+  end
+  
+  it "has a default instance" do
+    Redcar.app.is_a? Redcar::Application
+  end
+  
+  describe "instance" do
+    before do
+      @app = Redcar::Application.new
+      @app.controller = RedcarSpec::ApplicationController.new
+    end
+    
+    it "creates a new window" do
+      @app.new_window
+      @app.windows.length.should == 1
+    end
+  end
+end

data/plugins/application/spec/application/clipboard_spec.rb

@@ -0,0 +1,55 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Clipboard do
+  before do
+    @clipboard = Redcar::Clipboard.new("test")
+  end
+  
+  it "accepts new contents" do
+    @clipboard << "havelock"
+    @clipboard.last.should == ["havelock"]
+  end
+  
+  it "reports its length" do
+    @clipboard.length.should == 0
+    @clipboard << "havelock"
+    @clipboard.length.should == 1
+    @clipboard << "havelock2"
+    @clipboard.length.should == 2
+  end
+  
+  it "lets you get the items in reverse order" do
+    @clipboard << "havelock"
+    @clipboard << "samuel"
+    @clipboard << "sybil"
+    @clipboard[2].should == ["havelock"]
+    @clipboard[1].should == ["samuel"]
+    @clipboard[0].should == ["sybil"]
+  end
+
+  it "loads well when the clipboard starts as blank" do
+    cont = "fake controller"
+    def cont.changed?; true; end
+    def cont.last_set=(something); @a = something;end
+    def cont.get_contents; @a; end
+    @clipboard.controller = cont
+    @clipboard.length.should == 0 # shouldn't blow up
+  end
+  
+  it "should allow for the controller to return contents" do
+    cont = "fake controller"
+    def cont.changed?; true; end
+    def cont.last_set=(something); @a = something;end
+    def cont.get_contents; @a; end
+    @clipboard.controller = cont
+    @clipboard << "yo"
+    @clipboard.length.should == 2
+  end
+  
+  it "has a maximum length" do
+    (Redcar::Clipboard.max_length + 1).times do |i|
+      @clipboard << "foo#{i}"
+    end
+    @clipboard.length.should == Redcar::Clipboard.max_length
+  end
+end

data/plugins/application/spec/application/command/executor_spec.rb

@@ -0,0 +1,78 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+class Redcar::Command
+  describe Executor do
+    class FakeApp
+      def repeat_event(event); end
+      attr_accessor :history
+    end
+    
+    before do
+      Executor.stub!(:current_environment).and_return({:current_environment => 1})
+      Redcar.app = FakeApp.new
+      Redcar.app.history = History.new
+    end
+    
+    describe "executing a command" do
+      class MyCommand < Redcar::Command
+        def environment(env)
+          $spec_executor_env = env if env
+        end
+
+        def execute
+          $spec_executor_ran_command = true
+        end
+      end
+
+      before do
+        $spec_executor_env         = nil
+        $spec_executor_ran_command = false
+        @command  = MyCommand.new
+        @executor = Executor.new(@command)
+      end
+  
+      it "should call execute on the Command" do
+        @executor.execute
+        $spec_executor_ran_command.should be_true
+      end
+    
+      it "should add the command to the History" do
+        @executor.execute
+        Redcar.app.history.last.should == @command
+      end
+    
+      it "should set the command environment" do
+        @executor.execute
+        $spec_executor_env.should == {:current_environment => 1}
+      end
+    end
+    
+    describe "executing command capturing errors" do
+      class MyErrorCommand < Redcar::Command
+        def execute
+          raise "hell"
+        end
+      end
+      
+      before do
+        @command = MyErrorCommand.new
+        @executor = Executor.new(@command)
+        $stdout = StringIO.new
+      end
+      
+      after do
+        $stdout = STDOUT
+      end
+
+      it "should capture the error" do
+        lambda { @executor.execute }.should_not raise_error
+      end
+      
+      it "should store the error in the class" do
+        @executor.execute
+        @command.error.should be_an_instance_of(RuntimeError)
+        @command.error.message.should == "hell"
+      end
+    end
+  end
+end

data/plugins/application/spec/application/command/history_spec.rb

@@ -0,0 +1,49 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+describe Redcar::Command::History do
+  class HistoryTestCommand1 < Redcar::Command
+    def execute
+    end
+  end
+  
+  class HistoryTestCommand2 < Redcar::Command
+    norecord
+    
+    def execute
+    end
+  end
+  
+  before do
+    @history = Redcar::Command::History.new
+  end
+  
+  it "should record executed commands" do
+    command = HistoryTestCommand1.new
+    @history.record(command)
+    @history.length.should == 1
+  end
+  
+  it "should not record norecord commands" do
+    command = HistoryTestCommand2.new
+    @history.record(command)
+    @history.length.should == 0
+  end
+  
+  it "should have a maximum length" do
+    @history.max = 5
+    10.times { @history.record(HistoryTestCommand1.new) }
+    @history.length.should == 5
+  end  
+  
+  it "should record and replace last if required" do
+    @history.record(HistoryTestCommand1.new)
+    @history.length.should == 1
+    new_command = HistoryTestCommand1.new
+    @history.record_and_replace(new_command)
+    @history.length.should == 1
+    @history.last.should == new_command
+  end
+end
+
+
+

data/plugins/application/spec/application/command_spec.rb

@@ -0,0 +1,78 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Command do
+  describe "a command" do
+    before do
+      $spec_command_env = nil
+    end
+    
+    class MyCommand < Redcar::Command
+      
+      def execute
+        $spec_command_env = {:win => win}
+      end
+    end
+
+    it "is recordable by default" do
+      MyCommand.record?.should be_true
+    end
+    
+    it "has an environment" do
+      command_instance = MyCommand.new
+      command_instance.environment(:win => 123)
+      command_instance.execute
+      $spec_command_env.should == {:win => 123}
+    end
+  end
+  
+  describe "a non-recordable command" do
+    class MyNonRecordableCommand < Redcar::Command
+      norecord
+    end
+    
+    it "is not recordable" do
+      MyNonRecordableCommand.record?.should be_false
+    end
+  end
+  
+  describe "commands inherit sensitivities" do
+    class SensitiveCommand < Redcar::Command
+      sensitize :foo
+    end
+    
+    class SubSensitiveCommand < SensitiveCommand
+      sensitize :bar
+    end
+    
+    it "has it's own and it's parent's sensitivities" do
+      SubSensitiveCommand.sensitivity_names.should == [:foo, :bar]
+    end
+  end
+  
+  describe "a command that implements _finished" do
+    class FinishableCommand < Redcar::Command
+      attr_reader :stuff
+      
+      def initialize
+        @stuff = []
+      end
+      
+      def execute
+        @stuff << :executed
+      end
+      
+      def _finished
+        @stuff << :finished
+      end
+    end
+    
+    it "should have _finished called after the command runs" do
+      command_instance = FinishableCommand.new
+      command_instance.run
+      command_instance.stuff.should == [:executed, :finished]
+    end
+  end
+end
+
+
+

data/plugins/application/spec/application/controllers/application_controller.rb

@@ -0,0 +1,4 @@
+module RedcarSpec
+  class ApplicationController
+  end
+end

data/plugins/application/spec/application/controllers/notebook_controller.rb

@@ -0,0 +1,4 @@
+module RedcarSpec
+  class NotebookController
+  end
+end

data/plugins/application/spec/application/controllers/window_controller.rb

@@ -0,0 +1,5 @@
+module RedcarSpec
+  class WindowController
+    include Redcar::Controller
+  end
+end

data/plugins/application/spec/application/keymap/builder_spec.rb

@@ -0,0 +1,17 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+describe "Redcar::Keymap::Builder DSL" do
+  it "creates a keymap" do
+    builder = Redcar::Keymap::Builder.new("test", :osx) {}
+    builder.keymap.should be_an_instance_of(Redcar::Keymap)
+    builder.keymap.length.should == 0
+  end
+  
+  it "add entries to the keymap" do
+    builder = Redcar::Keymap::Builder.new("test", :osx) do
+      link "Ctrl+S", :OpenNewEditTabCommand
+    end
+    builder.keymap.length.should == 1
+    builder.keymap.command("Ctrl+S")
+  end
+end

data/plugins/application/spec/application/menu/builder_spec.rb

@@ -0,0 +1,61 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+describe "Redcar::Menu::Builder DSL" do
+  it "creates a menu" do
+    builder = Redcar::Menu::Builder.new {}
+    builder.menu.should be_an_instance_of(Redcar::Menu)
+    builder.menu.length.should == 0
+  end
+  
+  it "adds entries to the menu" do
+    builder = Redcar::Menu::Builder.new do
+      item "New", :OpenNewEditTabCommand
+    end
+    builder.menu.length.should == 1
+    item = builder.menu.entries.first
+    item.text.should == "New"
+    item.command.should == :OpenNewEditTabCommand
+  end
+  
+  it "adds separators to the menu" do
+    builder = Redcar::Menu::Builder.new do
+      separator
+    end
+    builder.menu.length.should == 1
+    item = builder.menu.entries.first
+    item.should be_an_instance_of(Redcar::Menu::Item::Separator)
+  end
+  
+  it "adds submenus to the menu" do
+    builder = Redcar::Menu::Builder.new do
+      sub_menu "Export" do
+        item "PDF", :PDFCommand
+      end
+      item "Exit", :ExitCommand
+    end
+    builder.menu.length.should == 2
+    sub_menu = builder.menu.entries.first
+    sub_menu.should be_an_instance_of(Redcar::Menu)
+    sub_menu.text.should == "Export"
+    sub_menu.length.should == 1
+    sub_menu.entries.first.text.should == "PDF"
+    top_item = builder.menu.entries.last
+    top_item.text.should == "Exit"
+  end
+  
+  it "adds lazy submenus to the menu" do
+    builder = Redcar::Menu::Builder.new do
+      lazy_sub_menu "Export" do
+        item "PDF", :PDFCommand
+      end
+    end
+    builder.menu.length.should == 1
+    
+    lazy_sub_menu = builder.menu.entries.first
+    lazy_sub_menu.should be_an_instance_of(Redcar::Menu::LazyMenu)
+    
+    lazy_sub_menu.entries.length.should == 1
+    lazy_sub_menu.entries.first.text.should == "PDF"
+  end
+end
+

data/plugins/application/spec/application/menu/menu_item_spec.rb

@@ -0,0 +1,17 @@
+require File.join(File.dirname(__FILE__), "..", "..", "spec_helper")
+
+describe Redcar::Menu::Item do
+  class DummyCommand; end
+  
+  before do
+    @menu_item = Redcar::Menu::Item.new("File", DummyCommand)
+  end
+
+  it "has text" do
+    @menu_item.text.should == "File"
+  end
+
+  it "has a command" do
+    @menu_item.command.should == DummyCommand
+  end
+end

data/plugins/application/spec/application/menu_spec.rb

@@ -0,0 +1,171 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+describe Redcar::Menu do
+  class DummyCommand; end
+
+  describe "with no entries and no text" do
+    before do
+      @menu = Redcar::Menu.new
+    end
+
+    it "should accept items" do
+      @menu << Redcar::Menu::Item.new("File", DummyCommand)
+    end
+
+    it "reports length" do
+      @menu.length.should == 0
+    end
+  end
+
+  describe "with entries in it and text" do
+    before do
+      @menu = Redcar::Menu.new("Edit") \
+                  << Redcar::Menu::Item.new("Cut", DummyCommand) \
+                  << Redcar::Menu::Item.new("Paste", DummyCommand) \
+                  << Redcar::Menu.new("Convert")
+    end
+
+    it "reports length" do
+      @menu.length.should == 3
+    end
+
+    it "has text" do
+      @menu.text.should == Redcar::Menu.parse("Edit")
+    end
+  end
+
+  describe "building entries" do
+    before do
+      @menu = Redcar::Menu.new
+    end
+
+    it "should let you add items by building" do
+      @menu.build do
+        item "Cut", DummyCommand
+      end
+      @menu.length.should == 1
+      @menu.entries.first.text.should == "Cut"
+    end
+  end
+
+  def build(name=nil, &block)
+    Redcar::Menu::Builder.build(name, &block)
+  end
+
+  describe "merging Menus" do
+    it "adds items" do
+      menu = build "Plugins" do
+        item "Foo", 1
+        item "Bar", 2
+      end
+
+      menu2 = build "Plugins" do
+        item "Bar", 3
+      end
+
+      menu.merge(menu2)
+
+      menu.should == build("Plugins") do
+        item "Foo", 1
+        item "Bar", 3
+      end
+    end
+
+    it "adds Menus" do
+      menu = build "Plugins" do
+        sub_menu "REPL" do
+        end
+      end
+
+      menu2 = build "Plugins" do
+        sub_menu "My Plugin" do
+        end
+      end
+
+      menu.merge(menu2)
+
+      menu.should == build("Plugins") do
+        sub_menu "REPL" do
+        end
+        sub_menu "My Plugin" do
+        end
+
+      end
+    end
+
+    it "replaces a menu with an item and vice versa" do
+      menu = build "Plugins" do
+        item "My Plugin", 201
+        sub_menu "REPL" do
+        end
+      end
+
+      menu2 = build "Plugins" do
+        item "REPL", 101
+        sub_menu "My Plugin" do
+        end
+      end
+
+      menu.merge(menu2)
+
+      menu.should == build("Plugins") do
+        sub_menu "My Plugin" do
+        end
+        item "REPL", 101
+      end
+    end
+
+    it "puts newer ones on the end" do
+      menu = build "Plugins" do
+        sub_menu "REPL" do
+        end
+        sub_menu "Encryption" do
+        end
+        sub_menu "My Plugin" do
+        end
+      end
+
+      menu2 = build "Plugins" do
+        sub_menu "My Plugin" do
+          item "Open", 101
+        end
+      end
+
+      menu.merge(menu2)
+
+      menu.should == build("Plugins") do
+        sub_menu "REPL" do
+        end
+        sub_menu "Encryption" do
+        end
+        sub_menu "My Plugin" do
+          item "Open", 101
+        end
+      end
+
+    end
+
+    it "uses the priority of whichever menu has one" do
+      menu  = build("Main"){ sub_menu("Project"){} }
+      menu2 = build("Main"){ sub_menu("Project", :priority => 10){} }
+      menu.merge(menu2)
+      menu.entries.first.priority.should == 10
+
+      menu  = build("Main"){ sub_menu("Project", :priority => 10){} }
+      menu2 = build("Main"){ sub_menu("Project"){} }
+      menu.merge(menu2)
+      menu.entries.first.priority.should == 10
+    end
+
+    it "preserves own priority when merging" do
+      menu  = build("Main"){ sub_menu("Project", :priority => 10){} }
+      menu2 = build("Main"){ sub_menu("Project", :priority => 5){} }
+      menu.merge(menu2)
+      menu.entries.first.priority.should == 10
+    end
+  end
+end
+
+
+
+