|
Revision 1592, 464 bytes
(checked in by nahi, 3 years ago)
|
updated
|
- Property svn:eol-style set to
native
- Property svn:keywords set to
author date id revision
|
| Line | |
|---|
| 1 |
#!/usr/bin/env ruby |
|---|
| 2 |
|
|---|
| 3 |
$serverName = 'BEAWebLogic8.1' |
|---|
| 4 |
$serverBase = 'http://webservice.bea.com:7001/base/SoapInteropBaseService' |
|---|
| 5 |
$serverGroupB = 'http://webservice.bea.com:7001/groupb/SoapInteropGroupBService' |
|---|
| 6 |
|
|---|
| 7 |
require 'clientBase' |
|---|
| 8 |
|
|---|
| 9 |
drvBase = SOAP::RPC::Driver.new($serverBase, InterfaceNS) |
|---|
| 10 |
methodDefBase(drvBase) |
|---|
| 11 |
|
|---|
| 12 |
drvGroupB = SOAP::RPC::Driver.new($serverGroupB, InterfaceNS) |
|---|
| 13 |
methodDefGroupB(drvGroupB) |
|---|
| 14 |
|
|---|
| 15 |
doTestBase(drvBase) |
|---|
| 16 |
doTestGroupB(drvGroupB) |
|---|
| 17 |
submitTestResult |
|---|
