28 lines
1.2 KiB
Perl
28 lines
1.2 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'shortcut';
|
|
zci is_cached => 1;
|
|
|
|
my $start = 'The shortcut for ';
|
|
my $link = '<a href="https://en.wikipedia.org/wiki/Table_of_keyboard_shortcuts">More at Wikipedia</a>';
|
|
my $first = 'Show desktop in Windows is ⊞ Win+D or⊞ Win+M (then use ⊞ Win+⇧ Shift+M to bring back all windows)';
|
|
my $second = 'New folder in KDE/GNOME is Ctrl+⇧ Shift+N';
|
|
my $third = "Paste contents of clipboard at cursor is:\nWindows: Ctrl+V, or ⇧ Shift+Ins\nMac OS: ⌘ Cmd+V\nKDE/GNOME: Ctrl+V";
|
|
my $fourth = "Paste special is:\nWindows: Ctrl+Alt+V\nKDE/GNOME: Ctrl+⇧ Shift+V";
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::Shortcut
|
|
)],
|
|
'windows show desktop shortcut' => test_zci($start . $first, html => $start . $first ." \n" . $link),
|
|
'ubuntu shortcut new folder' => test_zci($start . $second, html => $start . $second . " \n" . $link),
|
|
'paste keyboard shortcut' => test_zci($start . $third, html => $start . $third . " \n" . $link),
|
|
'paste special shortcut' => test_zci($start . $fourth, html => $start . $fourth . " \n" . $link)
|
|
);
|
|
|
|
done_testing;
|