Added tests for add_functionality()

lib/Devel/Examine/Subs.pm

@@ -240,7 +240,6 @@ sub add_functionality {
     $self->_config($p);
 
     my $to_add = $self->{params}{add_functionality};
-
     my $in_prod = $self->{params}{add_functionality_prod};
 
     my @allowed = qw(
@@ -304,6 +303,12 @@ sub add_functionality {
     }
 
     my $file = $dt{$to_add}->();
+    my $copy = $self->{params}{copy};
+
+    if ($copy) {
+        copy $file, $copy or die $!;
+        $file = $copy;
+    }
 
     my $des = Devel::Examine::Subs->new(
                                     file => $file,

t/02-file_extentions.t

@@ -33,7 +33,7 @@ use_ok( 'File::Edit::Portable' ) || print "Bail out!\n";
                 types => [qw(*.t)],
             );
 
-    is (@files, 54, "using *.t extension works properly");
+    is (@files, 57, "using *.t extension works properly");
 
     @files = $rw->dir(
                 dir => $dir,
@@ -49,7 +49,7 @@ use_ok( 'File::Edit::Portable' ) || print "Bail out!\n";
                 types => [qw(*.data *.t)],
             );
 
-    is (@files, 61, "using *.data and *.t extensions works properly");
+    is (@files, 64, "using *.data and *.t extensions works properly");
 
 }
 

t/50-add_func_engine.t

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dumper;
+use Devel::Examine::Subs;
+use File::Copy;
+use Test::More tests => 4;
+
+my $file = 't/sample.data';
+my $copy = 't/add_func_engine.data';
+
+my %params = (
+    file            => $file,
+    copy            => $copy,
+    post_proc       => [ 'file_lines_contain' ],
+    engine          => testing(),
+);
+
+#<des>
+sub testing {
+
+    return sub {
+
+        my $p = shift;
+        my $struct = shift;
+
+        return $struct;
+    };
+}
+#</des>
+
+my $install = 1; # set this to true to install
+
+if ($install) {
+    my $des = Devel::Examine::Subs->new(copy => $copy);
+    my $ret = $des->add_functionality(add_functionality => 'engine');
+    is ($ret, 1, "add_functionality engine succeeded");
+}
+else {
+    my $des = Devel::Examine::Subs->new(%params);
+    my $struct = $des->run(\%params);
+    print Dumper $struct;
+}
+
+open my $fh, '<', $copy or die $!;
+my @file = <$fh>;
+close $fh;
+
+is ((grep { $_ =~ /testing =>/ } @file), 1, "dt updated ok");
+is ((grep { $_ =~ /sub testing \{/ } @file), 1, "sub added ok");
+
+eval { unlink $copy or die $!; };
+is ($@, '', "temp file removed ok");

t/51-add_func_preproc.t

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dumper;
+use Devel::Examine::Subs;
+use File::Copy;
+use Test::More tests => 4;
+
+my $file = 't/sample.data';
+my $copy = 't/add_func_preproc.data';
+
+my %params = (
+    file            => $file,
+    copy            => $copy,
+    post_proc       => [ 'file_lines_contain' ],
+    engine          => testing(),
+);
+
+#<des>
+sub testing {
+
+    return sub {
+
+        my $p = shift;
+        my $struct = shift;
+
+        return $struct;
+    };
+}
+#</des>
+
+my $install = 1; # set this to true to install
+
+if ($install) {
+    my $des = Devel::Examine::Subs->new(copy => $copy);
+    my $ret = $des->add_functionality(add_functionality => 'pre_proc');
+    is ($ret, 1, "add_functionality pre_proc succeeded");
+}
+else {
+    my $des = Devel::Examine::Subs->new(%params);
+    my $struct = $des->run(\%params);
+    print Dumper $struct;
+}
+
+open my $fh, '<', $copy or die $!;
+my @file = <$fh>;
+close $fh;
+
+is ((grep { $_ =~ /testing =>/ } @file), 1, "dt updated ok");
+is ((grep { $_ =~ /sub testing \{/ } @file), 1, "sub added correctly");
+
+eval { unlink $copy or die $!; };
+is ($@, '', "temp file removed ok");

t/52-add_func_postproc.t

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Data::Dumper;
+use Devel::Examine::Subs;
+use File::Copy;
+use Test::More tests => 4;
+
+my $file = 't/sample.data';
+my $copy = 't/add_func_postproc.data';
+
+my %params = (
+    file            => $file,
+    copy            => $copy,
+    post_proc       => [ 'file_lines_contain' ],
+    engine          => testing(),
+);
+
+#<des>
+sub testing {
+
+    return sub {
+
+        my $p = shift;
+        my $struct = shift;
+
+        return $struct;
+    };
+}
+#</des>
+
+my $install = 1; # set this to true to install
+
+if ($install) {
+    my $des = Devel::Examine::Subs->new(copy => $copy);
+    my $ret = $des->add_functionality(add_functionality => 'post_proc');
+    is ($ret, 1, "add_functionality post_proc succeeded");
+}
+else {
+    my $des = Devel::Examine::Subs->new(%params);
+    my $struct = $des->run(\%params);
+    print Dumper $struct;
+}
+
+open my $fh, '<', $copy or die $!;
+my @file = <$fh>;
+close $fh;
+
+is ((grep { $_ =~ /testing =>/ } @file), 1, "dt updated ok");
+is ((grep { $_ =~ /sub testing \{/ } @file), 1, "sub added correctly");
+
+eval { unlink $copy or die $!; };
+is ($@, '', "temp file removed ok");

t/__clean.t

@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 30;
+use Test::More tests => 36;
 use File::Copy qw(copy);
 
 BEGIN {#1
@@ -36,6 +36,9 @@ my @files_to_delete = qw(
     t/post_proc_dump.debug
     t/pre_proc_dump.debug
     t/remove.data
+    t/add_func_engine.data
+    t/add_func_postproc.data
+    t/add_func_preproc.data
 );
 my @bak_glob = <*.bak>;