view release on metacpan or  search on metacpan

t/yoda.t  view on Meta::CPAN

#!/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');