51 lines
1.8 KiB
Perl
51 lines
1.8 KiB
Perl
use strict;
|
||
use warnings;
|
||
use lib qw(lib);
|
||
|
||
use Test::More "no_plan";
|
||
|
||
use QA::Util;
|
||
|
||
my ($sel, $config) = get_selenium();
|
||
|
||
log_in($sel, $config, 'admin');
|
||
set_parameters($sel, { "Bug Fields" => {"useclassification-on" => undef} });
|
||
logout($sel);
|
||
|
||
# Do not use file_bug_in_product() because our goal here is not to file
|
||
# a bug but to check what is present in the UI, and also to make sure
|
||
# that we get exactly the right page with the right information.
|
||
#
|
||
# The admin is not a member of the "QA‑Selenium‑TEST" group, and so
|
||
# cannot see the "QA‑Selenium‑TEST" product.
|
||
|
||
log_in($sel, $config, 'unprivileged');
|
||
$sel->click_ok("link=New");
|
||
$sel->wait_for_page_to_load_ok(WAIT_TIME);
|
||
$sel->title_is("Select Classification");
|
||
my $full_text = trim($sel->get_body_text());
|
||
_ok($full_text =~ /All: Show all products/, "The 'All' link is displayed");
|
||
$sel->click_ok("link=All");
|
||
$sel->wait_for_page_to_load_ok(WAIT_TIME);
|
||
$sel->title_is("Enter Bug");
|
||
_ok(!$sel->is_text_present("QA-Selenium-TEST"), "The QA-Selenium-TEST product is not displayed");
|
||
logout($sel);
|
||
|
||
# Same steps, but for a member of the "QA‑Selenium‑TEST" group.
|
||
# The "QA‑Selenium‑TEST" product must be visible to him.
|
||
|
||
log_in($sel, $config, 'QA_Selenium_TEST');
|
||
$sel->click_ok("link=New");
|
||
$sel->wait_for_page_to_load_ok(WAIT_TIME);
|
||
$sel->title_is("Select Classification");
|
||
$sel->click_ok("link=All");
|
||
$sel->wait_for_page_to_load_ok(WAIT_TIME);
|
||
$sel->title_is("Enter Bug");
|
||
$sel->is_text_present_ok("QA-Selenium-TEST");
|
||
# For some unknown reason, Selenium doesn't like hyphens in links.
|
||
$sel->click_ok("link=regexp:.*QA.Selenium.TEST.*");
|
||
#$sel->click_ok('//a[contains(@href, "QA-Selenium-TEST")]'); # this is incorrect for user QA-Selenium-TEST, this will click on "My Requests" link
|
||
$sel->wait_for_page_to_load_ok(WAIT_TIME);
|
||
$sel->title_is("Enter Bug: QA-Selenium-TEST");
|
||
logout($sel);
|