def main():
    startApplication("itemviews")
    listWidgetName = "{type='QListWidget' unnamed='1' visible='1'}"
    listWidget = waitForObject(listWidgetName)
    for row in range(listWidget.count):
        item = listWidget.item(row)
        checked = selected = ""
        if item.checkState() == Qt.Checked:
            checked = " +checked"
        if item.isSelected():
            selected = " +selected"
        test.log("(%d) '%s'%s%s" % (row, item.text(), checked, selected))

function main()
{
    startApplication("itemviews");
    var listWidgetName = "{type='QListWidget' unnamed='1' visible='1'}";
    var listWidget = waitForObject(listWidgetName);
    for (var row = 0; row < listWidget.count; ++row) {
        var item = listWidget.item(row);
        var checked = "";
        var selected = "";
        if (item.checkState() == Qt.Checked) {
            checked = " +checked";
        }
        if (item.isSelected()) {
            selected = " +selected";
        }   
        test.log("(" + String(row) + ") '" + item.text() + "'" + checked + selected);
    }
}

sub main
{
    startApplication("itemviews");
    my $listWidgetName = "{type='QListWidget' unnamed='1' visible='1'}";
    my $listWidget = waitForObject($listWidgetName);
    for (my $row = 0; $row < $listWidget->count; ++$row) {
        my $item = $listWidget->item($row);
        my $checked = "";
	my $selected = "";
        if ($item->checkState() == Qt::Checked) {
            $checked = " +checked";
	}
        if ($item->isSelected()) {
            $selected = " +selected";
	}
	test::log("($row) '" . $item->text() . "'$checked$selected");
    }
}

proc main {} {
    startApplication "itemviews"
    set listWidgetName {{type='QListWidget' unnamed='1' visible='1'}}
    set listWidget [waitForObject $listWidgetName]
    for {set row 0} {$row < [property get $listWidget count]} {incr row} {
        set item [invoke $listWidget item $row]
        set checked ""
        set selected ""
        if {[invoke $item checkState] == [enum Qt Checked]} {
            set checked " +checked"
        }
        if [invoke $item isSelected] {
            set selected " +selected"
        }
        set text [toString [invoke $item text]]
        test log "($row) '$text'$checked$selected"
    }
}

def main():
    startApplication("itemviews")
    listViewName = "{type='QListView' unnamed='1' visible='1'}"
    listView = waitForObject(listViewName)
    model = listView.model()
    selectionModel = listView.selectionModel()
    for row in range(model.rowCount()):
        index = model.index(row, 0)
        text = model.data(index).toString()
        checked = selected = ""
        checkState = model.data(index, Qt.CheckStateRole).toInt()
        if checkState == Qt.Checked:
            checked = " +checked"
        if selectionModel.isSelected(index):
            selected = " +selected"
        test.log("(%d) '%s'%s%s" % (row, text, checked, selected))

function main()
{
    startApplication("itemviews");
    var listViewName = "{type='QListView' unnamed='1' visible='1'}";
    var listView = waitForObject(listViewName);
    var model = listView.model();
    var selectionModel = listView.selectionModel();
    for (var row = 0; row < model.rowCount(); ++row) {
        var index = model.index(row, 0);
        var text = model.data(index).toString();
        var checked = "";
        var selected = "";
        var checkState = model.data(index, Qt.CheckStateRole).toInt();
        if (checkState == Qt.Checked) {
            checked = " +checked";
        }
        if (selectionModel.isSelected(index)) {
            selected = " +selected";
        }
        test.log("(" + String(row) + ") '" + text + "'" + checked + selected);
    }
}

sub main
{
    startApplication("itemviews");
    my $listViewName = "{type='QListView' unnamed='1' visible='1'}";
    my $listView = waitForObject($listViewName);
    my $model = $listView->model();
    my $selectionModel = $listView->selectionModel();
    for (my $row = 0; $row < $model->rowCount(); ++$row) {
        my $index = $model->index($row, 0);
        my $text = $model->data($index)->toString();
        my $checked = "";
	my $selected = "";
        my $checkState = $model->data($index, Qt::CheckStateRole)->toInt();
        if ($checkState == Qt::Checked) {
            $checked = " +checked";
	}
        if ($selectionModel->isSelected($index)) {
            $selected = " +selected";
	}
	test::log("($row) '$text'$checked$selected");
    }
}

proc main {} {
    startApplication "itemviews"
    set listViewName {{type='QListView' unnamed='1' visible='1'}}
    set listView [waitForObject $listViewName]
    set model [invoke $listView model]
    set selectionModel [invoke $listView selectionModel]
    for {set row 0} {$row < [invoke $model rowCount]} {incr row} {
        set index [invoke $model index $row 0]
        set text [toString [invoke [invoke $model data $index] toString]]
        set checked ""
        set selected ""
        set checkState [invoke [invoke $model data $index [enum Qt CheckStateRole]] toInt]
        if {$checkState == [enum Qt Checked]} {
            set checked " +checked"
        }
        if [invoke $selectionModel isSelected $index] {
            set selected " +selected"
        }
        test log "($row) '$text'$checked$selected"
    }
}

    tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}")
    tableWidget.setRowCount(4)
    tableWidget.setColumnCount(3)
    count = 0
    for row in range(tableWidget.rowCount):
        for column in range(tableWidget.columnCount):
            tableItem = QTableWidgetItem("Item %d" % count)
            count += 1
            if column == 2:
                tableItem.setCheckState(Qt.Unchecked)
                if row == 1 or row == 3:
                    tableItem.setCheckState(Qt.Checked)
            tableWidget.setItem(row, column, tableItem)
            if count in (6, 10):
                tableItem.setSelected(True)
    tableWidget.setRowHidden(2, True)

    var tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}");
    tableWidget.setRowCount(4);
    tableWidget.setColumnCount(3);
    var count = 0;
    for (var row = 0; row < tableWidget.rowCount; ++row) {
        for (var column = 0; column < tableWidget.columnCount; ++column) {
            tableItem = new QTableWidgetItem("Item " + new String(count));
            ++count;
            if (column == 2) {
                tableItem.setCheckState(Qt.Unchecked);
                if (row == 1 || row == 3) {
                    tableItem.setCheckState(Qt.Checked);
                }
            }
            tableWidget.setItem(row, column, tableItem);
            if (count == 6 || count == 10) {
                tableItem.setSelected(true);
            }
        }
    }
    tableWidget.setRowHidden(2, true);

    my $tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}");
    $tableWidget->setRowCount(4);
    $tableWidget->setColumnCount(3);
    my $count = 0;
    for (my $row = 0; $row < $tableWidget->rowCount; ++$row) {
        for (my $column = 0; $column < $tableWidget->columnCount; ++$column) {
            my $tableItem = new QTableWidgetItem("Item $count");
            ++$count;
            if ($column == 2) {
                $tableItem->setCheckState(Qt::Unchecked);
                if ($row == 1 || $row == 3) {
                    $tableItem->setCheckState(Qt::Checked);
		}
	    }
            $tableWidget->setItem($row, $column, $tableItem);
            if ($count == 6 || $count == 10) {
                $tableItem->setSelected(1);
	    }
        }
    }
    $tableWidget->setRowHidden(2, 1);

    set tableWidget [waitForObject {{type='QTableWidget' unnamed='1' visible='1'}}]
    invoke $tableWidget setRowCount 4
    invoke $tableWidget setColumnCount 3
    set count 0
    for {set row 0} {$row < [property get $tableWidget rowCount]} {incr row} {
	for {set column 0} {$column < [property get $tableWidget columnCount]} {incr column} {
	    set tableItem [construct QTableWidgetItem "Item $count"]
            incr count
            if {$column == 2} {
                invoke $tableItem setCheckState [enum Qt Unchecked]
                if {$row == 1 || $row == 3} {
                    invoke $tableItem setCheckState [enum Qt Checked]
                }
            }
            invoke $tableWidget setItem $row $column $tableItem
            if {$count == 6 || $count == 10} {
		invoke $tableItem setSelected 1
            }
	}
    }
    invoke $tableWidget setRowHidden 2 true

    tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}")
    for row in range(tableWidget.rowCount):
        if tableWidget.isRowHidden(row):
            test.log("Skipping hidden row %d" % row)
            continue
        for column in range(tableWidget.columnCount):
            tableItem = tableWidget.item(row, column)
            text = unicode(tableItem.text())
            checked = selected = ""
            if tableItem.checkState() == Qt.Checked:
                checked = " +checked"
            if tableItem.isSelected():
                selected = " +selected"
            test.log("(%d, %d) '%s'%s%s" % (row, column, text, checked, selected))    

    tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}");
    for (var row = 0; row < tableWidget.rowCount; ++row) {
        if (tableWidget.isRowHidden(row)) {
            test.log("Skipping hidden row " + String(row));
            continue;
        }
        for (var column = 0; column < tableWidget.columnCount; ++column) {
            tableItem = tableWidget.item(row, column);
            var text = new String(tableItem.text());
            var checked = "";
            var selected = "";
            if (tableItem.checkState() == Qt.Checked) {
                checked = " +checked";
            }
            if (tableItem.isSelected()) {
                selected = " +selected";
            }
            test.log("(" + String(row) + ", " + String(column) + ") '" +
                     text + "' " + checked + selected);
        }
    }

    $tableWidget = waitForObject("{type='QTableWidget' unnamed='1' visible='1'}");
    for (my $row = 0; $row < $tableWidget->rowCount; ++$row) {
	if ($tableWidget->isRowHidden($row)) {
            test::log("Skipping hidden row $row");
	    next;
	}
        for (my $column = 0; $column < $tableWidget->columnCount; ++$column) {
            my $tableItem = $tableWidget->item($row, $column);
            my $text = $tableItem->text();
            my $checked = "";
	    my $selected = "";
            if ($tableItem->checkState() == Qt::Checked) {
                $checked = " +checked";
	    }
            if ($tableItem->isSelected()) {
                $selected = " +selected";
	    }
            test::log("($row, $column) '$text'$checked$selected");
	}
    }

    set tableWidget [waitForObject {{type='QTableWidget' unnamed='1' visible='1'}}]
    for {set row 0} {$row < [property get $tableWidget rowCount]} {incr row} {
	if {[invoke $tableWidget isRowHidden $row]} {
            test log "Skipping hidden row $row"
	    continue
	}
	for {set column 0} {$column < [property get $tableWidget columnCount]} {incr column} {
	    set tableItem [invoke $tableWidget item $row $column]
            set text [toString [invoke $tableItem text]]
            set checked ""
            set selected ""
            if {[invoke $tableItem checkState] == [enum Qt Checked]} {
                set checked " +checked"
            }
            if {[invoke $tableItem isSelected]} {
                set selected " +selected"
            }
            test log "($row, $column) '$text'$checked$selected"
        }
    }

