對比使用 Rational Robot 和 Rational Functional Tester 進行測試

            Sub Main
            Dim Result As Integer
            Dim MyText as Variant
            Dim strFilename as String
            Dim intFileNum as Integer
            Dim strZeile as String
            Dim strLine as string
            strFileName= "c:\Button_Text"
            intFileNum = FreeFile()
            'Script Name: read_and_write
            StartJavaApplication Class:=
            """C:\Program Files\IBM\Rational\SDP\6.0\FTSamples\ClassicsJavaB.jar""",
            JvmKey:="Java", JvmOpts:="-jar"
            Window SetContext, "Caption=ClassicsCD", ""
            Result = SQAGetPropertyAsString("Type=PushButton;Name=Place Order", "Text", MyText)
            Open strFilename For Output AS # intFileNum
            Print #intFileNum,MyText
            ' The Value of the Pushbutton property text will be save in c:\Button_Text
            Close # intFileNum
            'Open the file to read the content
            If strLine = myText then
            SQALogMessage sqaPass, "The Button Text is correct: " + MyText, ""
            else
            SQALogMessage sqaFail, " Expected Pusch-button-Text = " + strLine,
            "The Button Text is incorrect"
            end if
            End Sub
            

            import resources.read_and_writeHelper;
            import java.io.*;
            import javax.swing.JOptionPane;
            public class read_and_write extends read_and_writeHelper
            {
            /* Before you can use this script you must create a c:\Expected.txt file
            * Write the value inside this file and save it.
            * Description   : Functional Test Script
            * @author Andreas Franke
            public void testMain(Object[] args)
            {
            FileWriter f1;
            BufferedReader f2;
            String line;
            startApp("ClassicsJavaB");
            String strProperty_Text=(String)placeOrder().getProperty("Text");
            // Read the property Text from the Pushbutton
            try
            {
            f1 = new FileWriter("c:\\Button_Text.txt");
            // create a an outputfile
            f1.write(strProperty_Text);
            // write the result from strProperty_Text in this file
            f1.close();
            }
            catch (IOException e)
            {
            System.out.println("ERROR to create the folder");
            logTestResult("ERROR to create the folder", false);
            // Write an Error-message in the tes-tmanager-
            log
            }
            try
            {
            f2 = new BufferedReader(new FileReader("c:\\Expected.txt"));
            while ((line = f2.readLine()) != null)
            {
            if (line.equalsIgnoreCase(strProperty_Text))
            {
            logTestResult("The Button Text is correct", true);
            }
            else
            {
            logTestResult("The Button Text is incorrect ", false,
            "Expected '"+line+"' but found '"+strProperty_Text+"'");
            JOptionPane.showMessageDialog(null,line,"The Button Text is
            incorrect",JOptionPane.INFORMATION_MESSAGE);
            }
            }
            f2.close();
            }
            catch (IOException e)
            {
            System.out.println("Can`t find File");
            logTestResult("Can`t find File", false);
            }
            }
            }
            

            #Region " Script Header "
            ' Functional Test Script
            ' author Administrator
            Imports Microsoft.VisualBasic
            Imports Rational.Test.Ft
            Imports Rational.Test.Ft.Object.Interfaces
            Public Class read_and_write
            Inherits read_and_writeHelper
            'Script Name   : read_and_write
            'author Andreas Franke
            Public Function TestMain(ByVal args() As Object)
            StartApp("ClassicsJavaB")
            ' Frame: ClassicsCD
            REM PlaceOrder().Click()
            Dim strFilename As String = "c:\Button_Text"
            Dim strExpected As String = "c:\Expected.txt"
            Dim strProperty_text As String
            Dim intFileNum As Integer
            Dim strLine As String
            intFileNum = FreeFile()
            strProperty_text = PlaceOrder.GetProperty("Text")
            MsgBox
            (strProperty_text, MsgBoxStyle.Information, "The Text on the Pushbutton is")
            FileOpen(intFileNum, strFilename, OpenMode.Output)
            Print(intFileNum, strProperty_text)
            ' The Value of the Pushbutton property text will be save in
            'c:\Button_Text
            FileClose(intFileNum)
            FileOpen(intFileNum, strExpected, OpenMode.Input)
            Input(intFileNum, strLine)
            If strProperty_text = strLine Then
            LogTestResult
            ("The Pushbutton Text is correct", True, "Expected Text = Actual Text")
            Else
            LogTestResult
            ("The Pushbutton Text is incorrect!! Expected Text is :
            " + strLine, False, "but found the actual Text : " + strProperty_text)
            MsgBox
            (strProperty_text, MsgBoxStyle.Critical, "The Curent Text is not the expected Text")
            End If
            End Function
            End Class