AutomatedFun

[automatedfun-blog]

date time throttle java code

A simple date time throttle java code for LISA continuous services testing. SimpleDateFormat dateFormat = new SimpleDateFormat("HHmm"); Date date = new Date(); int Current = Integer.parseInt( dateFormat.format(date)); //System.out.println(Current); SimpleDateFormat df = new SimpleDateFormat("E"); Date date2 = new Date(); String DayOfWeek = df.format(date2); if(DayOfWeek.equalsIgnoreCase("SAT")){ System.out.println("SATURDAY"); args2[0] = "QA_MT_"+args[1]+"Users1Cycle.stg"; }else if(DayOfWeek.equalsIgnoreCase("SUN")){ System.out.println("SUNDAY"); args2[0] = "QA_MT_"+args[1]+"Users1Cycle.stg"; }else{ if(Current>750 && Current<1720){ System.out.println(Current+" - Currently in high demand window Run 1 User 1 Cycle"); args2[0] = QA_MT_1Users1Cycle.stg"; } if(Current>1719){ System.out.println(Current+" - High demand window closed Run "+args[1]+" User(s) 1 Cycle"); QA_MT_"+args[1]+"Users1Cycle.stg"; } }

[automatedfun-blog]

Low level - highly reusable Lisa test

Low level high reusable Lisa test scenario:

First you want to create a CSV file that contains all of your service information so what you include in there would be your WSDL your XML request and any other necessary parameters 4 your service execution or for the dot net service step that you have parameter-ized.

something like WSDL, XML, endpoint.

CSV File 1 1. WSDL, XML, endpoint 2.http://service.svc?wsdl,SOME XML REQUEST,http://service.

You would create a second CSV file that contains any validation that you want to do so if you are validating a successful response and you know the response you could have simply just one column titled XML and that column would just contain values of the XML responses that you would expect.

CSV File 2 1.XML RESPONSE 2.SOME XML RESPONSE

So the important thing to remember is that your columns and rows should match-up between CSV file 1 and CSV file 2. In other words the data row 1 (Actual row 2) in the CSV file 1 would correspond with Data row 1 (actuall row 2) of CSV file 2.

Now within your LISA test you will have a step for your dot net services that will have all of the values that you passed in parameter-ized. Next you'll want to attach your CSV files. To do that select a data set and use the the delimited data file data set. if you associate both CSV files you'll be able to pull the values from both files.

Next you want to set a looping statement for your for your CSV file. So in your dot net step what you want to do is open it up and you should see a dropdown for when the status is completed, by default it will be set to end the test. Instead of having end the test, you want to set it to go back to the step you just creating a loop with the Lisa test. If you have multiple lines within your data set it will iterate through all of your data and when he gets completed then it will exit out of your test.

You will want to make sure that your data sets are set to end the test when they reach the end otherwise you'll create an infinite loop and your test will never properly end.

Now the downside to doing this is that you're going to have one test run for every scenario but as I said this is a high level framework that allows for re-usability and gives you the ability to run multiple scenarios why only using a single test.

[chaoticplanet-deactivated201307]

[automatedfun-blog]

chaoticplanet:

Mmmm not one little bit of this story sounds fun. This is why I have the awesome ikea laptop bean bag rest. Clever swedes.

[automatedfun-blog]

These always make me mile

[instinctiveinnovation]

Sony Google TV Remote Leaked, Designed in 1980? | Gadget Lab | Wired.com

[automatedfun-blog]

QTP issue #6892

So today at work we ran into an interesting issue. Several users were unable to write files to a network drive that they were admins on. each of the users having issues were in the admin group and were able to write files to the shared drive, however when they ran the command:

fso.copyfile file1.xml, file2.xml

they continued to get a permissions denied error. I logged in with a general user account and was able to execute the code as well as under my login credentials. 

When I run the same line of code from a QC test set I then get the Permissions Denial error. I am out of Ideas....suggestions? @automatedfun

[automatedfun-blog]

Simple VBScript to create File

A simple VBScript to create a XML file. This script allows the user to input  a phone area code, phone prefix, and the number of xml files they need. It will then generate the appropriate number of XML files numbered based on the MDNs. This is the Demo version of a much larger script created for a co-worker.

Dim fso, MyFile

strMDNArea=InputBox("Please set Area Code",,"111")