def main():
    startApplication("itemviews")
    tableViewName = "{type='QTableView' unnamed='1' visible='1'}"
    tableView = waitForObject(tableViewName)
    model = tableView.model()
    selectionModel = tableView.selectionModel()
    for row in range(model.rowCount()):
        for column in range(model.columnCount()):
            index = model.index(row, column)
            text = model.data(index).toString()
            checked = selected = ""
            checkState = model.data(index, Qt.CheckStateRole).toInt()
            if checkState == Qt.Checked:
                checked = " +checked"
            if selectionModel.isSelected(index):
                selected = " +selected"
            test.log("(%d, %d) '%s'%s%s" % (row, column, text, checked, selected))

function main()
{
    startApplication("itemviews");
    var tableViewName = "{type='QTableView' unnamed='1' visible='1'}";
    var tableView = waitForObject(tableViewName);
    var model = tableView.model();
    var selectionModel = tableView.selectionModel();
    for (var row = 0; row < model.rowCount(); ++row) {
        for (var column = 0; column < model.columnCount(); ++column) {
            var index = model.index(row, column);
            var text = model.data(index).toString();
            var checked = "";
            var selected = "";
            var checkState = model.data(index, Qt.CheckStateRole).toInt();
            if (checkState == Qt.Checked) {
                checked = " +checked";
            }
            if (selectionModel.isSelected(index)) {
                selected = " +selected";
            }
            test.log("(" + String(row) + ", " + String(column) + ") '" +
                     text + "'" + checked + selected);
        }
    }
}

sub main
{
    startApplication("itemviews");
    my $tableViewName = "{type='QTableView' unnamed='1' visible='1'}";
    my $tableView = waitForObject($tableViewName);
    my $model = $tableView->model();
    my $selectionModel = $tableView->selectionModel();
    for (my $row = 0; $row < $model->rowCount(); ++$row) {
	for (my $column = 0; $column < $model->columnCount(); ++$column) {
	    my $index = $model->index($row, $column);
	    my $text = $model->data($index)->toString();
	    my $checked = "";
	    my $selected = "";
	    my $checkState = $model->data($index, Qt::CheckStateRole)->toInt();
	    if ($checkState == Qt::Checked) {
		$checked = " +checked";
	    }
	    if ($selectionModel->isSelected($index)) {
		$selected = " +selected";
	    }
	    test::log("($row, $column) '$text'$checked$selected");
	}
    }
}

proc main {} {
    startApplication "itemviews"
    set tableViewName {{type='QTableView' unnamed='1' visible='1'}}
    set tableView [waitForObject $tableViewName]
    set model [invoke $tableView model]
    set selectionModel [invoke $tableView selectionModel]
    for {set row 0} {$row < [invoke $model rowCount]} {incr row} {
        for {set column 0} {$column < [invoke $model columnCount]} {incr column} {
            set index [invoke $model index $row $column]
            set text [toString [invoke [invoke $model data $index] toString]]
            set checked ""
            set selected ""
            set checkState [invoke [invoke $model data $index [enum Qt CheckStateRole]] toInt]
            if {$checkState == [enum Qt Checked]} {
                set checked " +checked"
            }
            if [invoke $selectionModel isSelected $index] {
                set selected " +selected"
            }
            test log "($row, $column) '$text'$checked$selected"
        }
    }
}

def checkAnItem(indent, item, root):
    if indent > -1:
        checked = selected = ""
        if item.checkState(0) == Qt.Checked:
            checked = " +checked"
        if item.isSelected():
            selected = " +selected"
        test.log("|%s'%s'%s%s" % (" " * indent, item.text(0), checked, selected))
    else:
        indent = -4
    # Only show visible child items
    if item != root and item.isExpanded() or item == root:
        for row in range(item.childCount()):
            checkAnItem(indent + 4, item.child(row), root)
       
def main():
    startApplication("itemviews")
    treeWidgetName = "{type='QTreeWidget' unnamed='1' visible='1'}"
    treeWidget = waitForObject(treeWidgetName)
    root = treeWidget.invisibleRootItem()
    checkAnItem(-1, root, root)

function checkAnItem(indent, item, root)
{
    if (indent > -1) {
        var checked = "";
        var selected = "";
        if (item.checkState(0) == Qt.Checked) {
            checked = " +checked";
        }
        if (item.isSelected()) {
            selected = " +selected";
        }
        var pad = "";
        for (var i = 0; i < indent; ++i) {
            pad += " ";
        }
        test.log("|" + pad + "'" + item.text(0) + "'" + checked + selected);
    }
    else {
        indent = -4;
    }
    // Only show visible child items
    if (item != root && item.isExpanded() || item == root) {
        for (var row = 0; row < item.childCount(); ++row) {
            checkAnItem(indent + 4, item.child(row), root);
        }
    }
}

function main()
{
    startApplication("itemviews");
    var treeWidgetName = "{type='QTreeWidget' unnamed='1' visible='1'}";
    var treeWidget = waitForObject(treeWidgetName);
    var root = treeWidget.invisibleRootItem();
    checkAnItem(-1, root, root);
}

sub checkAnItem
{
    my ($indent, $item, $root) = @_;
    if ($indent > -1) {
        my $checked = "";
        my $selected = "";
        if ($item->checkState(0) == Qt::Checked) {
            $checked = " +checked";
	}
        if ($item->isSelected()) {
            $selected = " +selected";
	}
        test::log("|" . " " x $indent . "'" . $item->text(0) . "'" . $checked . $selected);
    }
    else {
        $indent = -4
    }
    # Only show visible child items
    if ($item != $root && $item->isExpanded() || $item == $root) {
        for (my $row = 0; $row < $item->childCount(); ++$row) {
            checkAnItem($indent + 4, $item->child($row), $root);
        }
    }
}
        
sub main
{
    startApplication("itemviews");
    my $treeWidgetName = "{type='QTreeWidget' unnamed='1' visible='1'}";
    my $treeWidget = waitForObject($treeWidgetName);
    my $root = $treeWidget->invisibleRootItem();
    checkAnItem(-1, $root, $root);
}

proc checkAnItem {indent item root} {
    if {$indent > -1} {
        set checked ""
        set selected ""
        if {[invoke $item checkState 0] == [enum Qt Checked]} {
            set checked " +checked"
        }
        if [invoke $item isSelected] {
            set selected " +selected"
        }
        set text [toString [invoke $item text 0]]
        set pad [string repeat " " $indent]
        test log "|$pad'$text'$checked$selected"
    } else {
        set indent [expr -4]
    }
    # Only show visible child items
    if {$item != $root && [invoke $item isExpanded] || $item == $root} {
        for {set row 0} {$row < [invoke $item childCount]} {incr row} {
            checkAnItem [expr $indent + 4] [invoke $item child $row] $root
        }
    }
}
       
proc main {} {
    startApplication "itemviews"
    set treeWidgetName {{type='QTreeWidget' unnamed='1' visible='1'}}
    set treeWidget [waitForObject $treeWidgetName]
    set root [invoke $treeWidget invisibleRootItem]
    checkAnItem -1 $root $root
}

def checkAnItem(indent, index, treeView, model, selectionModel):
    if indent > -1 and index.isValid():
        text = model.data(index).toString()
        checked = selected = ""
        checkState = model.data(index, Qt.CheckStateRole).toInt()
        if checkState == Qt.Checked:
            checked = " +checked"
        if selectionModel.isSelected(index):
            selected = " +selected"
        test.log("|%s'%s'%s%s" % (" " * indent, text, checked, selected))
    else:
        indent = -4
    # Only show visible child items
    if index.isValid() and treeView.isExpanded(index) or not index.isValid():
        for row in range(model.rowCount(index)):
            checkAnItem(indent + 4, model.index(row, 0, index), treeView, model, selectionModel)

        
def main():
    startApplication("itemviews")
    treeViewName = "{type='QTreeView' unnamed='1' visible='1'}"
    treeView = waitForObject(treeViewName)
    model = treeView.model()
    selectionModel = treeView.selectionModel()
    checkAnItem(-1, QModelIndex(), treeView, model, selectionModel)

function checkAnItem(indent, index, treeView, model, selectionModel)
{
    if (indent > -1 && index.isValid()) {
        var text = model.data(index).toString();
        var checked = "";
        var selected = "";
        var checkState = model.data(index, Qt.CheckStateRole).toInt();
        if (checkState == Qt.Checked) {
            checked = " +checked";
        }
        if (selectionModel.isSelected(index)) {
            selected = " +selected";
        }
        var pad = "";
        for (var i = 0; i < indent; ++i) {
            pad += " ";
        }
        test.log("|" + pad + "'" + text + "'" + checked + selected);
    }
    else {
        indent = -4;
    }
    // Only show visible child items
    if (index.isValid() && treeView.isExpanded(index) || !index.isValid()) {
        for (var row = 0; row < model.rowCount(index); ++row) {
            checkAnItem(indent + 4, model.index(row, 0, index), treeView, model,
                selectionModel);
        }
    }
}

function main()
{
    startApplication("itemviews");
    var treeViewName = "{type='QTreeView' unnamed='1' visible='1'}";
    var treeView = waitForObject(treeViewName);
    var model = treeView.model();
    var selectionModel = treeView.selectionModel();
    checkAnItem(-1, new QModelIndex(), treeView, model, selectionModel);
}

