File: 01symname.t

package info (click to toggle)
libterm-termkey-perl 0.19-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 232 kB
  • sloc: perl: 370; makefile: 5
file content (21 lines) | stat: -rw-r--r-- 392 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl

use v5.14;
use warnings;

use Test2::V0;

use Term::TermKey;

my $tk = Term::TermKey->new_abstract( "vt100", 0 );

defined $tk or die "Cannot create termkey instance";

# We know 'Space' ought to exist
my $sym = $tk->keyname2sym( 'Space' );

ok( defined $sym, "defined keyname2sym('Space')" );

is( $tk->get_keyname( $sym ), 'Space', "get_keyname eq Space" );

done_testing;