view release on metacpan or  search on metacpan

t/02-charset.t  view on Meta::CPAN

use Acme::KeyboardMarathon;
use Data::Dumper;
use Test::Simple tests => 98;
use warnings;
use strict;

my $ak = new Acme::KeyboardMarathon;

ok( $ak->{k}->{"\t"} == 255, '\t should be 255, but is ' . $ak->{k}->{"\t"});
ok( $ak->{k}->{"\n"} == 425, '\n should be 425, but is ' . $ak->{k}->{"\n"});
ok( $ak->{k}->{"\r"} ==   0, '\r should be 0, but is '   . $ak->{k}->{"\r"});
ok( $ak->{k}->{' '}  ==  25, '  should be 25, but is '   . $ak->{k}->{' '} );
ok( $ak->{k}->{'!'}  == 625, '! should be 625, but is '  . $ak->{k}->{'!'} );
ok( $ak->{k}->{'"'}  == 425, '" should be 425, but is '  . $ak->{k}->{'"'} );
ok( $ak->{k}->{'#'}  == 625, '# should be 625, but is '  . $ak->{k}->{'#'} );
ok( $ak->{k}->{'$'}  == 625, '$ should be 625, but is '  . $ak->{k}->{'$'} );
ok( $ak->{k}->{'%'}  == 625, '% should be 625, but is '  . $ak->{k}->{'%'} );
ok( $ak->{k}->{'&'}  == 625, '& should be 625, but is '  . $ak->{k}->{'&'} );
ok( $ak->{k}->{'\''} == 425, '\' should be 425, but is ' . $ak->{k}->{'\''});
ok( $ak->{k}->{'('}  == 625, '( should be 625, but is '  . $ak->{k}->{'('} );
ok( $ak->{k}->{')'}  == 625, ') should be 625, but is '  . $ak->{k}->{')'} );
ok( $ak->{k}->{'*'}  == 625, '* should be 625, but is '  . $ak->{k}->{'*'} );
ok( $ak->{k}->{'+'}  == 675, '+ should be 675, but is '  . $ak->{k}->{'+'} );
ok( $ak->{k}->{','}  == 225, ', should be 225, but is '  . $ak->{k}->{','} );
ok( $ak->{k}->{'-'}  == 425, '- should be 425, but is '  . $ak->{k}->{'-'} );
ok( $ak->{k}->{'.'}  == 225, '. should be 225, but is '  . $ak->{k}->{'.'} );
ok( $ak->{k}->{'/'}  == 225, '/ should be 225, but is '  . $ak->{k}->{'/'} );
ok( $ak->{k}->{'0'}  == 425, '0 should be 425, but is '  . $ak->{k}->{'0'} );
ok( $ak->{k}->{'1'}  == 425, '1 should be 425, but is '  . $ak->{k}->{'1'} );
ok( $ak->{k}->{'2'}  == 425, '2 should be 425, but is '  . $ak->{k}->{'2'} );
ok( $ak->{k}->{'3'}  == 425, '3 should be 425, but is '  . $ak->{k}->{'3'} );
ok( $ak->{k}->{'4'}  == 425, '4 should be 425, but is '  . $ak->{k}->{'4'} );
ok( $ak->{k}->{'5'}  == 425, '5 should be 425, but is '  . $ak->{k}->{'5'} );
ok( $ak->{k}->{'6'}  == 525, '6 should be 525, but is '  . $ak->{k}->{'6'} );
ok( $ak->{k}->{'7'}  == 425, '7 should be 425, but is '  . $ak->{k}->{'7'} );
ok( $ak->{k}->{'8'}  == 425, '8 should be 425, but is '  . $ak->{k}->{'8'} );
ok( $ak->{k}->{'9'}  == 425, '9 should be 425, but is '  . $ak->{k}->{'9'} );
ok( $ak->{k}->{':'}  == 225, ': should be 225, but is '  . $ak->{k}->{':'} );
ok( $ak->{k}->{';'}  ==  25, '; should be 25, but is '   . $ak->{k}->{';'} );
ok( $ak->{k}->{'<'}  == 425, '< should be 425, but is '  . $ak->{k}->{'<'} );
ok( $ak->{k}->{'='}  == 475, '= should be 475, but is '  . $ak->{k}->{'='} );
ok( $ak->{k}->{'>'}  == 425, '> should be 425, but is '  . $ak->{k}->{'>'} );
ok( $ak->{k}->{'?'}  == 425, '? should be 425, but is '  . $ak->{k}->{'?'} );
ok( $ak->{k}->{'@'}  == 625, '@ should be 625, but is '  . $ak->{k}->{'@'} );
ok( $ak->{k}->{'A'}  == 225, 'A should be 225, but is '  . $ak->{k}->{'A'} );
ok( $ak->{k}->{'B'}  == 575, 'B should be 575, but is '  . $ak->{k}->{'B'} );
ok( $ak->{k}->{'C'}  == 425, 'C should be 425, but is '  . $ak->{k}->{'C'} );
ok( $ak->{k}->{'D'}  == 225, 'D should be 225, but is '  . $ak->{k}->{'D'} );
ok( $ak->{k}->{'E'}  == 425, 'E should be 425, but is '  . $ak->{k}->{'E'} );
ok( $ak->{k}->{'F'}  == 225, 'F should be 225, but is '  . $ak->{k}->{'F'} );
ok( $ak->{k}->{'G'}  == 425, 'G should be 425, but is '  . $ak->{k}->{'G'} );
ok( $ak->{k}->{'H'}  == 425, 'H should be 425, but is '  . $ak->{k}->{'H'} );
ok( $ak->{k}->{'I'}  == 425, 'I should be 425, but is '  . $ak->{k}->{'I'} );
ok( $ak->{k}->{'J'}  == 225, 'J should be 225, but is '  . $ak->{k}->{'J'} );
ok( $ak->{k}->{'K'}  == 225, 'K should be 225, but is '  . $ak->{k}->{'K'} );
ok( $ak->{k}->{'L'}  == 225, 'L should be 225, but is '  . $ak->{k}->{'L'} );
ok( $ak->{k}->{'M'}  == 425, 'M should be 425, but is '  . $ak->{k}->{'M'} );
ok( $ak->{k}->{'N'}  == 425, 'N should be 425, but is '  . $ak->{k}->{'N'} );
ok( $ak->{k}->{'O'}  == 425, 'O should be 425, but is '  . $ak->{k}->{'O'} );
ok( $ak->{k}->{'P'}  == 425, 'P should be 425, but is '  . $ak->{k}->{'P'} );
ok( $ak->{k}->{'Q'}  == 425, 'Q should be 425, but is '  . $ak->{k}->{'Q'} );
ok( $ak->{k}->{'R'}  == 425, 'R should be 425, but is '  . $ak->{k}->{'R'} );