sub checkAnItem
{
    my ($indent, $index, $treeView, $model, $selectionModel) = @_;
    if ($indent > -1 && $index->isValid()) {
        my $text = $model->data($index)->toString();
        my $checked = "";
        my $selected = "";
        my $checkState = $model->data($index, Qt::CheckStateRole)->toInt();
        if ($checkState == Qt::Checked) {
            $checked = " +checked";
	}
        if ($selectionModel->isSelected($index)) {
            $selected = " +selected";
	}
        test::log("|" . " " x $indent . "'" . $text . "'" . $checked . $selected);
    }
    else {
        $indent = -4;
    }
    # Only show visible child items
    if ($index->isValid() && $treeView->isExpanded($index) || !$index->isValid()) {
        for (my $row = 0; $row < $model->rowCount($index); ++$row) {
            checkAnItem($indent + 4, $model->index($row, 0, $index),
                        $treeView, $model, $selectionModel);
        }
    }
}
     
sub main
{
    startApplication("itemviews");
    my $treeViewName = "{type='QTreeView' unnamed='1' visible='1'}";
    my $treeView = waitForObject($treeViewName);
    my $model = $treeView->model();
    my $selectionModel = $treeView->selectionModel();
    checkAnItem(-1, new QModelIndex(), $treeView, $model, $selectionModel);
}

proc checkAnItem {indent index treeView model selectionModel} {
    if {$indent > -1 && [invoke $index isValid]} {
        set text [toString [invoke [invoke $model data $index] toString]]
        set checked ""
        set selected ""
        set checkState [invoke [invoke $model data $index [enum Qt CheckStateRole]] toInt]
        if {$checkState == [enum Qt Checked]} {
            set checked " +checked"
        }
        if [invoke $selectionModel isSelected $index] {
            set selected " +selected"
        }
        set pad [string repeat " " $indent]
        test log "|$pad'$text'$checked$selected"
    } else {
        set indent [expr -4]
    }
    # Only show visible child items
    if {[invoke $index isValid] && [invoke $treeView isExpanded $index] || ![invoke $index isValid]} {
        for {set row 0} {$row < [invoke $model rowCount $index]} {incr row} {
            checkAnItem [expr $indent + 4] [invoke $model index $row 0 $index] $treeView $model $selectionModel
        }
    }
}
        
proc main {} {
    startApplication "itemviews"
    set treeViewName {{type='QTreeView' unnamed='1' visible='1'}}
    set treeView [waitForObject $treeViewName]
    set model [invoke $treeView model]
    set selectionModel [invoke $treeView selectionModel]
    checkAnItem -1 [construct QModelIndex] $treeView $model $selectionModel
}

def main():
    startApplication("PaymentForm.class")
    # Start with the correct tab
    tabWidgetName = ":Payment Form.Cash_com.froglogic.squish.awt.TabProxy" 
    waitForObject(tabWidgetName)
    clickTab(tabWidgetName)

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    amountDueLabelName = ("{caption?='[$][0-9.,]*' type='javax.swing.JLabel' "
            "visible='true' window=':Payment Form_PaymentForm'}")
    amountDueLabel = waitForObject(amountDueLabelName)
    chars = []
    for char in unicode(amountDueLabel.getText()):
        if char.isdigit():
            chars.append(char)
    amount_due = cast("".join(chars), int)
    maximum = min(2000, amount_due)
    paymentSpinnerName = ("{type='javax.swing.JSpinner' visible='true' "
            "window=':Payment Form_PaymentForm'}")
    paymentSpinner = waitForObject(paymentSpinnerName)
    model = paymentSpinner.getModel()
    test.verify(model.minimum.intValue() == 1)
    test.verify(model.maximum.intValue() == maximum)
    
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    payButtonName = ":Payment Form.Pay_javax.swing.JButton"
    payButton = waitForObject(payButtonName)
    test.verify(payButton.enabled)

function main()
{
    startApplication("PaymentForm.class");
    // Start with the correct tab
    var tabWidgetName = ":Payment Form.Cash_com.froglogic.squish.awt.TabProxy";
    waitForObject(tabWidgetName);
    clickTab(tabWidgetName);

    // Business rule #1: the minimum payment is $1 and the maximum is
    // $2000 or the amount due whichever is smaller
    var amountDueLabelName = "{caption?='[$][0-9.,]*' " +
	    "type='javax.swing.JLabel' visible='true' " +
	    "window=':Payment Form_PaymentForm'}";
    var amountDueLabel = waitForObject(amountDueLabelName);
    var chars = [];
    var amountDueText = new String(amountDueLabel.text);
    for (var i = 0; i < amountDueText.length; ++i) {
        var ch = amountDueText.charAt(i);
        if ("0123456789".indexOf(ch) > -1) {
            chars.push(ch);
        }
    }

    var amount_due = parseFloat(chars.join(""));
    var maximum = Math.min(2000, amount_due);

    var paymentSpinnerName = "{type='javax.swing.JSpinner' " +
	    "visible='true' window=':Payment Form_PaymentForm'}";
    var paymentSpinner = waitForObject(paymentSpinnerName);
    var model = paymentSpinner.getModel();
    test.verify(model.minimum.intValue() == 1);
    test.verify(model.maximum.intValue() == maximum);
    
    // Business rule #2: the Pay button is enabled (since the above tests
    // ensure that the payment amount is in range)
    var payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    var payButton = waitForObject(payButtonName);
    test.verify(payButton.enabled);
}

sub main
{
    startApplication("PaymentForm.class");
    # Start with the correct tab
    my $tabWidgetName = ":Payment Form.Cash_com.froglogic.squish.awt.TabProxy";
    waitForObject($tabWidgetName);
    clickTab($tabWidgetName);

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    my $amountDueLabelName = "{caption?='[\$][0-9.,]*' " .
	    "type='javax.swing.JLabel' visible='true' " .
	    "window=':Payment Form_PaymentForm'}";
    my $amountDueLabel = waitForObject($amountDueLabelName);
    my $amount_due = $amountDueLabel->text;
    $amount_due =~ s/\D//g; # remove non-digits
    my $maximum = 2000 < $amount_due ? 2000 : $amount_due;

    my $paymentSpinnerName = "{type='javax.swing.JSpinner' " .
	    "visible='true' window=':Payment Form_PaymentForm'}";
    my $paymentSpinner = waitForObject($paymentSpinnerName);
    my $model = $paymentSpinner->getModel();
    test::verify($model->minimum->intValue() == 1);
    test::verify($model->maximum->intValue() == $maximum);
   
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    my $payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    my $payButton = waitForObject($payButtonName);
    test::verify($payButton->enabled);
}

proc main {} {
    startApplication "PaymentForm.class"
    # Start with the correct tab
    set tabWidgetName ":Payment Form.Cash_com.froglogic.squish.awt.TabProxy" 
    waitForObject $tabWidgetName
    invoke clickTab $tabWidgetName

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    set amountDueLabelName {{caption?='[$][0-9.,]*' type='javax.swing.JLabel' visible='true' window=':Payment Form_PaymentForm'}}
    set amountDueLabel [waitForObject $amountDueLabelName]
    set amountText [toString [property get $amountDueLabel text]]
    regsub -all {\D} $amountText "" amountText
    set amount_due [expr $amountText]
    set maximum [expr $amount_due < 2000 ? $amount_due : 2000]

    set paymentSpinnerName {{type='javax.swing.JSpinner' visible='true' window=':Payment Form_PaymentForm'}}
    set paymentSpinner [waitForObject $paymentSpinnerName]
    set model [invoke $paymentSpinner getModel]
    set minimumAllowed [invoke [property get $model minimum] intValue]
    set maximumAllowed [invoke [property get $model maximum] intValue]
    test compare $minimumAllowed 1
    test compare $maximumAllowed $maximum
    
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    set payButtonName ":Payment Form.Pay_javax.swing.JButton"
    waitForObject $payButtonName
    set payButton [findObject $payButtonName]
    test verify [property get $payButton enabled]
}

def clickTabbedPane(text):
    waitForObject(":Payment Form.%s_com.froglogic.squish.awt.TabProxy" % text)
    clickTab(":Payment Form.%s_com.froglogic.squish.awt.TabProxy" % text)

    
def getAmountDue():
    amountDueLabel = waitForObject("{caption?='[$][0-9.,]*' "
            "type='javax.swing.JLabel' visible='true' "
            "window=':Payment Form_PaymentForm'}")
    chars = []
    for char in unicode(amountDueLabel.getText()):
        if char.isdigit():
            chars.append(char)
    return cast("".join(chars), int)


def checkPaymentRange(minimum, maximum):
    paymentSpinner = waitForObject("{type='javax.swing.JSpinner' visible='true' "
            "window=':Payment Form_PaymentForm'}")
    model = paymentSpinner.getModel()
    test.verify(model.minimum.intValue() == minimum)
    test.verify(model.maximum.intValue() == maximum)

function clickTabbedPane(text)
{
    var tabbedPaneName = ":Payment Form." + text + "_com.froglogic.squish.awt.TabProxy";
    waitForObject(tabbedPaneName);
    clickTab(tabbedPaneName);
}

    
function getAmountDue()
{
    var amountDueLabel = waitForObject("{caption?='[$][0-9.,]*' " +
            "type='javax.swing.JLabel' visible='true' " +
            "window=':Payment Form_PaymentForm'}")
    var chars = [];
    var amountDueText = new String(amountDueLabel.text);
    for (var i = 0; i < amountDueText.length; ++i) {
        var ch = amountDueText.charAt(i);
        if ("0123456789".indexOf(ch) > -1) {
            chars.push(ch);
        }
    }
    return parseFloat(chars.join(""));
}


function checkPaymentRange(minimum, maximum)
{
    var paymentSpinner = waitForObject("{type='javax.swing.JSpinner' " +
	    "visible='true' window=':Payment Form_PaymentForm'}");
    var model = paymentSpinner.getModel();
    test.verify(model.minimum.intValue() == minimum);
    test.verify(model.maximum.intValue() == maximum);
}

sub clickTabbedPane
{
    my $text = shift(@_);
    my $name = ":Payment Form.${text}_com.froglogic.squish.awt.TabProxy";
    waitForObject($name);
    clickTab($name);
}

    
sub getAmountDue
{
    my $amountDueLabel = waitForObject("{caption?='[\$][0-9.,]*' " .
            "type='javax.swing.JLabel' visible='true' " .
            "window=':Payment Form_PaymentForm'}");
    my $amount_due = $amountDueLabel->text;
    $amount_due =~ s/\D//g; # remove non-digits
    return $amount_due;
}


