rscm-accurev 0.0

data/test/eg/update-nochanges.xml

@@ -0,0 +1,7 @@
+<acResponse
+    command="update"Scanning entire workspace for files touched since last scan - ok
+>
+  <progress
+      phase="Calculating changes"
+      increment="100"/>
+</acResponse>

data/test/eg/update-stale.xml

@@ -0,0 +1,12 @@
+<acResponse
+    command="update"Scanning entire workspace for files touched since last scan - ok
+ ok
+>
+  <message
+      error="true">
+Some of the elements in your workspace have been modified
+and are not in your default group. Use &apos;accurev stat -n&apos; to
+get a list of these files. Then resolve all modifications
+with anchor, keep, or purge before trying update again.
+</message>
+</acResponse>

data/test/eg/update-updates.xml

@@ -0,0 +1,147 @@
+<acResponse
+    command="update"Scanning entire workspace for files touched since last scan - ok
+>
+  <progress
+      phase="Calculating changes"
+      increment="100"/>
+  <progress
+      phase="results"
+      number="23"/>
+  <message>Removing &quot;src/java/com/orbitz/dc/service/hc/HcItinerary.java&quot; .
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcItinerary.java"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/core/Pricing.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/Pricing.java"
+      size="1398"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcSearchRequest.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcSearchRequest.java"
+      size="793"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCreateReservationRequest.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCreateReservationRequest.java"
+      size="1712"/>
+  <checkpoint/>
+  <message>Content (3 K) of &quot;src/java/com/orbitz/dc/core/HcJourney.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/HcJourney.java"
+      size="3846"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCreateReservationResponse.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCreateReservationResponse.java"
+      size="849"/>
+  <checkpoint/>
+  <message>Content (3 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCancelReservationRequest.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCancelReservationRequest.java"
+      size="3046"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCancelReservationResponse.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCancelReservationResponse.java"
+      size="756"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcModifyReservationResponse.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcModifyReservationResponse.java"
+      size="849"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcModifyReservationRequest.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcModifyReservationRequest.java"
+      size="1806"/>
+  <checkpoint/>
+  <message>Content (3 K) of &quot;src/java/com/orbitz/dc/core/RateInfo.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/RateInfo.java"
+      size="3495"/>
+  <checkpoint/>
+  <message>Content (2 K) of &quot;src/java/com/orbitz/dc/core/VariableRateInfo.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/VariableRateInfo.java"
+      size="2523"/>
+  <checkpoint/>
+  <message>Content (2 K) of &quot;src/java/com/orbitz/dc/core/RATE_CATEGORY.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/RATE_CATEGORY.java"
+      size="2513"/>
+  <checkpoint/>
+  <message>Content (2 K) of &quot;src/java/com/orbitz/dc/core/RATE_COVERAGE.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/RATE_COVERAGE.java"
+      size="2537"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/core/FlatRateInfo.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/FlatRateInfo.java"
+      size="975"/>
+  <checkpoint/>
+  <message>Content (2 K) of &quot;src/java/com/orbitz/dc/core/HcItinerary.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/core/HcItinerary.java"
+      size="2707"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcSearch.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcSearch.java"
+      size="1123"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCreateReservation.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCreateReservation.java"
+      size="1146"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcModifyReservation.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcModifyReservation.java"
+      size="1156"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcCancelReservation.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcCancelReservation.java"
+      size="1150"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcRetrieveItinerary.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcRetrieveItinerary.java"
+      size="1150"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcRetrieveItineraryRequest.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcRetrieveItineraryRequest.java"
+      size="1477"/>
+  <checkpoint/>
+  <message>Content (1 K) of &quot;src/java/com/orbitz/dc/service/hc/HcRetrieveItineraryResponse.java&quot; - ok
+</message>
+  <element
+      location="src/java/com/orbitz/dc/service/hc/HcRetrieveItineraryResponse.java"
+      size="756"/>
+  <checkpoint/>
+</acResponse>

data/test/t_api.rb

@@ -0,0 +1,163 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'rubygems'
+require 'rscm/accurev'
+require 'fileutils'
+require 'tmpdir'
+include RSCM::Accurev
+
+class AccurevAPITest < Test::Unit::TestCase
+
+  #def test_deduce_backing_workspace_streams()
+  #  flunk( "XXX implement me" )
+  #end
+
+  def test_ac_hist()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/hist-oneweek-promotes.xml"
+    end
+    api = API.new( "test" )
+    # test array returns
+    txns = api.ac_hist( Time.utc(1980) ) # bound don't matter for this test
+    txns.each do |t|
+      assert_not_nil( t['version'], "Txn #{t} has no versions" )
+    end
+    assert_equal( txns.length, 9 )
+    # block yield
+    txncount = 0
+    api.ac_hist( Time.utc(1974) ) do |txn|
+      txncount+=1
+      assert_not_nil( txn['version'], "Txn #{txn} has no versions" )
+    end
+    assert_equal( txncount, 9 )
+  end
+  
+  def test_ac_files()
+    Command.instance do |cmd| 
+      cmd.accurev_bin = "./acreplay.rb eg/ac-files.xml"
+    end
+    api = API.new( "test", "test-bogus-depot", "test-bogus-depot-0-impl" )
+    # test array returns
+    files = api.ac_files( "." )
+    assert( files.length > 0, "Should get some stat-ed files" )
+    assert_equal( files.length, 23 )
+    files.each do |fd|
+      assert( fd.respond_to?( :location ) )
+    end
+    # test block yield
+    count = 0
+    api.ac_files( "." ) do |fd|
+      assert( fd.respond_to?( :location ) )
+      count += 1
+    end
+    assert_equal( count, 23 )
+  end
+
+  def test_update_stale()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/update-stale.xml"
+    end
+    api = API.new( "test", "test-bogus-depot", "test-bogus-depot-0-impl" )
+    begin
+      u_elements = api.update()
+      flunk( "Simulated update with stale data should throw exception" )
+    rescue StaleWorkspaceException => e
+      assert( true, "Caught expected exception" )
+      assert( e.error_msg =~ /workspace have been modified/ )
+    end
+  end
+
+  def test_update_nochanges()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/update-nochanges.xml"
+    end
+    api = API.new( "test", "test-bogus-depot", "test-bogus-depot-0-impl" )
+    u_elements = api.update()
+    assert_not_nil( u_elements )
+    assert( u_elements.size == 0 )
+  end
+
+  def test_update_newwksp()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/update-newwksp.xml"
+    end
+    api = API.new( "test", "test-bogus-depot", "test-bogus-depot-0-impl" )
+    u_elements = api.update()
+    assert_not_nil( u_elements )
+    assert_equal( 44, u_elements.length )
+    u_elements.each do |location|
+      # api.update returns a list of relative filenames
+      assert( location =~ /^[^\/]/, "Location '#{location}' should be a relpath" )
+    end
+    # test yield and array return XXX
+    updated = 0
+    api.update().each do |location|
+      updated += 1
+      assert( location =~ /^[^\/]/, "Location '#{location}' should be a relpath" )
+    end
+    assert_equal( 44, updated )
+  end
+
+  # update-updates.xml - update with updated files
+  def test_update_updates()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/update-updates.xml"
+    end
+    api = API.new( "test", "test-bogus-depot", "test-bogus-depot-0-impl" )
+    # XXX elements in elements list are just "modified" -
+    # may have been removed!
+    # XXX update() should return only filenames, right?  eliminate dirs
+    ue = api.update()
+    assert_not_nil( ue )
+    assert_equal( 23, ue.length )
+    ue.each do |location|
+      assert( location =~ /^[^\/]/, "Location '#{location}' should be a relpath" )
+    end
+    # yielding behavior
+    updated = 0
+    api.update().each do |location|
+      updated += 1
+      assert( location =~ /^[^\/]/, "Location '#{location}' should be a relpath" )
+    end
+    assert_equal( 23, updated )
+  end
+
+  def test_info()
+    Command.instance do |cmd|
+      cmd.accurev_bin = "./acreplay.rb eg/info.txt"
+    end
+    api = API.new( "test", "depot", "stream" )
+    info = api.ac_info()
+    assert( info.size == 13 )
+    # some crap
+    assert_equal( "gfast", info['Principal'] )
+    assert_equal( "5050", info['port'] )
+    assert_equal( "/usr/local/accurev/bin", info['ACCUREV_BIN'] )
+    # the interesting stuff:
+    #  - depot name
+    assert_equal( "orbitz-api-hiredcar", info['Depot'] )
+    #  - workspace or reference stream name
+    assert_equal( "orbitz-api-hiredcar-0-rc-testing_gfast", info['ws/ref'] )
+    #  - basis stream name
+    assert_equal( "orbitz-api-hiredcar-1-rc", info['Basis'] )
+    #  - workspace checkout location
+    assert_equal( "/home/gfast/dev/orbitz-api-hirdcar-0-rc", info['Top'] )
+  end
+
+  def test_pop()
+    pwd = FileUtils.pwd
+    # want to use a tempdir since checkout_pop does a mkdir
+    tmpdir = "#{Dir.tmpdir}/#{$$}.test"
+    Command.instance do |cmd|
+      cmd.accurev_bin = "#{pwd}/test/acreplay.rb #{pwd}/test/eg/ac-pop.txt"
+    end
+    api = API.new( tmpdir, "depot" )
+    files = api.checkout_pop()
+    assert_equal( 162, files.size() )
+    files.each do |f|
+      assert( !(f =~ /^\//), "Location '#{f}' should not start with '/'" )
+    end
+  end
+
+end

data/test/t_command.rb

@@ -0,0 +1,85 @@
+#!/usr/bin/env ruby
+require 'test/unit'
+require 'rubygems'
+require 'rscm/accurev'
+
+include RSCM::Accurev
+
+class CommandTest < Test::Unit::TestCase
+
+  def test_command_line_subs
+    Command.discard
+    cmd = Command.instance
+
+    s = cmd.accurev_cmdline( "foo", "bar" )
+    assert_equal( "accurev foo bar", s )
+
+    cmd.accurev_bin = "xyzzy"
+
+    s = cmd.accurev_cmdline( "foo", "bar" )
+    assert_equal( "xyzzy foo bar", s )
+
+    Command.discard
+  end
+
+  def test_a_e
+    cmd = Command.instance
+##    cmd.working_dir = "test"
+    cmd.debug = true
+    cmd.debug_to = File.open( "/tmp/testing.log", "w" )
+    cmd.accurev_bin = "./acreplay.rb eg/update-newwksp.xml"
+    # test listy output
+    with_working_dir( "test" ) do
+      acresponse = cmd.accurev( "files" )
+      assert_not_nil( acresponse )
+      assert( acresponse.kind_of?( AcResponseData ) )
+      assert( acresponse['element'].size == 44 )
+      assert( acresponse['message'].size == 44 )
+      acresponse['element'].each do |e|
+        assert( e.kind_of?( ElementData ) )
+      end
+    end
+    Command.discard
+  end
+
+  def test_threadlocal_private_new
+    begin
+      cmd = Command.new
+      flunk( "Command.new() should be private" )
+    rescue 
+      assert( true )
+    end
+  end
+
+  def test_threadlocal
+    # instance returns this thread's Command object
+    begin
+      cmd = Command.instance
+      cmd.accurev_bin = "/bin/bash"
+      assert_equal( cmd.accurev_bin, "/bin/bash" )
+    end
+    # and calling it again returns the same object
+    begin
+      cmd = Command.instance
+      assert_equal( cmd.accurev_bin, "/bin/bash" )
+    end
+    # but instance in another thread should be different
+    Thread.new do
+      cmd = Command.instance
+      assert_not_equal( cmd.accurev_bin, "/bin/bash" )
+    end.join()
+    # ...and calling it *again* returns the same object
+    begin
+      cmd = Command.instance
+      assert_equal( cmd.accurev_bin, "/bin/bash" )
+    end
+    # but discard tosses this thread's object:
+    Command.discard
+    begin
+      cmd = Command.instance
+      assert_not_equal( cmd.accurev_bin, "/bin/bash" )
+    end
+
+  end
+
+end

data/test/t_filterio.rb

@@ -0,0 +1,60 @@
+# -*- ruby -*-
+require 'rubygems'
+require 'stringio'
+require 'rscm/scm/accurev/filterio'
+require 'rexml/document'
+require 'test/unit'
+
+BUSTED_DOC = <<-EOF
+<?xml version="1.0"?>
+<acResponse
+  command="update"Accurev XML Sucks Beans
+>
+  <element location="/./foo.txt" />
+  <message>Argh.</message>
+</acResponse>
+EOF
+
+include REXML
+include RSCM::Accurev
+
+class TestStackIO < Test::Unit::TestCase
+
+  # test that the unfiltered doc actually fails as expected
+  def test_unfiltered_breakage
+    begin
+      doc = Document.new( StringIO.new( BUSTED_DOC ) )
+      flunk( "String not parseable, should have thrown exception" )
+    rescue 
+      assert( true, "Expected to throw exception" )
+    end
+  end
+
+  # test that the stackio filters out the unwanted cruft
+  def test_filtered
+    sio = FilterIO.new( StringIO.new( BUSTED_DOC ) ) do |string|
+      x = string.gsub( /command="update".*$/, 'command="update"' )
+      x
+    end
+    assert( sio.respond_to?( :read ) )
+    str = sio.read()
+    assert( str =~ /acResponse/ )
+    assert( ! (str =~ /Sucks/) )
+  end
+
+  # test that the stackio filters out the unwanted cruft
+  def test_filtered_doc
+    sio = FilterIO.new( StringIO.new( BUSTED_DOC ) ) do |string|
+      string.gsub( /command="update".*$/, 'command="update"' )
+    end
+    assert( sio.respond_to?( :read ) )
+
+    doc = Document.new( sio )
+    assert( true, "Document should now be parseable" )
+    assert_equal( "acResponse", doc.root.name )
+    # assert_equal( 1, doc.elements.each( "/acResponse/element" ).length )
+  end
+
+end
+
+