Files
gtav-src/tools_ng/lib/pipeline/test/scm/connection_test.rb
T
2025-09-29 00:52:08 +02:00

62 lines
1.5 KiB
Ruby
Executable File

#
# File:: connection_test.rb
# Description:: Perforce connection test script.
#
# Author:: David Muir <david.muir@rockstarnorth.com>
# Date:: 3 September 2009
#
#----------------------------------------------------------------------------
# Uses
#----------------------------------------------------------------------------
require 'pipeline/scm/perforce'
include Pipeline
def create_changelist( p4, desc )
spec = p4.fetch_change()
spec[ 'Files' ] = []
spec[ 'Jobs' ] = []
spec[ 'Description' ] = desc
out = p4.save_change( spec ).shift
if ( out =~ /Change (\d+) created./ )
cl = $1
return ( cl )
end
throw P4Exception.new( 'Error creating pending changelist.' )
end
#----------------------------------------------------------------------------
# Implementation
#----------------------------------------------------------------------------
if ( __FILE__ == $0 ) then
begin
p4a = SCM::Perforce_Connected.new()
p4b = SCM::Perforce_Connected.new()
p4b.port = 'localhost:1666'
p4b.user = 'david.muir'
p4b.client = 'david.muir'
p4b.connect( )
p4a.port = 'rsgedip4d01:1666'
p4a.user = 'david.muir'
p4a.client = 'david.muir'
p4a.connect( )
create_changelist( p4a, 'Server A Changelist' )
create_changelist( p4b, 'Server B Changelist' )
p4a.disconnect( )
p4b.disconnect( )
rescue Exception => ex
puts "Unhandled exception: #{ex.message}"
puts "Call stack:"
puts ex.backtrace.join( "\n\t" )
end
end
# connection_test.rb