sub checkPaymentRange
{
    my ($minimum, $maximum) = @_;
    my $paymentSpinner = waitForObject("{type='javax.swing.JSpinner' visible='true' " .
            "window=':Payment Form_PaymentForm'}");
    my $model = $paymentSpinner->getModel();
    test::verify($model->minimum->intValue() == $minimum);
    test::verify($model->maximum->intValue() == $maximum);
}

proc clickTabbedPane {text} {
    waitForObject ":Payment Form.${text}_com.froglogic.squish.awt.TabProxy"
    invoke clickTab ":Payment Form.${text}_com.froglogic.squish.awt.TabProxy"
}


proc getAmountDue {} {
    set amountDueLabel [waitForObject {{caption?='[$][0-9.,]*' type='javax.swing.JLabel' visible='true' window=':Payment Form_PaymentForm'}}]
    set amountText [toString [property get $amountDueLabel text]]
    regsub -all {\D} $amountText "" amountText
    return [expr $amountText]
}


proc checkPaymentRange {minimum maximum} {
    set paymentSpinner [waitForObject {{type='javax.swing.JSpinner' visible='true' window=':Payment Form_PaymentForm'}}]
    set model [invoke $paymentSpinner getModel]
    set minimumAllowed [invoke [property get $model minimum] intValue]
    set maximumAllowed [invoke [property get $model maximum] intValue]
    test compare $minimumAllowed $minimum
    test compare $maximumAllowed $maximum
}

def main():
    startApplication("PaymentForm.class")
    # Import functionality needed by more than one test script
    source(findFile("scripts", "common.py"))

    # Start with the correct tab
    clickTabbedPane("Check")

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    amount_due = getAmountDue()
    checkPaymentRange(10, min(250, amount_due))
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow
    checkDateRange(-30, 1)
    
    # Business rule #3: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    payButtonName = ":Payment Form.Pay_javax.swing.JButton"
    payButton = findObject(payButtonName)
    test.compare(payButton.enabled, False)
    
    # Business rule #4: the check must be signed (and if it isn't we
    # will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked()
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, the check is signed and now we have filled in
    # the account details
    populateCheckFields()
    payButton = waitForObject(payButtonName)
    test.verify(payButton.enabled)

function main()
{
    startApplication("PaymentForm.class");
    // Import functionality needed by more than one test script
    source(findFile("scripts", "common.js"));

    // Start with the correct tab
    clickTabbedPane("Check");

    // Business rule #1: the minimum payment is $10 and the maximum is
    // $250 or the amount due whichever is smaller
    var amount_due = getAmountDue();
    checkPaymentRange(10, Math.min(250, amount_due));
    
    // Business rule #2: the check date must be no earlier than 30 days 
    // ago and no later than tomorrow
    checkDateRange(-30, 1);
    
    // Business rule #3: the Pay button is disabled (since the form's data
    // isn't yet valid), so we use findObject() without waiting
    var payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    var payButton = findObject(payButtonName);
    test.compare(payButton.enabled, false);
    
    // Business rule #4: the check must be signed (and if it isn't we
    // will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked();
    
    // Business rule #5: the Pay button should be enabled since all the 
    // previous tests pass, the check is signed and now we have filled in
    // the account details
    populateCheckFields();
    var payButton = waitForObject(payButtonName);
    test.verify(payButton.enabled);
}

sub main
{
    startApplication("PaymentForm.class");
    # Import functionality needed by more than one test script
    source(findFile("scripts", "common.pl"));

    # Start with the correct tab
    clickTabbedPane("Check");

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    my $amount_due = getAmountDue();
    checkPaymentRange(10, $amount_due < 250 ? $amount_due : 250);
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow
    
    # Business rule #3: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    my $payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    my $payButton = findObject($payButtonName);
    test::compare($payButton->enabled, 0);
    
    # Business rule #4: the check must be signed (and if it isn't we
    # will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked;
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, the check is signed and now we have filled in
    # the account details
    populateCheckFields;
    my $payButton = findObject($payButtonName);
    test::verify($payButton->enabled);
}

proc main {} {
    startApplication "PaymentForm.class"
    # Import functionality needed by more than one test script
    source [findFile "scripts" "common.tcl"]

    # Start with the correct tab
    clickTabbedPane "Check"

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    set amount_due [getAmountDue]
    set maximum [expr 250 > $amount_due ? $amount_due : 250]
    checkPaymentRange 10 $maximum
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow
    checkDateRange -30 1
    
    # Business rule #3: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    set payButtonName ":Payment Form.Pay_javax.swing.JButton"
    set payButton [findObject $payButtonName]
    test compare [property get $payButton enabled] false
    
    # Business rule #4: the check must be signed (and if it isn't we
    # will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, the check is signed and now we have filled in
    # the account details
    populateCheckFields
    set payButton [waitForObject $payButtonName]
    test compare [property get $payButton enabled] true
}

def checkDateRange(daysBeforeToday, daysAfterToday):
    calendar = java_util_Calendar.getInstance()
    calendar.add(java_util_Calendar.DAY_OF_MONTH, daysBeforeToday)
    earliest = calendar.getTime()
    calendar.setTime(java_util_Date())
    calendar.add(java_util_Calendar.DAY_OF_MONTH, daysAfterToday)
    latest = calendar.getTime()
    checkDateSpinner = waitForObject(
            "{container=':Payment Form.Check_com.froglogic.squish.awt.TabProxy' "
            "type='javax.swing.JSpinner' visible='true'}")
    model = checkDateSpinner.getModel()
    formatter = java_text_SimpleDateFormat("yyyy-MM-dd")
    test.verify(formatter.format(model.getStart()) == formatter.format(earliest))
    test.verify(formatter.format(model.getEnd()) == formatter.format(latest))

def ensureSignedCheckBoxIsChecked():
    checkSignedCheckBox = waitForObject(
            ":Check.Check Signed_javax.swing.JCheckBox")
    if not checkSignedCheckBox.isSelected():
        clickButton(checkSignedCheckBox)
    test.verify(checkSignedCheckBox.isSelected())

def populateCheckFields():
    bankNameLineEdit = waitForObject(":Check.Bank Name:_javax.swing.JTextField")
    type(bankNameLineEdit, "A Bank")
    bankNumberLineEdit = waitForObject(":Check.Bank Number:_javax.swing.JTextField")
    type(bankNumberLineEdit, "88-91-33X")
    accountNameLineEdit = waitForObject(":Check.Account Name:_javax.swing.JTextField")
    type(accountNameLineEdit, "An Account")
    accountNumberLineEdit = waitForObject(":Check.Account Number:_javax.swing.JTextField")
    type(accountNumberLineEdit, "932745395")

function checkDateRange(daysBeforeToday, daysAfterToday)
{
    var checkDateSpinner = waitForObject("{container=':Payment Form." +
	    "Check_com.froglogic.squish.awt.TabProxy' " +
            "type='javax.swing.JSpinner' visible='true'}");
    var model = checkDateSpinner.getModel();
    var calendar = java_util_Calendar.getInstance();
    calendar.add(java_util_Calendar.DAY_OF_MONTH, daysBeforeToday);
    var earliest = calendar.getTime();
    calendar.setTime(new java_util_Date());
    calendar.add(java_util_Calendar.DAY_OF_MONTH, daysAfterToday);
    var latest = calendar.getTime();
    var formatter = new java_text_SimpleDateFormat("yyyy-MM-dd");
    test.verify(formatter.format(model.getStart()) ==
		formatter.format(earliest));
    test.verify(formatter.format(model.getEnd()) ==
		formatter.format(latest));
}

function ensureSignedCheckBoxIsChecked()
{
    var checkSignedCheckBox = waitForObject(
            ":Check.Check Signed_javax.swing.JCheckBox");
    if (!checkSignedCheckBox.isSelected()) {
        clickButton(checkSignedCheckBox);
	}
    test.verify(checkSignedCheckBox.isSelected());
}

function populateCheckFields()
{
    var bankNameLineEdit = waitForObject(":Check.Bank Name:_javax.swing.JTextField");
    type(bankNameLineEdit, "A Bank");
    var bankNumberLineEdit = waitForObject(":Check.Bank Number:_javax.swing.JTextField");
    type(bankNumberLineEdit, "88-91-33X");
    var accountNameLineEdit = waitForObject(":Check.Account Name:_javax.swing.JTextField");
    type(accountNameLineEdit, "An Account");
    var accountNumberLineEdit = waitForObject(":Check.Account Number:_javax.swing.JTextField");
    type(accountNumberLineEdit, "932745395");
}

sub checkDateRange
{
    my ($daysBeforeToday, $daysAfterToday) = @_;
    my $calendar = java_util_Calendar::getInstance();
    $calendar->add(java_util_Calendar::DAY_OF_MONTH, $daysBeforeToday);
    my $earliest = $calendar->getTime();
    $calendar->setTime(java_util_Date->new());
    $calendar->add(java_util_Calendar::DAY_OF_MONTH, $daysAfterToday);
    my $latest = $calendar->getTime();
    my $checkDateSpinner = waitForObject(
            "{container=':Payment Form.Check_com.froglogic.squish.awt.TabProxy' " .
            "type='javax.swing.JSpinner' visible='true'}");
    my $model = $checkDateSpinner->getModel();
    my $formatter = java_text_SimpleDateFormat->new("yyyy-MM-dd");
    test::verify($formatter->format($model->getStart()) eq $formatter->format($earliest));
    test::verify($formatter->format($model->getEnd()) eq $formatter->format($latest));
}

sub ensureSignedCheckBoxIsChecked
{
    my $checkSignedCheckBox = waitForObject(
            ":Check.Check Signed_javax.swing.JCheckBox");
    if (!$checkSignedCheckBox->isSelected()) {
        clickButton($checkSignedCheckBox);
    }
    test::verify($checkSignedCheckBox->isSelected());
}


sub populateCheckFields
{
    my $bankNameLineEdit = waitForObject(":Check.Bank Name:_javax.swing.JTextField");
    type($bankNameLineEdit, "A Bank");
    my $bankNumberLineEdit = waitForObject(":Check.Bank Number:_javax.swing.JTextField");
    type($bankNumberLineEdit, "88-91-33X");
    my $accountNameLineEdit = waitForObject(":Check.Account Name:_javax.swing.JTextField");
    type($accountNameLineEdit, "An Account");
    my $accountNumberLineEdit = waitForObject(":Check.Account Number:_javax.swing.JTextField");
    type($accountNumberLineEdit, "932745395");
}

