markryall-basketcase 1.1.9 → 1.1.10

data/.gitignore

@@ -3,3 +3,4 @@ pkg
 doc
 ct.log
 spec/ct.output
+tmp

data/Rakefile

@@ -1,4 +1,5 @@
 require 'rubygems'
+require 'spec/rake/spectask'
 
 =begin
 require 'hoe'
@@ -17,10 +18,16 @@ begin
     gemspec.description = "basketcase fork"
     gemspec.email = "mdub@dogbiscuit.org"
     gemspec.homepage = "http://github.com/markryall/basketcase"
-    gemspec.description = "TODO"
     gemspec.authors = ["mdub", 'mark ryall', 'duana stanley']
   end
 rescue LoadError
   puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
 end
 
+desc "Run all examples"
+Spec::Rake::SpecTask.new('spec') do |t|
+
+  #t.spec_files = FileList['spec//.rb']
+
+end
+

data/VERSION

@@ -1 +1 @@
-1.1.9
+1.1.10

data/basketcase.gemspec

@@ -1,13 +1,16 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
 # -*- encoding: utf-8 -*-
 
 Gem::Specification.new do |s|
   s.name = %q{basketcase}
-  s.version = "1.1.9"
+  s.version = "1.1.10"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["mdub", "mark ryall", "duana stanley"]
-  s.date = %q{2009-08-30}
-  s.description = %q{TODO}
+  s.date = %q{2009-09-07}
+  s.description = %q{basketcase fork}
   s.email = %q{mdub@dogbiscuit.org}
   s.executables = ["basketcase", "bc-mirror"]
   s.extra_rdoc_files = [
@@ -25,9 +28,16 @@ Gem::Specification.new do |s|
      "bin/bc-mirror",
      "lib/array_patching.rb",
      "lib/basketcase.rb",
+     "lib/basketcase/command.rb",
+     "lib/basketcase/help_command.rb",
+     "lib/basketcase/ls_command.rb",
+     "lib/basketcase/update_command.rb",
+     "lib/basketcase/utils.rb",
      "spec/auto_sync_spec.rb",
+     "spec/autocommit_steps.rb",
      "spec/basketcase_spec.rb",
      "spec/cleartool",
+     "spec/modify_files_spec.rb",
      "spec/spec_helper.rb"
   ]
   s.homepage = %q{http://github.com/markryall/basketcase}
@@ -37,7 +47,9 @@ Gem::Specification.new do |s|
   s.summary = %q{clearcase for the masses}
   s.test_files = [
     "spec/auto_sync_spec.rb",
+     "spec/autocommit_steps.rb",
      "spec/basketcase_spec.rb",
+     "spec/modify_files_spec.rb",
      "spec/spec_helper.rb"
   ]
 

data/lib/basketcase.rb

@@ -1,9 +1,25 @@
 require 'pathname'
 require 'forwardable'
 require 'array_patching'
+require 'basketcase/utils'
+require 'find'
 
-class Basketcase
+#load commands
+Find.find(File.dirname(__FILE__)+'/basketcase') do |path|
+  load path if path =~ /_command\.rb$/
+end
+
+module Utils
+  def mkpath(path)
+    path = path.to_str
+    path = path.tr('\\', '/')
+    path = path.sub(%r{^\./},'')
+    path = path.sub(%r{^([A-Za-z]):\/}, '/cygdrive/\1/')
+    Pathname.new(path)
+  end
+end
 
+class Basketcase
   VERSION = '1.1.0'
 
   @usage = <<EOF
@@ -29,18 +45,6 @@ EOF
     @test_mode
   end
 
-  module Utils
-
-    def mkpath(path)
-      path = path.to_str
-      path = path.tr('\\', '/')
-      path = path.sub(%r{^\./},'')
-      path = path.sub(%r{^([A-Za-z]):\/}, '/cygdrive/\1/')
-      Pathname.new(path)
-    end
-
-  end
-
   include Utils
 
   def ignored?(path)
@@ -98,25 +102,6 @@ EOF
 
   public
 
-  # Represents the status of an element
-  class ElementStatus
-
-    def initialize(path, status, base_version = nil)
-      @path = path
-      @status = status
-      @base_version = base_version
-    end
-
-    attr_reader :path, :status, :base_version
-
-    def to_s
-      s = "#{path} (#{status})"
-      s += " [#{base_version}]" if base_version
-      return s
-    end
-
-  end
-
   # Object responsible for nice fomatting of output
   DefaultListener = lambda do |element|
     printf("%-7s %-15s %s\n", element.status,
@@ -159,211 +144,21 @@ EOF
   class UsageException < Exception
   end
 
-  # Base ClearCase command
-  class Command
-
-    include Basketcase::Utils
-
-    extend Forwardable
-    def_delegators :@basketcase, :log_debug, :just_testing?, :ignored?, :make_command, :run
-
-    def synopsis
-      ""
-    end
-
-    def help
-      "Sorry, no help provided ..."
-    end
-
-    def initialize(basketcase)
-      @basketcase = basketcase
-      @listener = DefaultListener
-      @recursive = false
-      @graphical = false
-    end
-
-    attr_writer :listener
-    attr_writer :targets
-
-    def report(status, path, version = nil)
-      @listener.call(ElementStatus.new(path, status, version))
-    end
-
-    def option_recurse
-      @recursive = true
-    end
-
-    alias :option_r :option_recurse
-
-    def option_graphical
-      @graphical = true
-    end
-
-    alias :option_g :option_graphical
-
-    def option_comment(comment)
-      @comment = comment
-    end
-
-    alias :option_m :option_comment
-
-    attr_accessor :comment
-
-    # Handle command-line arguments:
-    # - For option arguments of the form "-X", call the corresponding
-    #   option_X() method.
-    # - Remaining arguments are stored in @targets
-    def accept_args(args)
-      while /^-+(.+)/ === args[0]
-        option = args.shift
-        option_method_name = "option_#{$1}"
-        unless respond_to?(option_method_name)
-          raise UsageException, "Unrecognised option: #{option}"
-        end
-        option_method = method(option_method_name)
-        parameters = []
-        option_method.arity.times { parameters << args.shift }
-        option_method.call(*parameters)
-      end
-      @targets = args
-      self
-    end
-
-    def effective_targets
-      TargetList.new(@targets.empty? ? ['.'] : @targets)
-    end
-
-    def specified_targets
-      raise UsageException, "No target specified" if @targets.empty?
-      TargetList.new(@targets)
-    end
-
-    private
-
-    def cleartool(command)
-      log_debug "RUNNING: cleartool #{command}"
-      IO.popen("cleartool " + command).each_line do |line|
-        line.sub!("\r", '')
-        log_debug "<<< " + line
-        yield(line) if block_given?
-      end
-    end
-
-    def cleartool_unsafe(command, &block)
-      if just_testing?
-        puts "WOULD RUN: cleartool #{command}"
-        return
-      end
-      cleartool(command, &block)
-    end
-
-    def view_root
-      @root ||= catch(:root) do
-        cleartool("pwv -root") do |line|
-          throw :root, mkpath(line.chomp)
-        end
-      end
-      log_debug "view_root = #{@root}"
-      @root
-    end
-
-    def cannot_deal_with(line)
-      $stderr.puts "unrecognised output: " + line
-    end
-
-    def edit(file)
-      editor = ENV["EDITOR"] || "notepad"
-      system("#{editor} #{file}")
-    end
-
-  end
-
-  class HelpCommand < Command
-
-    def synopsis
-      "[<command>]"
-    end
-
-    def help
-      "Display usage instructions."
-    end
-
-    def execute
-      if @targets.empty?
-        puts @basketcase.usage
-        exit
-      end
-      @targets.each do |command_name|
-        command = make_command(command_name)
-        puts
-        puts "% basketcase #{command_name} #{command.synopsis}"
-        puts
-        puts command.help.gsub(/^/, "    ")
-      end
-    end
-
-  end
-
-  class LsCommand < Command
-
-    def synopsis
-      "[<element> ...]"
-    end
-
-    def help
-      <<EOF
-List element status.
-
--a(ll)      Show all files.
-            (by default, up-to-date files are not reported)
-
--r(ecurse)  Recursively list sub-directories.
-            (by default, just lists current directory)
-EOF
-    end
-
-    def option_all
-      @include_all = true
-    end
-
-    alias :option_a :option_all
-
-    def option_directory
-      @directory_only = true
+  # Represents the status of an element
+  class ElementStatus
+    def initialize(path, status, base_version = nil)
+      @path = path
+      @status = status
+      @base_version = base_version
     end
 
-    alias :option_d :option_directory
+    attr_reader :path, :status, :base_version
 
-    def execute
-      args = ''
-      args += ' -recurse' if @recursive
-      args += ' -directory' if @directory_only
-      cleartool("ls #{args} #{effective_targets}") do |line|
-        case line
-        when /^(.+)@@(\S+) \[hijacked/
-          report(:HIJACK, mkpath($1), $2)
-        when /^(.+)@@(\S+) \[loaded but missing\]/
-          report(:MISSING, mkpath($1), $2)
-        when /^(.+)@@\S+\\CHECKEDOUT(?: from (\S+))?/
-          element_path = mkpath($1)
-          status = element_path.exist? ? :CO : :MISSING
-          report(status, element_path, $2 || 'new')
-        when /^(.+)@@(\S+) +Rule: /
-          next unless @include_all
-          report(:OK, mkpath($1), $2)
-        when /^(.+)/
-          path = mkpath($1)
-          if ignored?(path)
-            log_debug "ignoring #{path}"
-            next
-          end
-          report(:LOCAL, path)
-        else
-          cannot_deal_with line
-        end
-      end
+    def to_s
+      s = "#{path} (#{status})"
+      s += " [#{base_version}]" if base_version
+      return s
     end
-
   end
 
   class LsCoCommand < Command
@@ -402,83 +197,6 @@ EOF
 
   end
 
-  class UpdateCommand < Command
-
-    def synopsis
-      "[-nomerge] [<element> ...]"
-    end
-
-    def help
-      <<EOF
-Update your (snapshot) view.
-
--nomerge    Don\'t attempt to merge in changes to checked-out files.
-EOF
-
-    end
-
-    def option_nomerge
-      @nomerge = true
-    end
-
-    def relative_path(s)
-      full_path = view_root + mkpath(s)
-      full_path.relative_path_from(Pathname.pwd)
-    end
-
-    def execute_update
-      args = '-log nul -force'
-      args += ' -print' if just_testing?
-      cleartool("update #{args} #{effective_targets}") do |line|
-        case line
-        when /^Processing dir "(.*)"/
-          # ignore
-        when /^\.*$/
-          # ignore
-        when /^Making dir "(.*)"/
-          report(:NEW, relative_path($1))
-        when /^Loading "(.*)"/
-          report(:UPDATED, relative_path($1))
-        when /^Unloaded "(.*)"/
-          report(:REMOVED, relative_path($1))
-        when /^Keeping hijacked object "(.*)" - base "(.*)"/
-          report(:HIJACK, relative_path($1), $2)
-        when /^Keeping "(.*)"/
-          # ignore
-        when /^End dir/
-          # ignore
-        when /^Done loading/
-          # ignore
-        else
-          cannot_deal_with line
-        end
-      end
-    end
-
-    def execute_merge
-      args = '-log nul -flatest '
-      if just_testing?
-        args += "-print"
-      elsif @graphical
-        args += "-gmerge"
-      else
-        args += "-merge -gmerge"
-      end
-      cleartool("findmerge #{effective_targets} #{args}") do |line|
-        case line
-        when /^Needs Merge "(.+)" \[to \S+ from (\S+) base (\S+)\]/
-          report(:MERGE, mkpath($1), $2)
-        end
-      end
-    end
-
-    def execute
-      execute_update
-      execute_merge unless @nomerge
-    end
-
-  end
-
   class CheckinCommand < Command
 
     def synopsis
@@ -495,7 +213,9 @@ EOF
       comment_file.open("w") do |out|
         out.puts(@comment)
       end
-      cleartool_unsafe("checkin -cfile #{comment_file} #{specified_targets}") do |line|
+      
+      # if checking in an add/remove, one needs to also check in the parent directory of that file
+      cleartool_unsafe("checkin -cfile #{comment_file} #{specified_targets} #{specified_targets.parents}") do |line|
         case line
         when /^Loading /
           # ignore
@@ -699,7 +419,6 @@ EOF
         end
       end
     end
-
   end
 
   class MoveCommand < DirectoryModificationCommand

data/lib/basketcase/command.rb

@@ -0,0 +1,120 @@
+require 'basketcase/utils'
+
+class Basketcase
+  # Base ClearCase command
+  class Command
+    include Basketcase::Utils
+
+    extend Forwardable
+    def_delegators :@basketcase, :log_debug, :just_testing?, :ignored?, :make_command, :run
+
+    def synopsis
+      ""
+    end
+
+    def help
+      "Sorry, no help provided ..."
+    end
+
+    def initialize(basketcase)
+      @basketcase = basketcase
+      @listener = DefaultListener
+      @recursive = false
+      @graphical = false
+    end
+
+    attr_writer :listener
+    attr_writer :targets
+
+    def report(status, path, version = nil)
+      @listener.call(ElementStatus.new(path, status, version))
+    end
+
+    def option_recurse
+      @recursive = true
+    end
+
+    alias :option_r :option_recurse
+
+    def option_graphical
+      @graphical = true
+    end
+
+    alias :option_g :option_graphical
+
+    def option_comment(comment)
+      @comment = comment
+    end
+
+    alias :option_m :option_comment
+
+    attr_accessor :comment
+
+    # Handle command-line arguments:
+    # - For option arguments of the form "-X", call the corresponding
+    #   option_X() method.
+    # - Remaining arguments are stored in @targets
+    def accept_args(args)
+      while /^-+(.+)/ === args[0]
+        option = args.shift
+        option_method_name = "option_#{$1}"
+        unless respond_to?(option_method_name)
+          raise UsageException, "Unrecognised option: #{option}"
+        end
+        option_method = method(option_method_name)
+        parameters = []
+        option_method.arity.times { parameters << args.shift }
+        option_method.call(*parameters)
+      end
+      @targets = args
+      self
+    end
+
+    def effective_targets
+      TargetList.new(@targets.empty? ? ['.'] : @targets)
+    end
+
+    def specified_targets
+      raise UsageException, "No target specified" if @targets.empty?
+      TargetList.new(@targets)
+    end
+
+    private
+
+    def cleartool(command)
+      log_debug "RUNNING: cleartool #{command}"
+      IO.popen("cleartool " + command).each_line do |line|
+        line.sub!("\r", '')
+        log_debug "<<< " + line
+        yield(line) if block_given?
+      end
+    end
+
+    def cleartool_unsafe(command, &block)
+      if just_testing?
+        puts "WOULD RUN: cleartool #{command}"
+        return
+      end
+      cleartool(command, &block)
+    end
+
+    def view_root
+      @root ||= catch(:root) do
+        cleartool("pwv -root") do |line|
+          throw :root, mkpath(line.chomp)
+        end
+      end
+      log_debug "view_root = #{@root}"
+      @root
+    end
+
+    def cannot_deal_with(line)
+      $stderr.puts "unrecognised output: " + line
+    end
+
+    def edit(file)
+      editor = ENV["EDITOR"] || "notepad"
+      system("#{editor} #{file}")
+    end
+  end
+end

data/lib/basketcase/help_command.rb

@@ -0,0 +1,27 @@
+require 'basketcase/command'
+
+class Basketcase
+  class HelpCommand < Command
+    def synopsis
+      "[<command>]"
+    end
+
+    def help
+      "Display usage instructions."
+    end
+
+    def execute
+      if @targets.empty?
+        puts @basketcase.usage
+        exit
+      end
+      @targets.each do |command_name|
+        command = make_command(command_name)
+        puts
+        puts "% basketcase #{command_name} #{command.synopsis}"
+        puts
+        puts command.help.gsub(/^/, "    ")
+      end
+    end
+  end
+end

data/lib/basketcase/ls_command.rb

@@ -0,0 +1,63 @@
+require 'basketcase/command'
+
+class Basketcase
+    class LsCommand < Command
+      def synopsis
+        "[<element> ...]"
+      end
+
+      def help
+        <<EOF
+List element status.
+
+-a(ll)      Show all files.
+            (by default, up-to-date files are not reported)
+
+-r(ecurse)  Recursively list sub-directories.
+            (by default, just lists current directory)
+EOF
+      end
+
+      def option_all
+        @include_all = true
+      end
+
+      alias :option_a :option_all
+
+      def option_directory
+        @directory_only = true
+      end
+
+      alias :option_d :option_directory
+
+      def execute
+        args = ''
+        args += ' -recurse' if @recursive
+        args += ' -directory' if @directory_only
+        cleartool("ls #{args} #{effective_targets}") do |line|
+          case line
+          when /^(.+)@@(\S+) \[hijacked/
+            report(:HIJACK, mkpath($1), $2)
+          when /^(.+)@@(\S+) \[loaded but missing\]/
+            report(:MISSING, mkpath($1), $2)
+          when /^(.+)@@\S+\\CHECKEDOUT(?: from (\S+))?/
+            element_path = mkpath($1)
+            status = element_path.exist? ? :CO : :MISSING
+            report(status, element_path, $2 || 'new')
+          when /^(.+)@@(\S+) +Rule: /
+            next unless @include_all
+            report(:OK, mkpath($1), $2)
+          when /^(.+)/
+            path = mkpath($1)
+            if ignored?(path)
+              log_debug "ignoring #{path}"
+              next
+            end
+            report(:LOCAL, path)
+          else
+            cannot_deal_with line
+          end
+        end
+      end
+    end
+end

data/lib/basketcase/update_command.rb

@@ -0,0 +1,81 @@
+require 'basketcase/command'
+
+class Basketcase
+  
+  class UpdateCommand < Command
+
+    def synopsis
+      "[-nomerge] [<element> ...]"
+    end
+
+    def help
+      <<EOF
+Update your (snapshot) view.
+
+-nomerge    Don\'t attempt to merge in changes to checked-out files.
+EOF
+
+    end
+
+    def option_nomerge
+      @nomerge = true
+    end
+
+    def relative_path(s)
+      full_path = view_root + mkpath(s)
+      full_path.relative_path_from(mkpath(Pathname.pwd))
+    end
+
+    def execute_update
+      args = '-log nul -force'
+      args += ' -print' if just_testing?
+      cleartool("update #{args} #{effective_targets}") do |line|
+        case line
+        when /^Processing dir "(.*)"/
+          # ignore
+        when /^\.*$/
+          # ignore
+        when /^Making dir "(.*)"/
+          report(:NEW, relative_path($1))
+        when /^Loading "(.*)"/
+          report(:UPDATED, relative_path($1))
+        when /^Unloaded "(.*)"/
+          report(:REMOVED, relative_path($1))
+        when /^Keeping hijacked object "(.*)" - base "(.*)"/
+          report(:HIJACK, relative_path($1), $2)
+        when /^Keeping "(.*)"/
+          # ignore
+        when /^End dir/
+          # ignore
+        when /^Done loading/
+          # ignore
+        else
+          cannot_deal_with line
+        end
+      end
+    end
+
+    def execute_merge
+      args = '-log nul -flatest '
+      if just_testing?
+        args += "-print"
+      elsif @graphical
+        args += "-gmerge"
+      else
+        args += "-merge -gmerge"
+      end
+      cleartool("findmerge #{effective_targets} #{args}") do |line|
+        case line
+        when /^Needs Merge "(.+)" \[to \S+ from (\S+) base (\S+)\]/
+          report(:MERGE, mkpath($1), $2)
+        end
+      end
+    end
+
+    def execute
+      execute_update
+      execute_merge unless @nomerge
+    end
+
+  end
+end

data/lib/basketcase/utils.rb

@@ -0,0 +1,13 @@
+
+class Basketcase
+  module Utils
+    def mkpath(path)
+      path = path.to_str
+      path = path.tr('\\', '/')
+      path = path.sub(%r{^\./},'')
+      path = path.sub(%r{^([A-Za-z]):\/}, '/cygdrive/\1/')
+      Pathname.new(path)
+    end
+  end
+  
+end

data/spec/auto_sync_spec.rb

@@ -2,13 +2,9 @@ require File.dirname(__FILE__) + '/spec_helper'
 load 'cleartool'
 
 describe 'Autosync' do
-  
-  it 'should be able to handle lots of files that need to be added' do 
-    
-    ENV['PATH'] = "#{File.expand_path(File.dirname(__FILE__))}:#{ENV['PATH']}"
-    
-    File.delete(CLEARTOOL_ARGS_LOG) if File.exists?(CLEARTOOL_ARGS_LOG) 
-    
+  it 'should be able to handle lots of files that need to be added' do
+    File.delete(CLEARTOOL_ARGS_LOG) if File.exists?(CLEARTOOL_ARGS_LOG)
+
     OutputQueue.enqueue(%q{
 deleteddir1@@\main\2 [loaded but missing]                Rule: \main\LATEST
 deletedfile1.txt@@\main\1 [loaded but missing]           Rule: \main\LATEST
@@ -35,10 +31,10 @@ cleartool: Error: Can't modify directory "." because it is not checked out.
 cleartool: Error: Can't modify directory "." because it is not checked out.
 cleartool: Error: Can't modify directory "." because it is not checked out.
 })
-    
+
     $stderr.stub!(:puts)
     Basketcase.new.do('auto-sync','-n')
-    
+
     File.read(CLEARTOOL_ARGS_LOG).should == <<HERE
 ls -recurse .
 ls -directory . newdir1 updateddir1
@@ -48,8 +44,5 @@ ls -directory . deleteddir1 1
 rmname -ncomment deleteddir1 deletedfile1.txt deleteddir1/deletedfile1.txt 1/deletedfile1.txt
 checkout -unreserved -ncomment -usehijack updatedfiled1.txt updateddir1/updatedfiled1.txt
 HERE
-    
   end
-  
-
-end
+end

data/spec/autocommit_steps.rb

@@ -0,0 +1,20 @@
+require File.dirname(__FILE__) + '/spec_helper'
+load 'cleartool'
+
+describe 'Autocommit' do
+    it 'should be able to handle lots of files that need to be added' do
+      File.delete(CLEARTOOL_ARGS_LOG) if File.exists?(CLEARTOOL_ARGS_LOG)
+
+      OutputQueue.enqueue(%q{
+.@@\main\CHECKEDOUT from \main\15                        Rule: CHECKEDOUT
+})
+
+    $stderr.stub!(:puts)
+    Basketcase.new.do('auto-commit', '-m', 'a comment')
+
+    File.read(CLEARTOOL_ARGS_LOG).should == <<HERE
+ls -recurse .
+checkin -cfile basketcase-checkin-comment.tmp .
+HERE
+    end
+end

data/spec/modify_files_spec.rb

@@ -0,0 +1,85 @@
+
+require 'pathname'
+require File.dirname(__FILE__)+'/spec_helper'
+load 'cleartool'
+
+describe  'modify files' do 
+  
+  before(:all) do
+    FileUtils.mkdir_p(WORKING_VIEW)
+    FileUtils.mkdir_p(CONTROL_VIEW)
+  end
+  
+  def create_file_in_clearcase
+    
+    newfile = "newfile-" + Time.now.to_i.to_s + ".txt"
+    Dir.chdir(WORKING_VIEW) do
+      File.open(newfile, 'w') { |out| out.puts "spanky new content" }
+      Basketcase.new.do('add', newfile)
+      Basketcase.new.do('ci', '-m', 'adding test file', newfile)
+    end
+    
+    newfile  
+  end
+  
+  
+  it 'should add a file to clearcase' do 
+    
+    newfile = create_file_in_clearcase
+  
+    Dir.chdir(CONTROL_VIEW) do
+      Basketcase.new.do('update', '.')    
+      File.exists?(newfile).should == true
+    end  
+    
+    
+  end
+  
+  it 'should update a file in clearcase' do
+    
+    testfilename = create_file_in_clearcase
+    
+    new_content = 'i will love you as long as this file exists'
+    
+    Dir.chdir(WORKING_VIEW) do
+      
+      file = Pathname(testfilename)
+      file.chmod(file.stat.mode | 0600) unless file.writable?
+      File.open(testfilename, 'a') { |io| io.puts new_content}
+      
+      Basketcase.new.do('co', '-h', testfilename)
+      Basketcase.new.do('ci', '-m', 'updating test file', testfilename)
+    end
+    
+    Dir.chdir(CONTROL_VIEW) do
+      
+      Basketcase.new.do('update', '.')
+      
+      file_contents = File.read(testfilename)
+      file_contents.include?(new_content)
+      
+    end  
+  
+  end
+  
+  it 'should delete a file from clearcase' do
+    
+    testfilename = create_file_in_clearcase
+    
+    Dir.chdir(WORKING_VIEW) do
+       
+       Basketcase.new.do('remove', testfilename)
+       Basketcase.new.do('ci', '-m', 'removing test file', testfilename)
+       
+     end
+     
+    Dir.chdir(CONTROL_VIEW) do
+      Basketcase.new.do('update', '.')    
+      File.exists?(testfilename).should == false
+    end  
+    
+  end
+  
+
+  
+end

data/spec/spec_helper.rb

@@ -3,3 +3,12 @@ $:.unshift(File.expand_path(File.dirname(__FILE__)))
 
 require 'basketcase'
 
+ENV['PATH'] = "#{File.expand_path(File.dirname(__FILE__))}:#{ENV['PATH']}"
+
+ROOT = File.expand_path(File.dirname(__FILE__)+'/..')
+
+WORKING_VIEW = ENV['BC_WORKING_VIEW']
+CONTROL_VIEW = ENV['BC_CONTROL_VIEW']
+
+WORKING_VIEW ||= "#{ROOT}/tmp/views/working-view"
+CONTROL_VIEW ||= "#{ROOT}/tmp/views/control-view"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: markryall-basketcase
 version: !ruby/object:Gem::Version 
-  version: 1.1.9
+  version: 1.1.10
 platform: ruby
 authors: 
 - mdub
@@ -11,11 +11,11 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-08-30 00:00:00 -07:00
+date: 2009-09-07 00:00:00 -07:00
 default_executable: 
 dependencies: []
 
-description: TODO
+description: basketcase fork
 email: mdub@dogbiscuit.org
 executables: 
 - basketcase
@@ -36,9 +36,16 @@ files:
 - bin/bc-mirror
 - lib/array_patching.rb
 - lib/basketcase.rb
+- lib/basketcase/command.rb
+- lib/basketcase/help_command.rb
+- lib/basketcase/ls_command.rb
+- lib/basketcase/update_command.rb
+- lib/basketcase/utils.rb
 - spec/auto_sync_spec.rb
+- spec/autocommit_steps.rb
 - spec/basketcase_spec.rb
 - spec/cleartool
+- spec/modify_files_spec.rb
 - spec/spec_helper.rb
 has_rdoc: false
 homepage: http://github.com/markryall/basketcase
@@ -69,5 +76,7 @@ specification_version: 3
 summary: clearcase for the masses
 test_files: 
 - spec/auto_sync_spec.rb
+- spec/autocommit_steps.rb
 - spec/basketcase_spec.rb
+- spec/modify_files_spec.rb
 - spec/spec_helper.rb