Cette rubrique décrit comment utiliser les différentes signatures
de la méthode CallScript
pour passer des données d'un script à un
autre. L'exemple sur lequel elle s'appuie utilise deux scripts
Functional Tester distincts :
TheCaller
,
qui appelle un autre script et lui passe des paramètres
TheCalled
,
qui reçoit les paramètres et les imprime sur le flux System.Console
Le script TheCaller
utilise trois versions différentes de la méthode CallScript
:
Sans arguments supplémentaires :
Syntaxe par défaut de la méthode CallScript
, qui se limite à exécuter le script désigné.
CallScript("TheCalled");
Avec un argument supplémentaire du type tableau d'objets (object array) : Un tableau d'objets est utilisé pour passer différents paramètres de type Object au script appelé.
Dim
ObjdataToPass as Object()
...
CallScript("TheCalled",ObjdataToPass)
Le script TheCaller
a été enregistré comme suit :
Public Class TheCaller Inherits TheCallerHelper
' Script Name : TheCaller
' Generated : Dec 17, 2005 8:47:45 PM
' Description : Functional Test Script
' since 2005/12/17
' author Administrator
Public Function TestMain (ByVal args() As Object)
CallScript("TheCalled")
Dim DataToPass(3)As
String
DataToPass(0) = "This"
DataToPass(1) = "is"
DataToPass(2) = "really"
DataToPass(3) = "cool!"
CallScript("TheCalled",DataToPass)
Dim ObjdataToPass(3)As Object
ObjdataToPass(0) = new String( _
"Thought the previous was cool?")
ObjdataToPass(1) = "Take this one!"
ObjdataToPass(2) = new Float(0.02)
ObjdataToPass(3) = new Integer(4711)
CallScript("TheCalled",ObjdataToPass)
End Function
End Class
Le script TheCalled
utilise une boucle
simple pour imprimer les paramètres reçus sur le flux System.Console
:
Public Class TheCalled Inherits TheCalledHelper ' Script Name : TheCalled ' Generated : Dec 17, 2005 8:48:12 PM ' Description : Functional Test Script ' since 2005/12/17 ' author Administrator Public Function TestMain (ByVal args() As Object) If args.Length < 1 Then System.Console.WriteLine _ ("There were "+args.Length+" args. Less than expected!") Return Else System.Console.WriteLine( "There were: "+args.Length+" args") End If Dim I As Integer For I = 0 To args.Length - 1 System.Console.WriteLine( " arg["+I+"] = " _ + args(I) .ToString()) Next End Function End Class
Conditions d'utilisation | Appréciations en retour
(C) Copyright IBM Corporation 2002, 2004. All Rights Reserved.