view release on metacpan or  search on metacpan

t/yoda.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
use strict;
 
use lib qw( ./lib/ );
use Acme::Yoda;
use Test::More tests => 16;
 
 
ok(my $yoda = Acme::Yoda->new(),           'Create Yoda object');
isa_ok($yoda,'Acme::Yoda',                 '... object ');
my $sentence   = 'I am ok';
my $translated = 'Ok I am';
ok(my $rtn = $yoda->yoda($sentence),       '... translate');
is($rtn,$translated,                       '... does translation match');