Admin

name	type	size	perms	modified	actions
[parent directory]
Array.pm	file	8,258 B	0644	2024-06-05 15:11:29	edit
Bag.pm	file	5,544 B	0644	2024-06-05 15:11:29	edit
Base.pm	file	5,741 B	0644	2024-06-05 15:11:29	edit
Bool.pm	file	1,868 B	0644	2024-06-05 15:11:29	edit
Custom.pm	file	3,480 B	0644	2024-06-05 15:11:29	edit
DeepRef.pm	file	1,990 B	0644	2024-06-05 15:11:29	edit
Delta.pm	file	14,063 B	0644	2024-06-05 15:11:29	edit
Event.pm	file	1,352 B	0644	2024-06-05 15:11:29	edit
EventMeta.pm	file	1,658 B	0644	2024-06-05 15:11:29	edit
Float.pm	file	4,078 B	0644	2024-06-05 15:11:29	edit
Hash.pm	file	5,884 B	0644	2024-06-05 15:11:29	edit
Isa.pm	file	1,685 B	0644	2024-06-05 15:11:29	edit
Meta.pm	file	3,519 B	0644	2024-06-05 15:11:29	edit
Negatable.pm	file	2,256 B	0644	2024-06-05 15:11:29	edit
Number.pm	file	3,186 B	0644	2024-06-05 15:11:29	edit
Object.pm	file	6,226 B	0644	2024-06-05 15:11:29	edit
OrderedSubset.pm	file	3,471 B	0644	2024-06-05 15:11:29	edit
Pattern.pm	file	1,713 B	0644	2024-06-05 15:11:29	edit
Ref.pm	file	1,965 B	0644	2024-06-05 15:11:29	edit
Regex.pm	file	1,558 B	0644	2024-06-05 15:11:29	edit
Scalar.pm	file	2,043 B	0644	2024-06-05 15:11:29	edit
Set.pm	file	2,976 B	0644	2024-06-05 15:11:29	edit
String.pm	file	1,830 B	0644	2024-06-05 15:11:29	edit
Undef.pm	file	1,300 B	0644	2024-06-05 15:11:29	edit
Wildcard.pm	file	1,159 B	0644	2024-06-05 15:11:29	edit

editing: OrderedSubset.pm

package Test2::Compare::OrderedSubset;
use strict;
use warnings;

use base 'Test2::Compare::Base';

our $VERSION = '0.000163';

use Test2::Util::HashBase qw/inref items/;

use Carp qw/croak/;
use Scalar::Util qw/reftype/;

sub init {
    my $self = shift;

if(my $ref = $self->{+INREF}) {
        croak "Cannot specify both 'inref' and 'items'" if $self->{+ITEMS};
        croak "'inref' must be an array reference, got '$ref'" unless reftype($ref) eq 'ARRAY';
        $self->{+ITEMS} = [@{$self->{+INREF}}];
    }

$self->{+ITEMS} ||= [];

$self->SUPER::init();
}

sub name { '<ORDERED SUBSET>' }

sub verify {
    my $self = shift;
    my %params = @_;

return 0 unless $params{exists};
    defined( my $got = $params{got} ) || return 0;
    return 0 unless ref($got);
    return 0 unless reftype($got) eq 'ARRAY';
    return 1;
}

sub add_item {
    my $self = shift;
    my $check = pop;

push @{$self->{+ITEMS}} => $check;
}

sub deltas {
    my $self = shift;
    my %params = @_;
    my ($got, $convert, $seen) = @params{qw/got convert seen/};

my @deltas;
    my $state = 0;
    my $items = $self->{+ITEMS};

my $idx = 0;

for my $item (@$items) {
        my $check = $convert->($item);

my $i = $idx;
        my $found;
        while($i < @$got) {
            my $val = $got->[$i++];
            next if $check->run(
                id      => [ARRAY => $i],
                convert => $convert,
                seen    => $seen,
                exists  => 1,
                got     => $val,
            );

$idx = $i;
            $found++;
            last;
        }

next if $found;

push @deltas => Test2::Compare::Delta->new(
            verified => 0,
            id       => ['ARRAY', '?'],
            check    => $check,
            dne      => 'got',
        );
    }

return @deltas;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Compare::OrderedSubset - Internal representation of an ordered subset.

=head1 DESCRIPTION

This module is used to ensure an array has all the expected items int he
expected order. It ignores any unexpected items mixed into the array. It only
cares that all the expected values are present, and in order, everything else
is noise.

=head1 METHODS

=over 4

=item $ref = $arr->inref()

If the instance was constructed from an actual array, this will have the
reference to that array.

=item $arrayref = $arr->items()

=item $arr->set_items($arrayref)

All the expected items, in order.

=item $name = $arr->name()

Always returns the string C<< "<ORDERED SUBSET>" >>.

=item $bool = $arr->verify(got => $got, exists => $bool)

Check if C<$got> is an array reference or not.

=item $arr->add_item($item)

Add an item to the list of values to check.

=item @deltas = $arr->deltas(got => $got, convert => \&convert, seen => \%seen)

Find the differences between the expected array values and those in the C<$got>
arrayref.

=back

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut

cancel