diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/Test/Deep/Cmp.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/Test/Deep/Cmp.pm | 130 |
1 files changed, 130 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/Test/Deep/Cmp.pm b/Master/tlpkg/tlperl0/lib/Test/Deep/Cmp.pm new file mode 100755 index 00000000000..adc8ffb8b81 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/Test/Deep/Cmp.pm @@ -0,0 +1,130 @@ +use strict; +use warnings; + +package Test::Deep::Cmp; + +use overload + '&' => \&make_all, + '|' => \&make_any, + '""' => \&string, + fallback => 1, +; + +sub import +{ + my $pkg = shift; + + my $callpkg = caller(); + if ($callpkg =~ /^Test::Deep::/) + { + no strict 'refs'; + + push @{$callpkg."::ISA"}, $pkg; + } +} + +sub new +{ + my $pkg = shift; + + my $self = bless {}, $pkg; + + $self->init(@_); + return $self; +} + +sub init +{ +} + +sub make_all +{ + my ($e1, $e2) = @_; + + if (UNIVERSAL::isa($e1, "Test::Deep::All")) + { + $e1->add($e2); + return $e1; + } + elsif(UNIVERSAL::isa($e2, "Test::Deep::All")) + { + $e2->add($e1); + return $e2; + } + else + { + return Test::Deep::all($e1, $e2); + } +} + +sub make_any +{ + my ($e1, $e2) = @_; + + if (UNIVERSAL::isa($e1, "Test::Deep::Any")) + { + $e1->add($e2); + return $e1; + } + elsif(UNIVERSAL::isa($e2, "Test::Deep::Any")) + { + $e2->add($e1); + return $e2; + } + else + { + return Test::Deep::any($e1, $e2); + } +} + +sub cmp +{ + my ($a1, $a2, $rev) = @_; + + ($a1, $a2) = ($a2, $a1) if $rev; + + return (overload::StrVal($a1) cmp overload::StrVal($a2)); +} + +sub string +{ + my $self = shift; + + return overload::StrVal($self); +} + +sub render_stack +{ + my $self = shift; + my $var = shift; + + return $var; +} + +sub renderExp +{ + my $self = shift; + + return $self->renderGot($self->{val}); +} + +sub renderGot +{ + my $self = shift; + + return Test::Deep::render_val(@_); +} + +sub reset_arrow +{ + return 1; +} + +sub data +{ + my $self = shift; + + return $Test::Deep::Stack->getLast; +} + +1; |