Quality Assurance Professional...........: 2013

Friday, July 26, 2013

SOAP UI Groovy Script : Random Number generator

******************************************** 

variable = Match.random()

log.info variable 

******************************************** 

context.variable = Match.random()

log.info ${variable} // Syntax to read data into a request node

context.variable = Match.random() * 100

log.info ${variable} // Syntax to read data into a request node 

<SOAP-ENV:Envelope
   xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
   SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> 
   <SOAP-ENV:Body>
      <m:OrderItem xmlns:m="Some-URI">
      <ItemNumber>${variable}</ItemNumber>
     </m:OrderItem>
   </SOAP-ENV:Body>  
</SOAP-ENV:Envelope>

******************************************** 

context.variable = Match.random() * 1000

log.info ${variable} // Syntax to read data into a request node 

<SOAP-ENV:Envelope
   xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
   SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> 
   <SOAP-ENV:Body>
      <m:OrderItem xmlns:m="Some-URI">
      <ItemNumber>${variable}</ItemNumber>
     </m:OrderItem>
   </SOAP-ENV:Body>  
</SOAP-ENV:Envelope>

********************************************* 

context.variable = Match.random(Match.random() * 1000)

log.info ${variable} // Syntax to read data into a request node

<SOAP-ENV:Envelope
   xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
   SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> 
   <SOAP-ENV:Body>
      <m:OrderItem xmlns:m="Some-URI">
      <ItemNumber>${variable}</ItemNumber>
     </m:OrderItem>
   </SOAP-ENV:Body>  
</SOAP-ENV:Envelope>

********************************************

Thursday, July 25, 2013

SOAP UI Groovy Script : Reading a Text File using Groovy

new File("C:\\test.txt").eachLine{
 

line->log.info line
 

}

Tuesday, July 23, 2013

SOAP UI : Groovy script to Store request files in local directory

SOAP UI : Groovy script to Store request files in local directory

//Path and File name to store request
def requestFile = "C://request.xml"
//Reading request content into an object
def request = context.expand( '${MyRequestName#Request}' )
//Accesing file created
def file = new File(requestFile)
//Writing request into the file created
file.write(request, "UTF-8")

Monday, July 22, 2013

SOAP UI : Groovy Script to store response files in local directory

//Path and File name to store response

def responseFile = "C://response.xml"

//Reading response content into an object
def response = context.expand( '${MyRequestName#Response}' )

//Accesing file created
def file = new File(responseFile)

//Writing response into the file created
file.write(response, "UTF-8")

Sunday, July 14, 2013

Update SoapUI Request with groovy or Property Transfer using groovy in SOAP UI

//Update SoapUI Request with groovy or Property Transfer using groovy in SOAP UI

def groovyUtils = new com.eviware.soapui.support.GroovyUtils( context ) 

// get XmlHolder for request message def

ReqHolder = groovyUtils.getXmlHolder( "CelsiusToFahrenheit#Request" )

ReqHolder1 = groovyUtils.getXmlHolder( "FahrenheitToCelsius#Request" )

// Pass value to request node

ReqHolder["//tem:Celsius"] = "100"

// write updated request back to teststep

ReqHolder.updateProperty()

// Run the Request

testRunner.runTestStepByName("CelsiusToFahrenheit")

// Get the response value in a variable

def response = context.expand( '${CelsiusToFahrenheit#Response#declare namespace ns1=\'http://tempuri.org/\'; //ns1:CelsiusToFahrenheitResponse[1]/ns1:CelsiusToFahrenheitResult[1]}' )

log.info(response)

// Pass the new value to another request

ReqHolder1["//tem:Fahrenheit"] = response

ReqHolder1.updateProperty()

// run the test request

testRunner.runTestStepByName("FahrenheitToCelsius")

def response1 = context.expand( '${FahrenheitToCelsius#Response#declare namespace ns1=\'http://tempuri.org/\'; //ns1:FahrenheitToCelsiusResponse[1]/ns1:FahrenheitToCelsiusResult[1]}' )

log.info(response1)

Saturday, July 13, 2013

QTP/HP UFT VBScript Programs PART - V

VBScript Programs PART - V

'****************************************************

'41 Add time interval to a date

print DateAdd("m", 1, "31-Jan-95")

'****************************************************

'42 Print current day of the week

Print day(date)

'****************************************************

'43 Find whether current month is a long month

Dim oCurrentMonth

Dim ocurrentYear

Dim oDaysinMonths

oCurrentMonth = Month(date)

ocurrentYear = Year(date)

oDaysinMonths=Day(DateSerial(ocurrentYear, oCurrentMonth + 1, 0))

print oDaysinMonths&" Days in Current Month"

If oDaysinMonths=31 Then

print "Current Month is a long month"

else

print "Current Month is not a long month"

End If

'****************************************************

'44 Find whether given year is a leap year

'1st Method

'The rules for leap year:

'1. Leap Year is divisible by 4 (This is mandotory Rule)

'2. Leap Year is not divisible by 100 (Optional)

'3. Leap Year divisble by 400 (Optional)

Dim oYear

oYear=1996

If ((oYear Mod 4 = 0) And (oYear Mod 100 <> 0) Or (oYear Mod 400 = 0)) then

print "Year "&oYear&" is a Leap Year"

else

print "Year "&oYear&" is not a Leap Year"

End If

'45. 2nd Method

' Checking 29 days for February month in specified year

Dim oYear

Dim tmpDate

oYear=1996