proc checkDateRange {daysBeforeToday daysAfterToday} {
    set checkDateSpinner [waitForObject {{container=':Payment Form.Check_com.froglogic.squish.awt.TabProxy' type='javax.swing.JSpinner' visible='true'}}]
    set formatter [construct java_text_SimpleDateFormat "yyyy-MM-dd"]
    set model [invoke $checkDateSpinner getModel]
    set minimumAllowed [invoke $formatter format [invoke $model getStart]]
    set maximumAllowed [invoke $formatter format [invoke $model getEnd]]
    set calendar [invoke java_util_Calendar getInstance]
    invoke $calendar add [property get java_util_Calendar DAY_OF_MONTH] $daysBeforeToday
    set minimumDate [invoke $formatter format [invoke $calendar getTime]]
    invoke $calendar setTime [construct java_util_Date]
    invoke $calendar add [property get java_util_Calendar DAY_OF_MONTH] $daysAfterToday
    set maximumDate [invoke $formatter format [invoke $calendar getTime]]
    test compare $minimumAllowed $minimumDate
    test compare $maximumAllowed $maximumDate
}

proc ensureSignedCheckBoxIsChecked {} {
    set checkSignedCheckBox [waitForObject ":Check.Check Signed_javax.swing.JCheckBox"]
    if {![invoke $checkSignedCheckBox isSelected]} {
        invoke clickButton $checkSignedCheckBox
    }
    test compare [invoke $checkSignedCheckBox isSelected] true
}

proc populateCheckFields {} {
    set bankNameLineEdit [waitForObject ":Check.Bank Name:_javax.swing.JTextField"]
    invoke type $bankNameLineEdit "A Bank"
    set bankNumberLineEdit [waitForObject ":Check.Bank Number:_javax.swing.JTextField"]
    invoke type $bankNumberLineEdit "88-91-33X"
    set accountNameLineEdit [waitForObject ":Check.Account Name:_javax.swing.JTextField"]
    invoke type $accountNameLineEdit "An Account"
    set accountNumberLineEdit [waitForObject ":Check.Account Number:_javax.swing.JTextField"]
    invoke type $accountNumberLineEdit "932745395"
}

def main():
    startApplication("PaymentForm.class")
    source(findFile("scripts", "common.py"))

    # Start with the correct tab
    clickTabbedPane("Credit Card")
    
    # Business rule #1: the minimum payment is $10 or 5% of the amount due
    # whichever is larger and the maximum is $5000 or the amount due 
    # whichever is smaller
    amount_due = getAmountDue()
    checkPaymentRange(max(10, amount_due / 20.0), min(5000, amount_due))
    
    # Business rule #2: for non-Visa cards the issue date must be no
    # earlier than 3 years ago
    # Business rule #3: the expiry date must be at least a month later
    # than today---we make sure that this is the case for the later tests
    checkCardDateEdits()

    # Business rule #4: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    payButtonName = ":Payment Form.Pay_javax.swing.JButton"
    payButton = findObject(payButtonName)
    test.compare(payButton.enabled, False)
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, and now we have filled in the account details
    populateCardFields()
    payButton = findObject(payButtonName)
    test.verify(payButton.enabled)

function main()
{
    startApplication("PaymentForm.class");
    source(findFile("scripts", "common.js"));

    // Start with the correct tab
    clickTabbedPane("Credit Card");
    
    // Business rule #1: the minimum payment is $10 or 5% of the amount due
    // whichever is larger and the maximum is $5000 or the amount due 
    // whichever is smaller
    var amount_due = getAmountDue();
    checkPaymentRange(Math.max(10, amount_due / 20.0),
                      Math.min(5000, amount_due));

    // Business rule #2: for non-Visa cards the issue date must be no
    // earlier than 3 years ago
    // Business rule #3: the expiry date must be at least a month later
    // than today---we make sure that this is the case for the later tests
    checkCardDateEdits();

    // Business rule #4: the Pay button is disabled (since the form's data
    // isn't yet valid), so we use findObject() without waiting
    var payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    var payButton = findObject(payButtonName);
    test.compare(payButton.enabled, false);
    
    // Business rule #5: the Pay button should be enabled since all the 
    // previous tests pass, and now we have filled in the account details
    populateCardFields();
    var payButton = waitForObject(payButtonName);
    test.verify(payButton.enabled);
}

sub main
{
    startApplication("PaymentForm.class");
    source(findFile("scripts", "common.pl"));

    # Start with the correct tab
    clickTabbedPane("Credit Card");
    
    # Business rule #1: the minimum payment is $10 or 5% of the amount due
    # whichever is larger and the maximum is $5000 or the amount due 
    # whichever is smaller
    my $amount_due = getAmountDue();
    my $minimum = $amount_due / 20.0 > 10 ? $amount_due / 20.0 : 10;
    my $maximum = $amount_due < 5000 ? $amount_due : 5000;
    checkPaymentRange($minimum, $maximum);

    # Business rule #2: for non-Visa cards the issue date must be no
    # earlier than 3 years ago
    # Business rule #3: the expiry date must be at least a month later
    # than today---we make sure that this is the case for the later tests
    checkCardDateEdits;

    # Business rule #4: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    my $payButtonName = ":Payment Form.Pay_javax.swing.JButton";
    my $payButton = findObject($payButtonName);
    test::compare($payButton->enabled, 0);
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, and now we have filled in the account details
    populateCardFields;
    my $payButton = findObject($payButtonName);
    test::verify($payButton->enabled);
}

proc main {} {
    startApplication "PaymentForm.class"
    # Import functionality needed by more than one test script
    source [findFile "scripts" "common.tcl"]

    # Start with the correct tab
    clickTabbedPane "Credit Card"
    
    # Business rule #1: the minimum payment is $10 or 5% of the amount due
    # whichever is larger and the maximum is $5000 or the amount due 
    # whichever is smaller
    set amount_due [getAmountDue]
    set five_percent [expr $amount_due / 20]
    set minimum [expr 10 > $five_percent ? 10 : $five_percent]
    set maximum [expr 5000 > $amount_due ? $amount_due : 5000]
    checkPaymentRange $minimum $maximum

    # Business rule #2: for non-Visa cards the issue date must be no
    # earlier than 3 years ago
    # Business rule #3: the expiry date must be at least a month later
    # than today---we make sure that this is the case for the later tests
    checkCardDateEdits
    
    # Business rule #4: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    set payButtonName ":Payment Form.Pay_javax.swing.JButton"
    set payButton [findObject $payButtonName]
    test compare [property get $payButton enabled] false
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, and now we have filled in the account details
    populateCardFields
    set payButton [waitForObject $payButtonName]
    test compare [property get $payButton enabled] true
}

def checkCardDateEdits():
    # (1) set the card type to any non-Visa card
    cardTypeComboBox = waitForObject(":Credit Card.Card Type:_javax.swing.JComboBox")
    for index in range(cardTypeComboBox.getItemCount()):
        if cardTypeComboBox.getItemAt(index).toString() != "Visa":
            cardTypeComboBox.setSelectedIndex(index)
            break
    # (2) find the two date spinners
    creditCardTabPane = waitForObject(
            ":Payment Form.Credit Card_com.froglogic.squish.awt.TabProxy").component
    spinners = []
    for i in range(creditCardTabPane.getComponentCount()):
        component = creditCardTabPane.getComponent(i)
        if component.getClass().toString() == "class javax.swing.JSpinner":
            spinners.append(component)
    test.verify(len(spinners) == 2)
    # (3) check the issue date spinner's minimum date
    calendar = java_util_Calendar.getInstance()
    calendar.add(java_util_Calendar.YEAR, -3)
    date = calendar.getTime()
    issueDateSpinner = spinners[0]
    model = issueDateSpinner.getModel()
    formatter = java_text_SimpleDateFormat("yyyy-MM-dd")
    test.verify(formatter.format(model.getStart()) == formatter.format(date))
    # (4) set the expiry date more than a month later than now for later tests
    calendar.setTime(java_util_Date())
    calendar.add(java_util_Calendar.DAY_OF_MONTH, 35)
    expiryDateSpinner = spinners[1]
    expiryDateSpinner.setValue(calendar.getTime())

def populateCardFields():
    cardAccountNameLineEdit = waitForObject(":Credit Card.Account Name:_javax.swing.JTextField")
    type(cardAccountNameLineEdit, "An Account")
    cardAccountNumberLineEdit = waitForObject(":Credit Card.Account Number:_javax.swing.JTextField")
    type(cardAccountNumberLineEdit, "1343 876 326 1323 32")

function checkCardDateEdits()
{
    // (1) set the card type to any non-Visa card
    var cardTypeComboBox = waitForObject(":Credit Card.Card Type:_javax.swing.JComboBox");
    for (var index = 0; index < cardTypeComboBox.getItemCount(); ++index) {
        if (cardTypeComboBox.getItemAt(index).toString() != "Visa") {
            cardTypeComboBox.setSelectedIndex(index);
            break;
	}
    }
    // (2) find the two date spinners
    var creditCardTabPane = waitForObject(":Payment Form.Credit Card_com." +
	    "froglogic.squish.awt.TabProxy").component;
    var spinners = [];
    for (var i = 0; i < creditCardTabPane.getComponentCount(); ++i) {
        var component = creditCardTabPane.getComponent(i);
        if (component.getClass().toString() ==
	    "class javax.swing.JSpinner") {
            spinners.push(component);
	}
    }
    test.verify(spinners.length == 2);
    // (3) check the issue date spinner's minimum date
    var calendar = java_util_Calendar.getInstance();
    calendar.add(java_util_Calendar.YEAR, -3);
    var threeYearsAgo = calendar.getTime();
    var issueDateSpinner = spinners[0];
    var model = issueDateSpinner.getModel();
    var formatter = new java_text_SimpleDateFormat("yyyy-MM-dd");
    test.verify(formatter.format(model.getStart()) ==
		formatter.format(threeYearsAgo));
    // (4) set the expiry date more than a month later than now for later tests
    calendar.setTime(new java_util_Date());
    calendar.add(java_util_Calendar.DAY_OF_MONTH, 35);
    var expiryDateSpinner = spinners[1];
    expiryDateSpinner.setValue(calendar.getTime());
}

