release v0.4

release v0.4

Author: potatogim

.travis.yml

@@ -50,5 +50,4 @@ install:
 
 script:
     - perl Makefile.PL
-    - make && make test TEST_VERBOSE=1
-#    - perl .TRAVIS.PL 2>&1
+    - make && make test TEST_VERBOSE=1 TEST_FUNCTION=1

Makefile.PL

@@ -24,6 +24,7 @@ WriteMakefile(
         'Carp'                   => 0,
         'Try::Tiny'              => 0,
         'File::Spec'             => 0,
+        'Scalar::Util::Numeric'  => 0,
         'List::MoreUtils'        => 0,
         'Moo'                    => 0,
         'Generator::Object'      => 0,

VERSION

@@ -1 +1 @@
-0.3
+0.4

lib/GlusterFS/GFAPI/FFI.pm

@@ -168,7 +168,7 @@ package GlusterFS::GFAPI::FFI;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;
@@ -450,7 +450,7 @@ GlusterFS::GFAPI::FFI - FFI Perl binding for GlusterFS libgfapi
 
 =head1 VERSION
 
-0.3
+0.4
 
 =head1 SYNOPSIS
 

lib/GlusterFS/GFAPI/FFI/Dir.pm

@@ -3,7 +3,7 @@ package GlusterFS::GFAPI::FFI::Dir;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;

lib/GlusterFS/GFAPI/FFI/DirEntry.pm

@@ -3,7 +3,7 @@ package GlusterFS::GFAPI::FFI::DirEntry;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;

lib/GlusterFS/GFAPI/FFI/File.pm

@@ -3,7 +3,7 @@ package GlusterFS::GFAPI::FFI::File;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;

lib/GlusterFS/GFAPI/FFI/Util.pm

@@ -3,7 +3,7 @@ package GlusterFS::GFAPI::FFI::Util;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;

lib/GlusterFS/GFAPI/FFI/Volume.pm

@@ -3,7 +3,7 @@ package GlusterFS::GFAPI::FFI::Volume;
 BEGIN
 {
     our $AUTHOR  = 'cpan:potatogim';
-    our $VERSION = '0.3';
+    our $VERSION = '0.4';
 }
 
 use strict;

perl-glusterfs-api.spec

@@ -4,7 +4,7 @@
 
 Name:           perl-glusterfs-api
 Summary:        Perl bindings for GlusterFS libgfapi
-Version:        0.3
+Version:        0.4
 Release:        1%{?dist}
 License:        GPLv2 or LGPLv3+
 Group:          System Environment/Libraries

t/00-api.t

@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use utf8;
 
+use Env;
 use POSIX           qw/:fcntl_h/;
 use Scalar::Util    qw/weaken/;
 use Test::Most;
@@ -20,6 +21,11 @@ use constant
 
 diag('00-api.t');
 
+if (!$ENV{TEST_FUNCTION})
+{
+    plan(skip_all => 'TEST_FUNCTION not enabled so it will be skipped');
+}
+
 use_ok('GlusterFS::GFAPI::FFI');
 
 my $api = GlusterFS::GFAPI::FFI->new();

t/01-unit.t

@@ -21,8 +21,8 @@ BEGIN
 use lib "$ROOTDIR/lib", "$ROOTDIR/t/lib";
 
 use TestFile;
-#use TestDir;
-#use TestVolume;
+use TestDir;
+use TestVolume;
 
 Test::Class->runtests;
 

t/lib/TestVolume.pm

@@ -2513,9 +2513,6 @@ sub test_copytree_success : Test(no_plan)
             , 'makedirs() called 1 + 3 times');
 
     # Assert that copystat() was called on source and destination dir
-    use Data::Dumper;
-    print Dumper($mock_info{copystat});
-
     my $called = 0;
     my $index  = 0;