view release on metacpan or  search on metacpan

t/Test/More.pm  view on Meta::CPAN

    #         &&
    #     undef

It's also useful in those cases where you are comparing numbers and
is()'s use of C<eq> will interfere:

    cmp_ok( $big_hairy_number, '==', $another_big_hairy_number );

=cut

sub cmp_ok($$$;$) {
    my $tb = Test::More->builder;

    $tb->cmp_ok(@_);
}


=item B<can_ok>

  can_ok($module, @methods);
  can_ok($object, @methods);

t/greek2num.t  view on Meta::CPAN

use lib 't';
use Test::More tests => 46;
use strict;
use utf8;
use warnings;
$^W=0;

eval 'use Convert::Number::Greek  "greek2num"';
ok($@ eq '');
sub greek2num($;$);

sub t($$) { is greek2num(shift), shift }

our $warnings;
$SIG{__WARN__} = sub {
	++ $warnings;
	#diag(shift);
};
t '  α   ', 1;
cmp_ok $warnings, '==', 0;
t ' β-', 2;
cmp_ok $warnings, '==', 1;