function populateCardFields()
{
    var cardAccountNameLineEdit = waitForObject(":Credit Card.Account Name:_javax.swing.JTextField");
    type(cardAccountNameLineEdit, "An Account");
    var cardAccountNumberLineEdit = waitForObject(":Credit Card.Account Number:_javax.swing.JTextField");
    type(cardAccountNumberLineEdit, "1343 876 326 1323 32");
}

sub checkCardDateEdits
{
    # (1) set the card type to any non-Visa card
    my $cardTypeComboBox = waitForObject(":Credit Card.Card Type:_javax.swing.JComboBox");
    for (my $index = 0; $index < $cardTypeComboBox->getItemCount(); ++$index) {
        if ($cardTypeComboBox->getItemAt($index)->toString() != "Visa") {
            $cardTypeComboBox->setSelectedIndex($index);
            break;
	}
    }
    # (2) find the two date spinners
    my $creditCardTabPane = waitForObject(
            ":Payment Form.Credit Card_com.froglogic.squish.awt.TabProxy")->component;
    my @spinners = ();
    for (my $i = 0; $i < $creditCardTabPane->getComponentCount(); ++$i) {
        my $component = $creditCardTabPane->getComponent($i);
        if ($component->getClass()->toString() eq "class javax.swing.JSpinner") {
            push @spinners, $component;
	}
    }
    test::verify(@spinners == 2);
    # (3) check the issue date spinner's minimum date
    my $calendar = java_util_Calendar::getInstance();
    $calendar->add(java_util_Calendar::YEAR, -3);
    my $date = $calendar->getTime();
    my $issueDateSpinner = $spinners[0];
    my $model = $issueDateSpinner->getModel();
    my $formatter = java_text_SimpleDateFormat->new("yyyy-MM-dd");
    test::verify($formatter->format($model->getStart()) eq $formatter->format($date));
    # (4) set the expiry date more than a month later than now for later tests
    $calendar->setTime(java_util_Date->new());
    $calendar->add(java_util_Calendar::DAY_OF_MONTH, 35);
    my $expiryDateSpinner = $spinners[1];
    $expiryDateSpinner->setValue($calendar->getTime());
}


sub populateCardFields
{
    my $cardAccountNameLineEdit = waitForObject(":Credit Card.Account Name:_javax.swing.JTextField");
    type($cardAccountNameLineEdit, "An Account");
    my $cardAccountNumberLineEdit = waitForObject(":Credit Card.Account Number:_javax.swing.JTextField");
    type($cardAccountNumberLineEdit, "1343 876 326 1323 32");
}

proc checkCardDateEdits {} {
    # (1) set the card type to any non-Visa card
    set cardTypeComboBox [waitForObject ":Credit Card.Card Type:_javax.swing.JComboBox"]
    set count [invoke $cardTypeComboBox getItemCount]
    for {set index 0} {$index < $count} {incr index} {
        if {[invoke $cardTypeComboBox getItemAt $index] != "Visa"} {
            invoke $cardTypeComboBox setSelectedIndex $index
            break
	}
    }
    # (2) find the two date spinners
    set creditCardTabPaneProxy [waitForObject ":Payment Form.Credit Card_com.froglogic.squish.awt.TabProxy"]
    set creditCardTabPane [property get $creditCardTabPaneProxy component]
    set spinners {}
    set count [invoke $creditCardTabPane getComponentCount]
    for {set index 0} {$index < $count} {incr index} {
        set component [invoke $creditCardTabPane getComponent $index]
	set classname [invoke [invoke $component getClass] toString]
	if {$classname == "class javax.swing.JSpinner"} {
            lappend spinners $component
	}
    }
    test compare [llength $spinners] 2
    # (3) check the issue date spinner's minimum date
    set calendar [invoke java_util_Calendar getInstance]
    invoke $calendar add [property get java_util_Calendar YEAR] -3
    set issueDateSpinner [lindex $spinners 0]
    set model [invoke $issueDateSpinner getModel]
    set formatter [construct java_text_SimpleDateFormat "yyyy-MM-dd"]
    set minimumAllowed [invoke $formatter format [invoke $model getStart]]
    set minimumDate [invoke $formatter format [invoke $calendar getTime]]
    test compare $minimumAllowed $minimumDate
    # (4) set the expiry date more than a month later than now for later tests
    invoke $calendar setTime [construct java_util_Date]
    invoke $calendar add [property get java_util_Calendar DAY_OF_MONTH] 35
    set expiryDateSpinner [lindex $spinners 1]
    invoke $expiryDateSpinner setValue [invoke $calendar getTime]
}

proc populateCardFields {} {
    set cardAccountNameLineEdit [waitForObject ":Credit Card.Account Name:_javax.swing.JTextField"]
    invoke type $cardAccountNameLineEdit "An Account"
    set cardAccountNumberLineEdit [waitForObject ":Credit Card.Account Number:_javax.swing.JTextField"]
    invoke type $cardAccountNumberLineEdit "1343 876 326 1323 32"
}

def main():
    startApplication("CsvTable.class")
    source(findFile("scripts", "common.py"))
    filename = "before.csv"
    doFileOpen(filename)
    jtable = waitForObject("{type='javax.swing.JTable' visible='true'}")
    compareTableWithDataFile(jtable, filename)

function main()
{
    startApplication("CsvTable.class");
    source(findFile("scripts", "common.js"));
    var filename = "before.csv";
    doFileOpen(filename);
    var jtable = waitForObject("{type='javax.swing.JTable' visible='true'}");
    compareTableWithDataFile(jtable, filename);
}

sub main
{
    startApplication("CsvTable.class");
    source(findFile("scripts", "common.pl"));
    my $filename = "before.csv";
    doFileOpen($filename);
    my $jtable = waitForObject("{type='javax.swing.JTable' visible='true'}");
    compareTableWithDataFile($jtable, $filename);
}

proc main {} {
    startApplication "CsvTable.class"
    source [findFile "scripts" "common.tcl"]
    set filename "before.csv"
    doFileOpen $filename
    set jtable [waitForObject {{type='javax.swing.JTable' visible='true'}}]
    compareTableWithDataFile $jtable $filename
}

def doFileOpen(filename):
    chooseMenuOptionByKey("F", "o")
    paneName = "{type='javax.swing.JRootPane' visible='true'}"
    waitForObject(paneName)
    # Platform-specific name
    fileDialogEntryName = ("{leftWidget=':Open.File Name:"
        "_javax.swing.plaf.metal.MetalFileChooserUI$AlignedLabel' "
        "type='javax.swing.plaf.metal.MetalFileChooserUI$3' visible='true' "
        "window=':Open_javax.swing.JDialog'}")
    waitForObject(fileDialogEntryName)
    type(fileDialogEntryName, filename)
    waitForObject(fileDialogEntryName)
    type(fileDialogEntryName, "<Return>")
    

def chooseMenuOptionByKey(menuKey, optionKey):
    paneName = "{type='javax.swing.JRootPane' visible='true'}"
    waitForObject(paneName)
    type(paneName, "<Alt+%s>" % menuKey)
    waitForObject(paneName)
    type(paneName, optionKey)

    
def compareTableWithDataFile(jtable, filename):
    tableModel = jtable.getModel()
    for row, record in enumerate(testData.dataset(filename)):
        for column, name in enumerate(testData.fieldNames(record)):
            text = tableModel.getValueAt(row, column).toString()
            test.compare(testData.field(record, name), text)

function doFileOpen(filename)
{
    chooseMenuOptionByKey("F", "o");
    var paneName = "{type='javax.swing.JRootPane' visible='true'}";
    waitForObject(paneName);
    // Platform-specific name
    var fileDialogEntryName = ("{leftWidget=':Open.File Name:" +
        "_javax.swing.plaf.metal.MetalFileChooserUI$AlignedLabel' " +
        "type='javax.swing.plaf.metal.MetalFileChooserUI$3' visible='true' " +
        "window=':Open_javax.swing.JDialog'}");
    waitForObject(fileDialogEntryName);
    type(fileDialogEntryName, filename);
    waitForObject(fileDialogEntryName);
    type(fileDialogEntryName, "<Return>");
}
    

function chooseMenuOptionByKey(menuKey, optionKey)
{
    var paneName = "{type='javax.swing.JRootPane' visible='true'}";
    waitForObject(paneName);
    type(paneName, "<Alt+" + menuKey + ">")
    waitForObject(paneName);
    type(paneName, optionKey);
}

    
function compareTableWithDataFile(jtable, filename)
{
    var tableModel = jtable.getModel();
    var records = testData.dataset(filename);
    for (var row = 0; row < records.length; ++row) {
        columnNames = testData.fieldNames(records[row]);
        for (var column = 0; column < columnNames.length; ++column) {
            text = tableModel.getValueAt(row, column).toString();
            test.compare(testData.field(records[row], column), text);
        }
    }
}

sub doFileOpen
{
    my $filename = shift(@_);
    chooseMenuOptionByKey("F", "o");
    my $paneName = "{type='javax.swing.JRootPane' visible='true'}";
    waitForObject($paneName);
    # Platform-specific name
    my $fileDialogEntryName = ("{leftWidget=':Open.File Name:" .
        "_javax.swing.plaf.metal.MetalFileChooserUI\$AlignedLabel' " .
        "type='javax.swing.plaf.metal.MetalFileChooserUI\$3' visible='true' " .
        "window=':Open_javax.swing.JDialog'}");
    waitForObject($fileDialogEntryName);
    type($fileDialogEntryName, $filename);
    waitForObject($fileDialogEntryName);
    type($fileDialogEntryName, "<Return>");
}
    

sub chooseMenuOptionByKey
{
    my($menuKey, $optionKey) = @_;
    my $paneName = "{type='javax.swing.JRootPane' visible='true'}";
    waitForObject($paneName);
    type($paneName, "<Alt+$menuKey>");
    waitForObject($paneName);
    type($paneName, $optionKey);
}

    
sub compareTableWithDataFile
{
    my ($jtable, $filename) = @_;
    my $tableModel = $jtable->getModel();
    my @records = testData::dataset($filename);
    for (my $row = 0; $row < scalar(@records); $row++) {
        my @columnNames = testData::fieldNames($records[$row]);
        for (my $column = 0; $column < scalar(@columnNames); $column++) {
            my $text = $tableModel->getValueAt($row, $column)->toString();
            test::compare($text, testData::field($records[$row], $column));
        }
    }
}