IF Len(strMDNArea) < 3 Then

strMDNArea=InputBox("Area Code must be 3 digits",,"111")

End IF

strMDNArea=cint(strMDNArea)

strMDNPre=InputBox("Please select 3 digit dialing code ",,"222")

IF Len(strMDNPre) < 3 Then

strMDNPre=InputBox("Dialing Code must be 3 digits",,"222")

End IF

strMDNPre=cint(strMDNPre)

i=InputBox("How Many Records Do you Need?",,"100")

i=cint(i)

a=0

do until a=i

strMDN=strMDNArea & strMDNArea

strCount=Len(a)

strFill=""

do until strCount=4

strFill=strFill & "0"

strCount=Len(strFill) + Len(a)

Loop

strMDN=strMDN & strFill & a

strSubID="1234567" & strFill & a

strAcctNum="12345" & strFill & a

strEnrollXML="<?xml version=""1.0"" encoding=""utf-8""?>"&_

"<MobileNumber>" &  strMDN & "</MobileNumber>"&_

"<Acct>" & strAcctNum & "</Acct>"&_

"<SubID>" & strSubID & "</SubID>"

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set MyFile = fso.CreateTextFile("c:\" & strMDN & ".xml", True)

   MyFile.WriteLine(strEnrollXML)

   MyFile.Close

   a=a+1

Loop

MsgBox("Generated NUMBERS:" & strMDNArea & strMDNArea & "0000-" & strMDN)

[automatedfun-blog]

A selection of free, printable quick references for a variety of languages and web technologies.  - a handy reference site

[automatedfun-blog]

Bing Search Loop for Vista

Moving my code to a 64 bit operating system proved to be slightly challenging. After some research I was able to force the system to us the 32 bit version of IE in order to allow the VBScript to run on a 64 bit system. 

Option Explicit

 Main()

 Sub Main()

Force32bit()

Dim objExplorer : Set objExplorer = CreateObject("InternetExplorer.Application")

Dim strMonth, strDay, strPoints, strSearchNum, strSearch, i

objExplorer.Visible = true

objExplorer.navigate "http://www.bing.com"

strMonth=InputBox("Month",,"10")

strDay=InputBox("Day",,"01")

strPoints=InputBox("Number of Points Allowed",,"10")

strSearchNum= (strPoints * 5) + 1

MsgBox("You will run '" & strSearchNum & "' searches")

i=0

Do until i=strSearchNum

strSearch="http://www.bing.com/search?q=" & strMonth & strDay & i & "&form=QBLH&qs=n&sk=&sc=8-5"

objExplorer.navigate strSearch

Do While objExplorer.Busy Or (objExplorer.READYSTATE <> 4)

Wscript.Sleep 1000

Loop

i=i+1

Loop

objExplorer.quit

 End Sub

 Sub Force32bit()

     If InStr(UCase(WScript.FullName), "SYSTEM32") > 0 Then

         Dim objShell : Set objShell = CreateObject("WScript.Shell")

         objShell.CurrentDirectory = "C:\Windows\SysWOW64"

         objShell.Run "wscript.exe " & WScript.ScriptFullName, 1, False

         WScript.Quit

     End If

 End Sub

[automatedfun-blog]

Bing Search Loop VBS

Trying out Bing Rewards Preview and I decided I would automate the search portion of the rewards. Unfortunately, I am not sure if today (Oct 2, 2010) will in fact be the last day of search credits. Below is the VBS code for Windows XP

Set WshShell = WScript.CreateObject("WScript.Shell")

set ie = createobject("InternetExplorer.Application")

ie.Visible = true

ie.navigate "http://www.bing.com"

strMonth=InputBox("Month",,"10")

strDay=InputBox("Day",,"02")

strPoints=InputBox("Number of Points Allowed",,"10")

strSearchNum= (strPoints * 5) + 1

MsgBox("You will run '" & strSearchNum & "' searches")

i=0

Do until i=strSearchNum

strSearch="http://www.bing.com/search?q=" & strMonth & strDay & i & "&form=QBLH&qs=n&sk=&sc=8-5"

ie.navigate strSearch

Do While ie.Busy Or (ie.READYSTATE <> 4)

Wscript.Sleep 3000

Loop

i=i+1

Loop

ie.quit