#============================================================= -*-perl-*-
#
# t/core/dump.t
#
# Test the Badger::Debug module.
#
# Written by Andy Wardley <abw@wardley.org>
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================
use strict;
use warnings;
use lib qw( ./lib ../lib ../../lib t/core/lib );
use Badger::Debug;
use Badger::Base;
use Badger::Test
tests => 1,
debug => 'Badger::Debug',
args => \@ARGV;
#-----------------------------------------------------------------------
# test dump methods
#-----------------------------------------------------------------------
package My::Badger::Base;
use base 'Badger::Base';
use Badger::Debug ':debug :dump';
sub init{
my ($self, $config) = @_;
@$self{ keys %$config } = values %$config;
return $self;
}
package My::Badger::One;
use base 'My::Badger::Base';
use Badger::Debug dumps => 'x y';
sub init{
my ($self, $config) = @_;
@$self{ keys %$config } = values %$config;
return $self;
}
package My::Badger::Two;
use base 'My::Badger::Base';
sub NOT_dumper {
my ($self, $indent) = @_;
$self->dump_hash($self,$indent,'-hidden');
}
package My::Badger::Tre;
use base 'My::Badger::Base';
use Badger::Debug ':dump';
package main;
my $one = My::Badger::One->new( x => 10, y => 20, secret => 'password' );
my $two = My::Badger::Two->new( pi => 3.142, e => 2.718, one => $one, hidden => 'treasure' );
my $tre = My::Badger::Tre->new(
two => $two,
person => {
name => 'Arthur Dent',
email => 'dent@tt2.org',
},
products => ['widget123', 'doodah99'],
);
my $text = $tre->dump;
#print $text;
like( $text, qr/one => \{\s+x => 10,\s+y => 20\s+\}/, 'partial dump of one' );