proc doFileOpen {filename} {
    chooseMenuOptionByKey "F" "o"
    set paneName {{type='javax.swing.JRootPane' visible='true'}}
    waitForObject $paneName
    # Platform-specific name
    set fileDialogEntryName {{leftWidget=':Open.File Name:_javax.swing.plaf.metal.MetalFileChooserUI$AlignedLabel' type='javax.swing.plaf.metal.MetalFileChooserUI$3' visible='true' window=':Open_javax.swing.JDialog'}}
    waitForObject $fileDialogEntryName
    invoke type $fileDialogEntryName $filename
    waitForObject $fileDialogEntryName
    invoke type $fileDialogEntryName "<Return>"
}
    

proc chooseMenuOptionByKey {menuKey optionKey} {
    set paneName {{type='javax.swing.JRootPane' visible='true'}}
    waitForObject $paneName
    invoke type $paneName "<Alt+$menuKey>"
    waitForObject $paneName
    invoke type $paneName $optionKey
}

    
proc compareTableWithDataFile {jtable filename} {
    set data [testData dataset $filename]
    set tableModel [invoke $jtable getModel]
    for {set row 0} {$row < [llength $data]} {incr row} {
	set columnNames [testData fieldNames [lindex $data $row]]
	for {set column 0} {$column < [llength $columnNames]} {incr column} {
            set item [invoke $tableModel getValueAt $row $column]
            test compare [testData field [lindex $data $row] $column] [invoke $item toString]
	}
    }
}

    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane")
# Added by Hand
    source(findFile("scripts", "common.py"))
    jtable = waitForObject("{type='javax.swing.JTable' visible='true'}")
    tableModel = jtable.getModel()
    test.verify(tableModel.getColumnCount() == 5)
    test.verify(tableModel.getRowCount() == 11)
    compareTableWithDataFile(jtable, "after.csv")
# End of Added by Hand
    type(":CSV Table - before.csv_javax.swing.JRootPane", "<Alt+F>")
    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane")
    type(":CSV Table - before.csv_javax.swing.JRootPane", "q")
    waitForObject(":CSV Table - before.csv.Yes_javax.swing.JButton")
    type(":CSV Table - before.csv.Yes_javax.swing.JButton", "<Alt+N>")

    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane");
// Added by Hand
    source(findFile("scripts", "common.js"))
    jtable = waitForObject("{type='javax.swing.JTable' visible='true'}")
    tableModel = jtable.getModel()
    test.verify(tableModel.getColumnCount() == 5)
    test.verify(tableModel.getRowCount() == 10)
    compareTableWithDataFile(jtable, "after.csv")
// End of Added by Hand
    type(":CSV Table - before.csv_javax.swing.JRootPane", "<Alt+F>");
    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane");
    type(":CSV Table - before.csv_javax.swing.JRootPane", "q");
    waitForObject(":CSV Table - before.csv.Yes_javax.swing.JButton");
    type(":CSV Table - before.csv.Yes_javax.swing.JButton", "<Alt+N>");
}

    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane");
# Added by Hand
    source(findFile("scripts", "common.pl"));
    my $jtable = waitForObject("{type='javax.swing.JTable' visible='true'}");
    my $tableModel = $jtable->getModel();
    test::verify($tableModel->getColumnCount() == 5);
    test::verify($tableModel->getRowCount() == 11);
    compareTableWithDataFile($jtable, "after.csv");
# End of Added by Hand
    type(":CSV Table - before.csv_javax.swing.JRootPane", "<Alt+F>");
    waitForObject(":CSV Table - before.csv_javax.swing.JRootPane");
    type(":CSV Table - before.csv_javax.swing.JRootPane", "q");
    waitForObject(":CSV Table - before.csv.Yes_javax.swing.JButton");
    type(":CSV Table - before.csv.Yes_javax.swing.JButton", "<Alt+N>");
}

    waitForObject ":CSV Table - before.csv_javax.swing.JRootPane"
# Added by Hand
    source [findFile "scripts" "common.tcl"]
    set jtable [waitForObject {{type='javax.swing.JTable' visible='true'}}]
    set tableModel [invoke $jtable getModel]
    test compare [invoke $tableModel getColumnCount] 5
    test compare [invoke $tableModel getRowCount] 11
    compareTableWithDataFile $jtable "after.csv"
# End of Added by Hand
    invoke type ":CSV Table - before.csv_javax.swing.JRootPane" "<Alt+F>" 
    waitForObject ":CSV Table - before.csv_javax.swing.JRootPane"
    invoke type ":CSV Table - before.csv_javax.swing.JRootPane" "q" 
    waitForObject ":CSV Table - before.csv.Yes_javax.swing.JButton"
    invoke type ":CSV Table - before.csv.Yes_javax.swing.JButton" "<Alt+N>" 
}

def main():
    startApplication("PaymentFormSWT.class")
    # Start with the correct tab
    tabFolderName = ":Payment Form_org.eclipse.swt.widgets.TabFolder"
    tabFolder = waitForObject(tabFolderName)
    clickTab(tabFolder, "C&ash")

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    amountDueLabelName = ("{caption?='[$][0-9.,]*' type='org.eclipse.swt.widgets.Label' "
            "visible='true' window=':Payment Form_org.eclipse.swt.widgets.Shell'}")
    amountDueLabel = waitForObject(amountDueLabelName)
    chars = []
    for char in unicode(amountDueLabel.getText()):
        if char.isdigit():
            chars.append(char)
    amount_due = cast("".join(chars), int)
    maximum = min(2000, amount_due)
    paymentSpinnerName = ("{isvisible='true' type='org.eclipse.swt.widgets.Spinner' "
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}")
    paymentSpinner = waitForObject(paymentSpinnerName)
    test.verify(paymentSpinner.getMinimum() == 1)
    test.verify(paymentSpinner.getMaximum() == maximum)
    
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button"
    payButton = waitForObject(payButtonName)
    test.verify(payButton.isEnabled())

function main()
{
    startApplication("PaymentFormSWT.class");
    // Start with the correct tab
    var tabFolderName = ":Payment Form_org.eclipse.swt.widgets.TabFolder";
    var tabFolder = waitForObject(tabFolderName);
    clickTab(tabFolder, "C&ash");

    // Business rule #1: the minimum payment is $1 and the maximum is
    // $2000 or the amount due whichever is smaller
    var amountDueLabelName = "{caption?='[$][0-9.,]*' type='org.eclipse.swt.widgets.Label' " +
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    var amountDueLabel = waitForObject(amountDueLabelName);
    var chars = [];
    var amountDueText = new String(amountDueLabel.text);
    for (var i = 0; i < amountDueText.length; ++i) {
        var ch = amountDueText.charAt(i);
        if ("0123456789".indexOf(ch) > -1) {
            chars.push(ch);
        }
    }

    var amount_due = parseFloat(chars.join(""));
    var maximum = Math.min(2000, amount_due);

    var paymentSpinnerName = "{isvisible='true' type='org.eclipse.swt.widgets.Spinner' " +
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    var paymentSpinner = waitForObject(paymentSpinnerName);
    test.verify(paymentSpinner.getMinimum() == 1);
    test.verify(paymentSpinner.getMaximum() == maximum);
    
    // Business rule #2: the Pay button is enabled (since the above tests
    // ensure that the payment amount is in range)
    var payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button";
    var payButton = waitForObject(payButtonName);
    test.verify(payButton.isEnabled());
}

sub main
{
    startApplication("PaymentFormSWT.class");
    # Start with the correct tab
    my $tabFolderName = ":Payment Form_org.eclipse.swt.widgets.TabFolder";
    my $tabFolder = waitForObject($tabFolderName);
    clickTab($tabFolder, "C&ash");

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    my $amountDueLabelName = "{caption?='[\$][0-9.,]*' type='org.eclipse.swt.widgets.Label' " .
            "visible='true' window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    my $amountDueLabel = waitForObject($amountDueLabelName);
    my $amount_due = $amountDueLabel->text;
    $amount_due =~ s/\D//g; # remove non-digits
    my $maximum = 2000 < $amount_due ? 2000 : $amount_due;
    my $paymentSpinnerName = "{isvisible='true' type='org.eclipse.swt.widgets.Spinner' " .
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    my $paymentSpinner = waitForObject($paymentSpinnerName);
    test::verify($paymentSpinner->getMinimum() == 1);
    test::verify($paymentSpinner->getMaximum() == $maximum);
    
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    my $payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button";
    my $payButton = waitForObject($payButtonName);
    test::verify($payButton->isEnabled());
}

proc main {} {
    startApplication "PaymentFormSWT.class"
    # Start with the correct tab
    set tabFolderName ":Payment Form_org.eclipse.swt.widgets.TabFolder"
    set tabFolder [waitForObject $tabFolderName]
    invoke clickTab $tabFolder "C&ash"

    # Business rule #1: the minimum payment is $1 and the maximum is
    # $2000 or the amount due whichever is smaller
    set amountDueLabelName {{caption?='[$][0-9.,]*' type='org.eclipse.swt.widgets.Label' window=':Payment Form_org.eclipse.swt.widgets.Shell'}}
    set amountDueLabel [waitForObject $amountDueLabelName]
    set amountText [toString [property get $amountDueLabel text]]
    regsub -all {\D} $amountText "" amountText
    set amount_due [expr $amountText]
    set maximum [expr $amount_due < 2000 ? $amount_due : 2000]
    set paymentSpinnerName {{isvisible='true' type='org.eclipse.swt.widgets.Spinner' window=':Payment Form_org.eclipse.swt.widgets.Shell'}}
    set paymentSpinner [waitForObject $paymentSpinnerName]
    test compare [invoke $paymentSpinner getMinimum] 1
    test compare [invoke $paymentSpinner getMaximum] $maximum
    
    # Business rule #2: the Pay button is enabled (since the above tests
    # ensure that the payment amount is in range)
    set payButtonName ":Payment Form.Pay_org.eclipse.swt.widgets.Button"
    set payButton [waitForObject $payButtonName]
    test verify [invoke $payButton isEnabled]
}

