view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
t/05_xmltext.t view on Meta::CPAN
#sub XML::RSS::SimpleGen::DEBUG () {20}
use XML::RSS::SimpleGen;
print "# XML::RSS::SimpleGen version $XML::RSS::SimpleGen::VERSION\n";
sub z ($) { return XML::RSS::SimpleGen->xmlesc( $_[0] ) }
ok z "vis-à-vis Beyoncé's naïve papier-mâché résumé",
"vis-à-vis Beyoncé's naïve papier-mâché résumé";
ok z "This & That, N < 10, N > 2",
view release on metacpan or search on metacpan
use Time::Local;
my $E1970 = timegm(0,0,0,1,0,70);
ok 1;
print "# E1970 = $E1970 s (", scalar(gmtime($E1970)), ")\n";
sub t ($$) {
my $x = XML::RSS::Timing->new;
$x->use_exceptions(0);
my $out = $x->_iso_date_to_epoch( $_[0] );
$out = join '', "ERR(", $x->complaints, ")" unless defined $out;
return
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
t/10-xterm.pl view on Meta::CPAN
use blib "$FindBin::RealBin/..";
use XTerm::Conf qw(xterm_conf xterm_conf_string);
use Data::Dumper qw(Dumper);
use Test::More qw(no_plan);
sub S () { select undef, undef, undef, 0.4 }
my $file = shift;
my $term = $ENV{TERM} || '<unknown>';
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
lib/Zero/Emulator.pm view on Meta::CPAN
#Test::More->builder->output("/dev/null"); # Reduce number of confirmation messages during testing
my $debug = -e q(/home/phil/); # Assume debugging if testing locally
sub is_deeply;
sub ok($;$);
sub x {exit if $debug} # Stop if debugging.
Test::More->builder->output("/dev/null"); # Reduce number of confirmation messages during testing
=pod
view release on metacpan or search on metacpan
local/lib/perl5/MooseX/Has/Sugar.pm view on Meta::CPAN
sub ro() {
return ( 'is', 'ro' );
}
sub rw() {
return ( 'is', 'rw' );
}
view release on metacpan or search on metacpan
use URI'file;
$perl = find_perl_interpreter Probe'Perl;
# Helper functions
sub ls($) {
opendir my $dir, $_[0] or die "Can’t opendir $_[0]: $!";
my @list = grep !/^\./, readdir $dir;
closedir $dir or die "Can’t closedir $_[0]: $!";
@list;
}
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
eval { require Text::Diff; 1 } &&
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
lib/dtRdr/Logger.pm view on Meta::CPAN
$subtag MUST start with a #. If this is omitted, it will be changed.
=cut
sub L (@) {
my $class = caller;
my ($tag) = @_;
if(defined($tag) and $tag ne '') {
$tag =~ s/^#*/#/;
view release on metacpan or search on metacpan
makeppgraph view on Meta::CPAN
# basename or .exe in any dir depending on same .o file
sub exe($) { merge $_[0], '*', qr/(?:\.exe)?/, qr/\.o/ }
# Same name in different directories, like headers published to a central include dir.
sub x2($) { merge $_[0], '*2', '', '' }
package Mpp;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
cpan/Test-Simple/lib/Test2/Tools/Basic.pm view on Meta::CPAN
ok pass fail diag note todo skip
plan skip_all done_testing bail_out
};
use base 'Exporter';
sub ok($;$@) {
my ($bool, $name, @diag) = @_;
my $ctx = context();
$ctx->ok($bool, $name, \@diag);
$ctx->release;
return $bool ? 1 : 0;
view release on metacpan or search on metacpan
Math/Complex.pm view on Meta::CPAN
#
# i
#
# The number defined as i*i = -1;
#
sub i () {
return $i if ($i);
$i = bless {};
$i->{'cartesian'} = [0, 1];
$i->{'polar'} = [1, pip2];
$i->{c_dirty} = 0;
view release on metacpan or search on metacpan
lib/pler.pm view on Meta::CPAN
sub lib () {
catdir( curdir(), 'lib' );
}
sub t () {
catdir( curdir(), 't' );
}
sub xt () {
catdir( curdir(), 'xt' );
view release on metacpan or search on metacpan
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
my $ntests = 1;
sub ok( $ ) {
my $status = shift;
print "not " unless $status;
print "ok $ntests\n";
$ntests++;
}
view release on metacpan or search on metacpan
t/problems.t view on Meta::CPAN
my $test :shared = 2;
# Note that we can't use Test::More here, as we would need to call is()
# from within the DESTROY() function at global destruction time, and
# parts of Test::* may have already been freed by then
sub is($$$)
{
my ($got, $want, $desc) = @_;
lock($test);
if ($got ne $want) {
print("# EXPECTED: $want\n");
view release on metacpan or search on metacpan
use v6-alpha;
say '1..5';
sub ok($num) {
say "ok $num";
}
ok(1);
ok 2;
view release on metacpan or search on metacpan
inc/Test/Base.pm view on Meta::CPAN
$Text::Diff::VERSION >= 0.35 &&
$Algorithm::Diff::VERSION >= 1.15;
}
provides 'is';
sub is($$;$) {
(my ($self), @_) = find_my_self(@_);
my ($actual, $expected, $name) = @_;
local $Test::Builder::Level = $Test::Builder::Level + 1 unless $HAS_PROVIDER;
if ($ENV{TEST_SHOW_NO_DIFFS} or
not defined $actual or
view release on metacpan or search on metacpan
grab/Grab_XML.pm view on Meta::CPAN
Most of the options are fairly self-explanatory but this routine also
calls the XMLTV::Memoize module to look for a B<--cache> argument.
The functions memoized are those given by the C<cachables()> method.
=cut
sub go( $ ) {
my $pkg = shift;
XMLTV::Memoize::check_argv($pkg->cachables());
my ($opt_days,
$opt_help,
$opt_output,