List-Enumerator

 view release on metacpan or  search on metacpan

inc/Test/Base.pm  view on Meta::CPAN

sub filter_arguments() {
    $Test::Base::Filter::arguments;
}

sub have_text_diff {
    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
         not defined $expected or
         $actual eq $expected or 
         not($self->have_text_diff) or 
         $expected !~ /\n./s
    ) {

t/01_base.t  view on Meta::CPAN

use base qw/Test::Class/;
use Test::More;
use Test::Exception;

use lib "lib";
use List::Enumerator qw/E/;
use List::Enumerator::Array;
use List::Enumerator::Sub;

use Data::Dumper;
sub p ($) { warn Dumper shift }

sub test_each : Test(3) {
	my $result = [];

	E(1, 2, 3)->each(sub {
		push @$result, $_;
	});
	is_deeply $result, [1, 2, 3];

	$result = [];

t/02_fizzbuzz.t  view on Meta::CPAN

use strict;
use Test::More tests => 1;

use lib "lib";
use List::Enumerator qw/E/;

use Data::Dumper;
sub p ($) { warn Dumper shift }

my $fizzbuzz =
	E(1)->countup
		->zip(
			E("", "", "Fizz")->cycle,
			E("", "", "", "", "Buzz")->cycle
		)
		->map(sub {
			my ($n, $fizz, $buzz) = @$_;
			$fizz . $buzz || $n;

t/03_fibonacci.t  view on Meta::CPAN

use strict;
use Test::More tests => 7;

use lib "lib";
use List::Enumerator qw/E/;

use Data::Dumper;
sub p ($) { warn Dumper shift }

sub fibonacci {
	my ($p, $i) = (0, 1);
	E(0, 1)->chain(E({
		next => sub {
			my $ret = $p + $i;
			$p = $i;
			$i = $ret;
			$ret;
		},

t/10_from_list-rubylike.t  view on Meta::CPAN

use Test::More;
# These tests are from List::RubyLike wrote by Naoya Ito.
# http://github.com/naoya/list-rubylike/tree/master
# use List::RubyLike;

use lib 'lib';

use List::Enumerator E => { -as => 'list' };
use Data::Dumper;
sub p ($) { warn Dumper shift }

#sub test_instance : Test(12) {
#	## class->new
#	my $list = [qw/foo bar baz/];
#	my $object = List::RubyLike->new($list);
#	ok $object;
#
#	isa_ok $object, 'List::RubyLike';
#	ok UNIVERSAL::isa($list, 'List::RubyLike');
#