view release on metacpan or  search on metacpan

t/03-basic.t  view on Meta::CPAN

#!/usr/bin/env perl -w
# CAVEAT EMPTOR: This file is UTF8 encoded (BOM-less)
# Burak Gürsoy <burak[at]cpan[dot]org>
use strict;
use warnings;
use vars qw( $HIRES $BENCH $BENCH2 );
use Carp qw(croak);
use constant LEGACY_PERL  => $] <  5.006;
use constant UNICODE_PERL => $] >= 5.008;

BEGIN {
   if ( LEGACY_PERL ) {

t/04-locale.t  view on Meta::CPAN

#!/usr/bin/env perl -w
# CAVEAT EMPTOR: This file is UTF8 encoded (BOM-less)
# Burak Gürsoy <burak[at]cpan[dot]org>
use strict;
use warnings;
use utf8;
use constant TEST_NUM => 42;
use Test::More qw( no_plan );
use Lingua::Any::Numbers qw( :std +locale );

ok( to_string(  TEST_NUM ), 'We got a string from global locale' );
ok( to_ordinal( TEST_NUM ), 'We got an ordinal from global locale' );