rleber-textmate 0.9.7.1

data/lib/textmate/repository.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+
+# TextMateBundleManager Repository class
+
+require 'delegate'
+
+class TextMateBundleManager
+  class Repository < DelegateClass(Array)
+    attr_accessor :bundles
+    def initialize(options={})
+      @bundles = options[:bundles] || []
+      super(@bundles)
+    end
+  end
+  
+  class TextMateRepository < Repository
+  end
+  
+  class RemoteRepository < Repository
+    attr_accessor :location
+    def initialize(options={})
+      super(options)
+      @location = options[:location]
+    end
+  end
+  
+  class SVNRepository < RemoteRepository
+  end
+end

data/spec/list_spec.rb

@@ -0,0 +1,526 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+EMPTY_LOCAL_BUNDLES = {}
+
+SIMPLE_LOCAL_BUNDLES = {
+  :user => [
+    {:name=>"user_bundle1",   :scm=>:github, :status=>'ahead 1',           :source=>'source_u1'},
+    {:name=>"user_bundle2",   :scm=>:github, :status=>'behind 2',          :source=>'source_u2'},
+    {:name=>"bundle3",        :scm=>:svn,    :status=>'dirty',             :source=>'source_3'},  
+  ],
+  :system => [
+    {:name=>"system_bundle1", :scm=>:svn,    :status=>'dirty',             :source=>'source_s1'},
+    {:name=>"bundle3",        :scm=>:github, :status=>'ahead 1, behind 3', :source=>'source_3'},  
+  ],
+  :app => [],
+}
+
+describe TextMateBundleManager do
+  describe "list" do
+
+    def run_list(options={})
+      locations = options[:locations]
+      bundles = options[:bundles]
+      arguments = options[:arguments] || []
+      stub_local_bundles(locations, bundles)
+      @raw_list = capture(:stdout) { TextMateBundleManager.start(["list"] + arguments) }.split("\n")
+      @list = strip_leading_blank_lines(@raw_list)
+    end
+
+    describe "with no bundles" do
+      it "should list nothing" do
+        run_list :bundles=>EMPTY_LOCAL_BUNDLES
+        @raw_list.size.should == 0
+      end
+    end
+    
+    def strip_leading_blank_lines(list)
+      found_non_blank = false
+      new_list = []
+      list.each do |line|
+        next if !found_non_blank && line.blank?
+        found_non_blank = true
+        new_list << line
+      end
+      new_list
+    end
+    
+    def list
+      @list
+    end
+    
+    def non_heading_lines(list=nil)
+      list ||= @raw_list
+      non_headings = []
+      list.each_with_index do |line, i|
+        non_headings << line unless heading_line?(list, i)
+      end
+      non_headings
+    end  
+    
+    def break_lines(list=nil)
+      list ||= @raw_list
+      list.map{|line| line.split(break_pattern)}
+    end
+    
+    def bundle_table(list=nil)
+      break_lines(non_heading_lines(list))
+    end
+    
+    def bundles(list=nil)
+      bundle_table(list).map{|line| line[bundle_column]}
+    end
+
+    describe " --no-flat" do
+        
+      def heading_relative_lines(pos=0,list=nil)
+        list ||= @raw_list
+        lines = []
+        list.each_with_index {|line, i| lines << list[i-1+pos] if line =~ /^-+$/ }
+        lines
+      end
+      
+      def break_pattern
+        /\s{2,}/
+      end
+      
+      def bundle_column
+        0
+      end
+    
+      def headings(list=nil)
+        heading_relative_lines(0,list)
+      end
+    
+      def bundles_for_location(location, list=nil)
+        found_location = false
+        list ||= @raw_list
+        bundles = []
+        list.each_with_index do |line, i|
+          if found_location
+            break if line.blank?
+            bundles << line unless line =~ /^-+$/
+          elsif line.match(location) && line =~ /\[.*\]/
+            found_location = true
+          end
+        end
+        bundles
+      end
+      
+      def heading_line?(list, i)
+        list[i].to_s =~ /^-+$/ || list[i+1].to_s =~ /^-+$/ || (list[i+2].to_s =~ /^-+$/ and list[i].blank?)
+      end
+      
+      shared_examples_for "a non-flat list" do
+        it "starts with a heading" do
+          list.size.should >= 2 # Heading, plus underscores
+          list[0].should match /User Bundles/
+          list[1].should match /^-+$/
+        end
+      
+        it "headings should include name and path" do
+          headings.each {|h| h.should match /^\s*(.*?)\s+\[.*\]\s*$/ }
+        end
+      
+        it "headings should be preceded by a blank line" do
+          preceding_lines = heading_relative_lines(-1)
+          preceding_lines.each do |line|
+            line.should be_blank
+          end
+        end
+      
+        it "headings should not be followed by a blank line" do
+          following_lines = heading_relative_lines(2)
+          following_lines.each do |line|
+            line.should_not be_blank
+          end
+        end
+      
+        it "should list some locations" do
+          headings.size.should > 0
+        end
+      
+        it "should not include locations with no bundles" do
+          headings.find {|h| h =~ /Application/}.should be_nil
+        end
+      end
+      
+      describe " --no-status" do
+        describe "without a search term" do
+          before :each do
+            run_list :bundles=>SIMPLE_LOCAL_BUNDLES
+          end
+      
+          it_behaves_like "a non-flat list"
+        
+          it "has 1 column" do
+            bundle_table.should always_have_n_columns(1)
+          end
+    
+          it "should list locations in order" do
+            headings[0].should match /User Bundles/
+            headings[1].should match /System Bundles/
+          end
+
+          it "should include all the bundles, in order" do
+            bundles.should == %w{user_bundle1 user_bundle2 bundle3 system_bundle1 bundle3}
+          end
+        end
+        
+        describe "with a search term" do
+          describe "that is approximate" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2']
+              end
+          
+              it_behaves_like "a non-flat list"
+          
+              it "has one entry" do
+                bundle_table.size == 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['foo']
+              end
+          
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+
+          describe "that is exact" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle3', '--exact']
+              end
+          
+              it_behaves_like "a non-flat list"
+          
+              it "has one entry" do
+                bundle_table.size == 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--exact']
+              end
+          
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+        end
+      end
+      
+      describe " --status" do
+        describe "without a search term" do 
+
+          def heading_line?(list, i)
+            list[i-1].to_s =~ /^-+$/ || list[i].to_s =~ /^-+$/ || list[i+1].to_s =~ /^-+$/ || (list[i+2].to_s =~ /^-+$/ and list[i].blank?)
+          end
+
+          before :each do
+            run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['--status']
+          end
+        
+          it_behaves_like "a non-flat list"
+        
+          it "has column headings after each heading" do
+            column_headings = heading_relative_lines(2)
+            column_headings.each {|line| line.should =~ /^\s*Name\s+SCM\s+Status\s+Source\s*$/ }
+          end
+        
+          it "has 4 columns for each bundle" do
+            bundle_table.should always_have_n_columns(4)
+          end
+    
+          it "should list locations in order" do
+            headings[0].should match /User Bundles/
+            headings[1].should match /System Bundles/
+          end
+
+          it "should include all the bundles, in order" do
+            bundles.should == %w{user_bundle1 user_bundle2 bundle3 system_bundle1 bundle3}
+          end
+        end
+        
+        describe "with a search term" do
+          describe "that is approximate" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2']
+              end
+          
+              it_behaves_like "a non-flat list"
+          
+              it "has one entry" do
+                bundle_table.size == 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['foo']
+              end
+          
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+
+          describe "that is exact" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle3', '--exact']
+              end
+          
+              it_behaves_like "a non-flat list"
+          
+              it "has one entry" do
+                bundle_table.size == 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--exact']
+              end
+          
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+        end
+      end
+    end
+    
+    describe " --flat" do
+      def heading_line?(list, i)
+        i == 0
+      end
+      
+      def break_pattern
+        /\s*\|\s*/
+      end
+      
+      def bundle_column
+        1
+      end
+
+      def locations(table=nil)
+        table ||= @table
+        locations = []
+        last_location = nil
+        table[1..-1].each_with_index do |cells, i|
+          locations << cells[0] if cells[0] != last_location
+          last_location = cells[0]
+        end
+        locations
+      end
+
+      shared_examples_for "a flat list" do
+        it "contains no location headings" do
+          list.select{|line| line =~ /-{2,}/ }.size.should == 0 # Look for ---- lines
+        end
+        
+        it "should contain no blank lines" do
+          @raw_list.select{|line| line.blank? }.size.should == 0
+        end
+      
+        it "should list some locations" do
+          locations.size.should > 0
+        end
+        
+        it "should not include locations with no bundles" do
+          locations.should_not include "Application"
+        end
+        
+        it "should begin with column headings" do
+          @table.first[0,2].should == %w{Location Bundle}
+        end
+      end
+      
+      describe " --no-status" do
+        describe "without a search term" do
+          before :each do
+            run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['--flat']
+            @table = break_lines
+          end
+                
+          it_should_behave_like "a flat list"
+        
+          it "has 2 columns" do
+            bundle_table.should always_have_n_columns(2)
+          end
+
+          it "should list locations in order" do
+            locs = locations
+            locs[0].should == "User"
+            locs[1].should == "System"
+          end
+      
+          it "should include all the bundles, in order" do
+            @table.map{|row| row[1]}[1..-1].should == %w{user_bundle1 user_bundle2 bundle3 system_bundle1 bundle3}
+          end
+        end
+
+        describe "with a search term" do
+          describe "that is approximate" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--flat']
+                @table = break_lines
+              end
+
+              it_behaves_like "a flat list"
+
+              it "has at least one entry" do
+                bundle_table.size >= 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['foo', '--flat']
+                @table = break_lines
+              end
+
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+
+          describe "that is exact" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle3', '--flat', '--exact']
+                @table = break_lines
+              end
+
+              it_behaves_like "a flat list"
+
+              it "has at least one entry" do
+                bundle_table.size >= 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--flat', '--exact']
+                @table = break_lines
+              end
+
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+        end
+      end
+
+      describe " --status" do
+        describe "without a search term" do
+          before :each do
+            run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['--flat', '--status']
+            @table = break_lines
+          end
+        
+          it_should_behave_like "a flat list"
+        
+          it "should list locations in order" do
+            locs = locations
+            locs[0].should == "User"
+            locs[1].should == "System"
+          end
+      
+          it "should include all the bundles, in order" do
+            @table.map{|row| row[1]}[1..-1].should == %w{user_bundle1 user_bundle2 bundle3 system_bundle1 bundle3}
+          end
+
+          it "has 5 columns" do
+            bundle_table.should always_have_n_columns(5)
+          end
+        
+          it "should have correct column headings" do
+            @table.first.should == %w{Location Bundle SCM Status Source}
+          end
+        
+          it "should always have a correct SCM entry" do
+            bundle_table.should always_match_in_column(2, /^(-|svn|github)$/)
+          end
+        
+          it "should always have a correct status entry" do
+            bundle_table.should always_match_in_column(3, /^(dirty|ahead\s+\d+|behind\s+\d+|ahead\s+\d+, behind\s+\d+)$/)
+          end
+        
+          it "should always have a correct source entry" do
+            bundle_table.should always_match_in_column(4, /^(source_.?\d)$/)
+          end
+        end
+
+        describe "with a search term" do
+          describe "that is approximate" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--flat', '--status']
+                @table = break_lines
+              end
+
+              it_behaves_like "a flat list"
+
+              it "has at least one entry" do
+                bundle_table.size >= 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['foo', '--flat', '--status']
+                @table = break_lines
+              end
+
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+
+          describe "that is exact" do
+            describe "and is found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle3', '--flat', '--exact', '--status']
+                @table = break_lines
+              end
+
+              it_behaves_like "a flat list"
+
+              it "has at least one entry" do
+                bundle_table.size >= 1
+              end
+            end
+
+            describe "and is not found" do
+              before :each do
+                run_list :bundles=>SIMPLE_LOCAL_BUNDLES, :arguments=>['bundle2', '--flat', '--exact', '--status']
+                @table = break_lines
+              end
+
+              it "prints nothing" do
+                @raw_list.size == 0
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end