Skip to content

Commit

Permalink
added debug log
Browse files Browse the repository at this point in the history
  • Loading branch information
xaicron committed Oct 22, 2011
1 parent 499df27 commit a41901f
Show file tree
Hide file tree
Showing 6 changed files with 29 additions and 0 deletions.
3 changes: 3 additions & 0 deletions t/02_driver/data-dumper.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,9 @@ use warnings;
use Test::Requires 'Data::Dumper';
use Data::Encoder::Data::Dumper;
use Test::More;
use t::Util;

show_version('Data::Dumper');

subtest 'simple' => sub {
my $encoder = Data::Encoder::Data::Dumper->new;
Expand Down
3 changes: 3 additions & 0 deletions t/02_driver/data-messagepack.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,9 @@ use warnings;
use Test::Requires 'Data::MessagePack';
use Data::Encoder::Data::MessagePack;
use Test::More;
use t::Util;

show_version('Data::MessagePack');

subtest 'simple' => sub {
my $encoder = Data::Encoder::Data::MessagePack->new;
Expand Down
3 changes: 3 additions & 0 deletions t/02_driver/json.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,9 @@ use warnings;
use Test::Requires 'JSON';
use Data::Encoder::JSON;
use Test::More;
use t::Util;

show_version('JSON');

subtest 'simple' => sub {
my $encoder = Data::Encoder::JSON->new;
Expand Down
3 changes: 3 additions & 0 deletions t/02_driver/storable.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,9 @@ use warnings;
use Test::Requires 'Storable';
use Data::Encoder::Storable;
use Test::More;
use t::Util;

show_version('Storable');

subtest 'simple' => sub {
my $encoder = Data::Encoder::Storable->new;
Expand Down
3 changes: 3 additions & 0 deletions t/02_driver/yaml.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,6 +3,9 @@ use warnings;
use Test::Requires 'YAML';
use Data::Encoder::YAML;
use Test::More;
use t::Util;

show_version('YAML');

subtest 'simple' => sub {
my $encoder = Data::Encoder::YAML->new;
Expand Down
14 changes: 14 additions & 0 deletions t/Util.pm
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
package t::Util;
use strict;
use warnings;
use base 'Exporter';
use Test::More;

our @EXPORT = qw(show_version);

sub show_version {
my $module = shift;
diag "$module: ", $module->VERSION;
}

1;

0 comments on commit a41901f

Please sign in to comment.