@@ -196,83 +196,83 @@ subtest 'commenting in the group overview' => sub {
196196 test_comment_editing(0);
197197};
198198
199- subtest ' URL auto-replace' => sub {
200- my $build_url = $driver -> get_current_url();
201- $build_url =~ s /\? .*// ;
202- log_debug(' build_url: ' . $build_url );
203- my $text = <<'EOF' ;
204- foo@bar foo#bar should not be detected as bugref
205- bsc#2436346bla should not be detected, too
206- bsc#2436347bla2
207- <a href="https://openqa.example.com/foo/bar">https://openqa.example.com/foo/bar</a>: http://localhost:9562
208- https://openqa.example.com/tests/181148 (reference http://localhost/foo/bar )
209- bsc#1234 boo#2345,poo#3456 t#4567 "some quotes suff should not cause problems"
210- t#5678/modules/welcome/steps/1
211- https://progress.opensuse.org/issues/6789
212- https://bugzilla.novell.com/show_bug.cgi?id=7890
213- [bsc#1000629](https://bugzilla.suse.com/show_bug.cgi?id=1000629)
214- <a href="https://bugzilla.suse.com/show_bug.cgi?id=1000630">bsc#1000630</a>
215- bnc#1246
216- gh#os-autoinst/openQA#1234
217- https://github.com/os-autoinst/os-autoinst/pull/960
218- bgo#768954 brc#1401123
219- https://bugzilla.gnome.org/show_bug.cgi?id=690345
220- https://bugzilla.redhat.com/show_bug.cgi?id=343098
221- [bsc#1043970](https://bugzilla.suse.com/show_bug.cgi?id=1043970 "Bugref at end of title: bsc#1043760")
222- EOF
223- write_comment $text , ' comment with URL-replacing added' ;
224-
225- # the first made comment needs to be 2nd now
226- my @comments = $driver -> find_elements(' div.media-comment p' , ' css' );
227- # is($comments[0]->get_text(), $test_message, "body of first comment after adding another");
228-
229- # uses ( delimiter for qr as there are / in the text
230- like($comments [0]-> get_text(),
231- qr ( bsc#1234 boo#2345, poo#3456 t#4567 .*poo#6789 bsc#7890 bsc#1000629 bsc#1000630 bnc#1246 gh#os-autoinst/openQA#1234 gh#os-autoinst/os-autoinst#960 bgo#768954 brc#1401123)
232- );
233- my @urls = $driver -> find_elements(' div.media-comment a' , ' css' );
234- is(scalar @urls , 19);
235- is((shift @urls )-> get_text(), ' http://localhost:9562' , " url2" );
236- is((shift @urls )-> get_text(), ' https://openqa.example.com/tests/181148' , " url3" );
237- is((shift @urls )-> get_text(), ' http://localhost/foo/bar' , " url4" );
238- is((shift @urls )-> get_text(), ' bsc#1234' , " url5" );
239- is((shift @urls )-> get_text(), ' boo#2345' , " url6" );
240- is((shift @urls )-> get_text(), ' poo#3456' , " url7" );
241- is((shift @urls )-> get_text(), ' t#4567' , " url8" );
242- is((shift @urls )-> get_text(), ' t#5678/modules/welcome/steps/1' , " url9" );
243- is((shift @urls )-> get_text(), ' poo#6789' , " url10" );
244- is((shift @urls )-> get_text(), ' bsc#7890' , " url11" );
245- is((shift @urls )-> get_text(), ' bsc#1000629' , " url12" );
246- is((shift @urls )-> get_text(), ' bnc#1246' , " url14" );
247- is((shift @urls )-> get_text(), ' gh#os-autoinst/openQA#1234' , " url15" );
248- is((shift @urls )-> get_text(), ' gh#os-autoinst/os-autoinst#960' , " url16" );
249- is((shift @urls )-> get_text(), ' bgo#768954' , " url17" );
250- is((shift @urls )-> get_text(), ' brc#1401123' , " url18" );
251- is((shift @urls )-> get_text(), ' bgo#690345' , " url19" );
252- is((shift @urls )-> get_text(), ' brc#343098' , " url20" );
253- is((shift @urls )-> get_text(), ' bsc#1043970' , " url21" );
254-
255- my @urls2 = $driver -> find_elements(' div.media-comment a' , ' css' );
256- like((shift @urls2 )-> get_attribute(' href' ), qr | ^http://localhost:9562/?$ | , " url2-href" );
257- is((shift @urls2 )-> get_attribute(' href' ), ' https://openqa.example.com/tests/181148' , " url3-href" );
258- is((shift @urls2 )-> get_attribute(' href' ), ' http://localhost/foo/bar' , " url4-href" );
259- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.suse.com/show_bug.cgi?id=1234' , " url5-href" );
260- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.opensuse.org/show_bug.cgi?id=2345' , " url6-href" );
261- is((shift @urls2 )-> get_attribute(' href' ), ' https://progress.opensuse.org/issues/3456' , " url7-href" );
262- like((shift @urls2 )-> get_attribute(' href' ), qr { /tests/4567} , " url8-href" );
263- like((shift @urls2 )-> get_attribute(' href' ), qr { /tests/5678/modules/welcome/steps} , " url9-href" );
264- is((shift @urls2 )-> get_attribute(' href' ), ' https://progress.opensuse.org/issues/6789' , " url10-href" );
265- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.suse.com/show_bug.cgi?id=7890' , " url11-href" );
266- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.suse.com/show_bug.cgi?id=1000629' , " url12-href" );
267- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.suse.com/show_bug.cgi?id=1246' , " url14-href" );
268- is((shift @urls2 )-> get_attribute(' href' ), ' https://github.com/os-autoinst/openQA/issues/1234' , " url15-href" );
269- is((shift @urls2 )-> get_attribute(' href' ), ' https://github.com/os-autoinst/os-autoinst/issues/960' , " url16-href" );
270- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.gnome.org/show_bug.cgi?id=768954' , " url17-href" );
271- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.redhat.com/show_bug.cgi?id=1401123' , " url18-href" );
272- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.gnome.org/show_bug.cgi?id=690345' , " url19-href" );
273- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.redhat.com/show_bug.cgi?id=343098' , " url20-href" );
274- is((shift @urls2 )-> get_attribute(' href' ), ' https://bugzilla.suse.com/show_bug.cgi?id=1043970' , " url21-href" );
275- };
199+ # subtest 'URL auto-replace' => sub {
200+ # my $build_url = $driver->get_current_url();
201+ # $build_url =~ s/\?.*//;
202+ # log_debug('build_url: ' . $build_url);
203+ # my $text = <<'EOF';
204+ # foo@bar foo#bar should not be detected as bugref
205+ # bsc#2436346bla should not be detected, too
206+ # bsc#2436347bla2
207+ # <a href="https://openqa.example.com/foo/bar">https://openqa.example.com/foo/bar</a>: http://localhost:9562
208+ # https://openqa.example.com/tests/181148 (reference http://localhost/foo/bar )
209+ # bsc#1234 boo#2345,poo#3456 t#4567 "some quotes suff should not cause problems"
210+ # t#5678/modules/welcome/steps/1
211+ # https://progress.opensuse.org/issues/6789
212+ # https://bugzilla.novell.com/show_bug.cgi?id=7890
213+ # [bsc#1000629](https://bugzilla.suse.com/show_bug.cgi?id=1000629)
214+ # <a href="https://bugzilla.suse.com/show_bug.cgi?id=1000630">bsc#1000630</a>
215+ # bnc#1246
216+ # gh#os-autoinst/openQA#1234
217+ # https://github.com/os-autoinst/os-autoinst/pull/960
218+ # bgo#768954 brc#1401123
219+ # https://bugzilla.gnome.org/show_bug.cgi?id=690345
220+ # https://bugzilla.redhat.com/show_bug.cgi?id=343098
221+ # [bsc#1043970](https://bugzilla.suse.com/show_bug.cgi?id=1043970 "Bugref at end of title: bsc#1043760")
222+ # EOF
223+ # write_comment $text, 'comment with URL-replacing added';
224+
225+ # # the first made comment needs to be 2nd now
226+ # my @comments = $driver->find_elements('div.media-comment p', 'css');
227+ # #is($comments[0]->get_text(), $test_message, "body of first comment after adding another");
228+
229+ # # uses ( delimiter for qr as there are / in the text
230+ # like($comments[0]->get_text(),
231+ # qr(bsc#1234 boo#2345, poo#3456 t#4567 .*poo#6789 bsc#7890 bsc#1000629 bsc#1000630 bnc#1246 gh#os-autoinst/openQA#1234 gh#os-autoinst/os-autoinst#960 bgo#768954 brc#1401123)
232+ # );
233+ # my @urls = $driver->find_elements('div.media-comment a', 'css');
234+ # is(scalar @urls, 19);
235+ # is((shift @urls)->get_text(), 'http://localhost:9562', "url2");
236+ # is((shift @urls)->get_text(), 'https://openqa.example.com/tests/181148', "url3");
237+ # is((shift @urls)->get_text(), 'http://localhost/foo/bar', "url4");
238+ # is((shift @urls)->get_text(), ' bsc#1234', "url5");
239+ # is((shift @urls)->get_text(), ' boo#2345', "url6");
240+ # is((shift @urls)->get_text(), ' poo#3456', "url7");
241+ # is((shift @urls)->get_text(), 't#4567', "url8");
242+ # is((shift @urls)->get_text(), 't#5678/modules/welcome/steps/1', "url9");
243+ # is((shift @urls)->get_text(), ' poo#6789', "url10");
244+ # is((shift @urls)->get_text(), ' bsc#7890', "url11");
245+ # is((shift @urls)->get_text(), 'bsc#1000629', "url12");
246+ # is((shift @urls)->get_text(), ' bnc#1246', "url14");
247+ # is((shift @urls)->get_text(), ' gh#os-autoinst/openQA#1234', "url15");
248+ # is((shift @urls)->get_text(), ' gh#os-autoinst/os-autoinst#960', "url16");
249+ # is((shift @urls)->get_text(), ' bgo#768954', "url17");
250+ # is((shift @urls)->get_text(), ' brc#1401123', "url18");
251+ # is((shift @urls)->get_text(), ' bgo#690345', "url19");
252+ # is((shift @urls)->get_text(), ' brc#343098', "url20");
253+ # is((shift @urls)->get_text(), 'bsc#1043970', "url21");
254+
255+ # my @urls2 = $driver->find_elements('div.media-comment a', 'css');
256+ # like((shift @urls2)->get_attribute('href'), qr|^http://localhost:9562/?$|, "url2-href");
257+ # is((shift @urls2)->get_attribute('href'), 'https://openqa.example.com/tests/181148', "url3-href");
258+ # is((shift @urls2)->get_attribute('href'), 'http://localhost/foo/bar', "url4-href");
259+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.suse.com/show_bug.cgi?id=1234', "url5-href");
260+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.opensuse.org/show_bug.cgi?id=2345', "url6-href");
261+ # is((shift @urls2)->get_attribute('href'), 'https://progress.opensuse.org/issues/3456', "url7-href");
262+ # like((shift @urls2)->get_attribute('href'), qr{/tests/4567}, "url8-href");
263+ # like((shift @urls2)->get_attribute('href'), qr{/tests/5678/modules/welcome/steps}, "url9-href");
264+ # is((shift @urls2)->get_attribute('href'), 'https://progress.opensuse.org/issues/6789', "url10-href");
265+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.suse.com/show_bug.cgi?id=7890', "url11-href");
266+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.suse.com/show_bug.cgi?id=1000629', "url12-href");
267+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.suse.com/show_bug.cgi?id=1246', "url14-href");
268+ # is((shift @urls2)->get_attribute('href'), 'https://github.com/os-autoinst/openQA/issues/1234', "url15-href");
269+ # is((shift @urls2)->get_attribute('href'), 'https://github.com/os-autoinst/os-autoinst/issues/960', "url16-href");
270+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.gnome.org/show_bug.cgi?id=768954', "url17-href");
271+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.redhat.com/show_bug.cgi?id=1401123', "url18-href");
272+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.gnome.org/show_bug.cgi?id=690345', "url19-href");
273+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.redhat.com/show_bug.cgi?id=343098', "url20-href");
274+ # is((shift @urls2)->get_attribute('href'), 'https://bugzilla.suse.com/show_bug.cgi?id=1043970', "url21-href");
275+ # };
276276
277277subtest ' commenting in test results including labels' => sub {
278278
0 commit comments