mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2025-11-10 20:15:59 +00:00
43 lines
1017 B
Perl
43 lines
1017 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This script checks that Gnome Calculator
|
|
# can use pre-selected functions.
|
|
|
|
sub use_function {
|
|
my ($function, $where, $expression) = @_;
|
|
assert_and_click("calc_button_fxunified");
|
|
assert_and_click("calc_functions_$where");
|
|
assert_and_click("calc_select_function_$function");
|
|
type_safely($expression);
|
|
send_key("ret");
|
|
assert_screen("calc_result_$function");
|
|
assert_and_click("calc_button_clear");
|
|
# Stop for a moment to let the Calculator clean entry field
|
|
sleep(1);
|
|
}
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# Wait until everything settles.
|
|
sleep(5);
|
|
|
|
use_function("cos", "trigonometry", "45");
|
|
use_function("re", "complex", "20");
|
|
use_function("ones", "programming", "5");
|
|
use_function("round", "rounding", "5.55");
|
|
use_function("median", "statistics", "1;2;4;5");
|
|
use_function("sqrt", "sundry", "5");
|
|
}
|
|
|
|
sub test_flags {
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|
|
|