def clickTabItem(name):
    tabFolderName = ("{isvisible='true' type='org.eclipse.swt.widgets.TabFolder' "
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}")
    tabFolder = waitForObject(tabFolderName)
    clickTab(tabFolder, name)


def dateTimeEqualsDate(dateTime, date):
    return (dateTime.getYear() == date.get(java_util_Calendar.YEAR) and
            dateTime.getMonth() == date.get(java_util_Calendar.MONTH) and
            dateTime.getDay() == date.get(java_util_Calendar.DAY_OF_MONTH))

    
def getAmountDue():
    amountDueLabelName = ("{caption?='[$][0-9.,]*' "
            "type='org.eclipse.swt.widgets.Label' visible='true' "
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}")
    amountDueLabel = waitForObject(amountDueLabelName)
    chars = []
    for char in unicode(amountDueLabel.getText()):
        if char.isdigit():
            chars.append(char)
    return cast("".join(chars), int)


def checkPaymentRange(minimum, maximum):
    paymentSpinner = waitForObject("{isvisible='true' type='org.eclipse.swt.widgets.Spinner' "
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}")
    test.verify(paymentSpinner.getMinimum() == minimum)
    test.verify(paymentSpinner.getMaximum() == maximum)

function clickTabItem(name)
{
    var tabFolderName = "{isvisible='true' type='org.eclipse.swt.widgets.TabFolder' " +
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    var tabFolder = waitForObject(tabFolderName);
    clickTab(tabFolder, name);
}


function dateTimeEqualsDate(dateTime, aDate)
{
    return (dateTime.getYear() == aDate.get(java_util_Calendar.YEAR) &&
            dateTime.getMonth() == aDate.get(java_util_Calendar.MONTH) &&
            dateTime.getDay() == aDate.get(java_util_Calendar.DAY_OF_MONTH));
}

    
function getAmountDue()
{
    var amountDueLabel = waitForObject("{caption?='[$][0-9.,]*' " +
            "type='org.eclipse.swt.widgets.Label' visible='true' " +
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}");
    var chars = [];
    var amountDueText = new String(amountDueLabel.text);
    for (var i = 0; i < amountDueText.length; ++i) {
        var ch = amountDueText.charAt(i);
        if ("0123456789".indexOf(ch) > -1) {
            chars.push(ch);
        }
    }
    return parseFloat(chars.join(""));
}


function checkPaymentRange(minimum, maximum)
{
    var paymentSpinner = waitForObject("{isvisible='true' type='org.eclipse.swt.widgets.Spinner' " +
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}");
    test.verify(paymentSpinner.getMinimum() == minimum);
    test.verify(paymentSpinner.getMaximum() == maximum);
}

sub clickTabItem
{
    my $name = shift(@_);
    my $tabFolderName = "{isvisible='true' type='org.eclipse.swt.widgets.TabFolder' " .
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}";
    my $tabFolder = waitForObject($tabFolderName);
    clickTab($tabFolder, $name);
}


sub dateTimeEqualsDate
{
    my ($dateTime, $date) = @_;
    return ($dateTime->getYear() == $date->get(java_util_Calendar::YEAR) &&
            $dateTime->getMonth() == $date->get(java_util_Calendar::MONTH) &&
            $dateTime->getDay() == $date->get(java_util_Calendar::DAY_OF_MONTH));
}

    
sub getAmountDue
{
    my $amountDueLabel = waitForObject("{caption?='[\$][0-9.,]*' " .
            "type='org.eclipse.swt.widgets.Label' visible='true' " .
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}");
    my $amount_due = $amountDueLabel->text;
    $amount_due =~ s/\D//g; # remove non-digits
    return $amount_due;
}


sub checkPaymentRange
{
    my ($minimum, $maximum) = @_;
    my $paymentSpinner = waitForObject("{isvisible='true' type='org.eclipse.swt.widgets.Spinner' " .
            "window=':Payment Form_org.eclipse.swt.widgets.Shell'}");
    test::verify($paymentSpinner->getMinimum() == $minimum);
    test::verify($paymentSpinner->getMaximum() == $maximum);
}

proc clickTabItem {name} {
    set tabFolderName {{isvisible='true' type='org.eclipse.swt.widgets.TabFolder' window=':Payment Form_org.eclipse.swt.widgets.Shell'}}
    set tabFolder [waitForObject $tabFolderName]
    invoke clickTab $tabFolder $name
}


proc getAmountDue {} {
    set amountDueLabelName {{caption?='[$][0-9.,]*' type='org.eclipse.swt.widgets.Label' window=':Payment Form_org.eclipse.swt.widgets.Shell'}}
    set amountDueLabel [waitForObject $amountDueLabelName]
    set amountText [toString [property get $amountDueLabel text]]
    regsub -all {\D} $amountText "" amountText
    return [expr $amountText]
}


proc dateTimeEqualsDate {dateTime date} {
    set yearsMatch [expr [invoke $dateTime getYear] == [invoke $date get [property get java_util_Calendar YEAR]]]
    set monthsMatch [expr [invoke $dateTime getMonth] == [invoke $date get [property get java_util_Calendar MONTH]]]
    set daysMatch [expr [invoke $dateTime getDay] == [invoke $date get [property get java_util_Calendar DAY_OF_MONTH]]]
    if {$yearsMatch && $monthsMatch && $daysMatch} {
        return true
    }
    return false
}


proc checkPaymentRange {minimum maximum} {
    set paymentSpinner [waitForObject {{isvisible='true' type='org.eclipse.swt.widgets.Spinner' window=':Payment Form_org.eclipse.swt.widgets.Shell'}}]
    test compare [invoke $paymentSpinner getMinimum] $minimum
    test compare [invoke $paymentSpinner getMaximum] $maximum
    
}

def main():
    startApplication("PaymentFormSWT.class")
    # Import functionality needed by more than one test script
    source(findFile("scripts", "common.py"))

    # Start with the correct tab
    clickTabItem("Chec&k")

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    amount_due = getAmountDue()
    checkPaymentRange(10, min(250, amount_due))
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow, and must initially be set to
    # today. Here we just check its initial value.
    checkDateTime = waitForObject(":Check.Check Date:_DateTime")
    today = java_util_Calendar.getInstance()
    test.verify(dateTimeEqualsDate(checkDateTime, today))
    
    # Business rule #3: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button"
    payButton = findObject(payButtonName)
    test.verify(not payButton.isEnabled())
    
    # Business rule #4: the check must be signed (and if it isn't we
    # will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked()
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, the check is signed and now we have filled in
    # the account details
    populateCheckFields()
    payButton = waitForObject(payButtonName)
    test.verify(payButton.isEnabled())

function main()
{
    startApplication("PaymentFormSWT.class");
    // Import functionality needed by more than one test script
    source(findFile("scripts", "common.js"));

    // Start with the correct tab
    clickTabItem("Chec&k");

    // Business rule #1: the minimum payment is $10 and the maximum is
    // $250 or the amount due whichever is smaller
    var amount_due = getAmountDue();
    checkPaymentRange(10, Math.min(250, amount_due));
    
    // Business rule #2: the check date must be no earlier than 30 days 
    // ago and no later than tomorrow, and must initially be set to
    // today. Here we just check its initial value.
    var checkDateTime = waitForObject(":Check.Check Date:_DateTime");
    var today = java_util_Calendar.getInstance();
    test.verify(dateTimeEqualsDate(checkDateTime, today));
    
    // Business rule #3: the Pay button is disabled (since the form's data
    // isn't yet valid), so we use findObject() without waiting
    var payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button";
    var payButton = findObject(payButtonName);
    test.verify(!payButton.isEnabled());
    
    // Business rule #4: the check must be signed (and if it isn't we
    // will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked();
    
    // Business rule #5: the Pay button should be enabled since all the 
    // previous tests pass, the check is signed and now we have filled in
    // the account details
    populateCheckFields();
    var payButton = waitForObject(payButtonName);
    test.verify(payButton.isEnabled());
}

sub main
{
    startApplication("PaymentFormSWT.class");
    # Import functionality needed by more than one test script
    source(findFile("scripts", "common.pl"));

    # Start with the correct tab
    clickTabItem("Chec&k");

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    my $amount_due = getAmountDue();
    checkPaymentRange(10, $amount_due < 250 ? $amount_due : 250);
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow, and must initially be set to
    # today. Here we just check its initial value.
    my $checkDateTime = waitForObject(":Check.Check Date:_DateTime");
    my $today = java_util_Calendar::getInstance();
    test::verify(dateTimeEqualsDate($checkDateTime, $today));
    
    # Business rule #3: the Pay button is disabled (since the form's data
    # isn't yet valid), so we use findObject() without waiting
    my $payButtonName = ":Payment Form.Pay_org.eclipse.swt.widgets.Button";
    my $payButton = findObject($payButtonName);
    test::verify(!$payButton->isEnabled());
    
    # Business rule #4: the check must be signed (and if it isn't we
    # will check the check box ready to test the next rule)
    ensureSignedCheckBoxIsChecked();
    
    # Business rule #5: the Pay button should be enabled since all the 
    # previous tests pass, the check is signed and now we have filled in
    # the account details
    populateCheckFields();
    my $payButton = waitForObject($payButtonName);
    test::verify($payButton->isEnabled());
}

proc main {} {
    startApplication "PaymentFormSWT.class"
    # Import functionality needed by more than one test script
    source [findFile "scripts" "common.tcl"]

    # Start with the correct tab
    clickTabItem "Chec&k"

    # Business rule #1: the minimum payment is $10 and the maximum is
    # $250 or the amount due whichever is smaller
    set amount_due [getAmountDue]
    checkPaymentRange 10 [expr 250 > $amount_due ? $amount_due : 250]
    
    # Business rule #2: the check date must be no earlier than 30 days 
    # ago and no later than tomorrow, and must initially be set to
    # today. Here we just check its initial value.
    set checkDateTime [waitForObject ":Check.Check Date:_DateTime"]
    set today [invoke java_util_Calendar getInstance]
    test verify [dateTimeEqualsDate $checkDateTime $today]
    
    # Business rule #3: the Pay button is disabled (since the form's data