tmpDate = "1/31/" & oYear

DaysinFebMonth = DateAdd("m", 1, tmpDate)

If day(DaysinFebMonth )=29 then

print "Year "&oYear&" is a Leap Year"

else

print "Year "&oYear&" is not a Leap Year"

End If

'****************************************************

'46 Format Number to specified decimal places

Dim oNum

Dim DecimaPlacestobeFormat

oNum = 3.14159

DecimaPlacestobeFormat=2

print Round(oNum , DecimaPlacestobeFormat)

'****************************************************

'47 Write a program to Generate a Random Numbers

'This script will generate random numbers between 10 and 20

Dim rStartRange

Dim rEndRange

rStartRange=10

rEndRange=20

For iLoop=1 to 10

print Int((rEndRange - rStartRange + 1) * Rnd + rStartRange)

'****************************************************

'48 Write a program to show difference between Fix and Int

'Both Int and Fix remove the fractional part of number and return the resulting integer value.

'The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number,

'whereas Fix returns the first negative integer greater than or equal to number.

'For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

print Int(99.8) ' Returns 99.

print Fix(99.2) ' Returns 99.

print Int(-99.8) ' Returns -100.

print Fix(-99.8) ' Returns -99.

print Int(-99.2) ' Returns -100.

print Fix(-99.2) ' Returns -99.

'****************************************************

'49 Write a program to find subtype of a variable

Dim oVar

Dim oDatatypes

oVar="QTP"

oVartype=Typename(oVar)

print oVartype

'****************************************************

'50 Write a program to print the decimal part of a given number

Dim oNum

oNum=3.123

oDecNum=oNum- int(oNum)

print oDecNum

'****************************************************

Friday, July 12, 2013

QTP/HP UFT VBScripts Programs PART - IV

VBScript Programs PART - IV

'****************************************************

'31 Trim a given string from both sides

Dim oStr

oStr=" QTP "

print trim(oStr)

'****************************************************

'32 Write a program to insert 100values and to delete 50 values from an array

Dim oArray()

Dim iLoop

ReDim oArray(100)

For iLoop=0 to ubound(oArray)

oArray(iLoop)=iLoop

'Print total 100 Values

print(oArray(iLoop))

print "******************************"

ReDim preserve oArray(50)

For iLoop=0 to ubound(oArray)

'Print Values after deleting 50 values

print(oArray(iLoop))

'****************************************************

'33 Write a program to force the declaration of variables

Option explicit ' this keyword will enforce us to declare variables

Dim x

x=10

'Here we get an error because i have not declared y,z

y=20

z=x+y

print z

'****************************************************

'34 Write a program to raise an error and print the error number.

On Error Resume Next

Err.Raise 6 ' Raise an overflow error.

print ("Error * " & CStr(Err.Number) & " " & Err.Description)

'****************************************************

'35 Finding whether a variable is an Array

Dim oArray()

if isarray(oArray) then

print "the given variable is an array"

else

print "the given variable is not an array"

End if

'****************************************************

'36 Write a program to list the Timezone offset from GMT

Dim objWMIService

Dim colTimeZone

Dim objTimeZone

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each objTimeZone in colTimeZone

print "Offset: "& objTimeZone.Bias

'****************************************************

'37 Retrieving Time Zone Information for a Computer

Dim objWMIService

Dim colTimeZone

Dim objTimeZone

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each objItem in colTimeZone

print "Bias: " & objItem.Bias

print "Caption: " & objItem.Caption

print "Daylight Bias: " & objItem.DaylightBias

print "Daylight Day: " & objItem.DaylightDay

print "Daylight Day Of Week: " & objItem.DaylightDayOfWeek

print "Daylight Hour: " & objItem.DaylightHour

print "Daylight Millisecond: " & objItem.DaylightMillisecond

print "Daylight Minute: " & objItem.DaylightMinute

print "Daylight Month: " & objItem.DaylightMonth

print "Daylight Name: " & objItem.DaylightName

print "Daylight Second: " & objItem.DaylightSecond

print "Daylight Year: " & objItem.DaylightYear

print "Description: " & objItem.Description

print "Setting ID: " & objItem.SettingID

print "Standard Bias: " & objItem.StandardBias

print "Standard Day: " & objItem.StandardDay

print "Standard Day Of Week: " & objItem.StandardDayOfWeek

print "Standard Hour: " & objItem.StandardHour

print "Standard Millisecond: " & objItem.StandardMillisecond

print "Standard Minute: " & objItem.StandardMinute

print "Standard Month: " & objItem.StandardMonth

print "Standard Name: " & objItem.StandardName

print "Standard Second: " & objItem.StandardSecond

print "Standard Year: " & objItem.StandardYear

'****************************************************

'38 Write a program to Convert an expression to a date

Dim StrDate

Dim actualDate

Dim StrTime

Dim actualTime

StrDate = "October 19, 1962" ' Define date.

actualDate = CDate(StrDate) ' Convert to Date data type.

print actualDate

StrTime = "4:35:47 PM" ' Define time.

actualTime = CDate(StrTime) ' Convert to Date data type.

print actualTime

'****************************************************

'39 Display current date and Time

print now

'****************************************************

'40 Find difference between two dates.

'Date difference in Years

print DateDiff("yyyy","12/31/2002",Date)

'Date difference in Months

print DateDiff("m","12/31/2002",Date)

'Date difference in Days

print DateDiff("d","12/31/2002",Date)

'****************************************************