diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Test/Deep/RegexpMatches.pm')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/Test/Deep/RegexpMatches.pm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Test/Deep/RegexpMatches.pm b/Master/tlpkg/tlperl.straw/lib/Test/Deep/RegexpMatches.pm new file mode 100755 index 00000000000..ffee7698865 --- /dev/null +++ b/Master/tlpkg/tlperl.straw/lib/Test/Deep/RegexpMatches.pm @@ -0,0 +1,51 @@ +use strict; +use warnings; + +package Test::Deep::RegexpMatches; + +use Test::Deep::Array; + +use base 'Test::Deep::Array'; + +use Scalar::Util qw( blessed ); + +sub init +{ + my $self = shift; + + my $val = shift; + + $val = Test::Deep::array($val) unless + blessed($val) and UNIVERSAL::isa($val, "Test::Deep::Cmp"); + + $self->{val} = $val; + $self->{regex} = shift; +} + +sub descend +{ + my $self = shift; + + my $got = shift; + + return Test::Deep::descend($got, $self->{val}); +} + +sub render_stack +{ + my $self = shift; + + my $stack = shift; + + $stack = "[$stack =~ $self->{regex}]"; + + return $stack; +# return $self->SUPER::render_stack($stack); +} + +sub reset_arrow +{ + return 1; +} + +1; |