Added new tests.

.gitignore

@@ -2,4 +2,3 @@
 *~
 *.swp
 test/test
-test/lock

INSTALL.md

@@ -1 +1,6 @@
 # pg_backrest installation
+
+## parameters
+
+## configuration
+

README.md

@@ -42,7 +42,9 @@ Simple Postgres Backup and Restore
 
 ## release notes
 
-### v0.20: ???
+### v0.30: ???
+
+* Complete rewrite of file module to use a custom protocol for remote operations and Perl native GZIP and SHA operations.  MORE???
 
 ### v0.19: Improved error reporting/handling
 

VERSION

@@ -1 +1 @@
-0.25
+0.30

lib/BackRest/Backup.pm

@@ -1,7 +1,7 @@
 ####################################################################################################################################
 # BACKUP MODULE
 ####################################################################################################################################
-package pg_backrest_backup;
+package BackRest::Backup;
 
 use threads;
 

lib/BackRest/Db.pm

@@ -1,7 +1,7 @@
 ####################################################################################################################################
 # DB MODULE
 ####################################################################################################################################
-package pg_backrest_db;
+package BackRest::Db;
 
 use threads;
 

lib/BackRest/File.pm

@@ -12,7 +12,6 @@ use Moose;
 use Net::OpenSSH;
 use IPC::Open3;
 use File::Basename;
-use IPC::System::Simple qw(capture);
 use Digest::SHA;
 use File::stat;
 use Fcntl ':mode';

lib/BackRest/Utility.pm

@@ -8,7 +8,6 @@ use threads;
 use strict;
 use warnings;
 use Carp;
-use IPC::System::Simple qw(capture);
 use Fcntl qw(:DEFAULT :flock);
 use File::Path qw(remove_tree);
 use File::Basename;

test/test.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 ####################################################################################################################################
-# test.pl - Unit Tests for Simple Postgres Backup and Restore
+# test.pl - BackRest Unit Tests
 ####################################################################################################################################
 
 ####################################################################################################################################
@@ -43,6 +43,38 @@ if ($strModuleTest ne 'all' && $strModule eq 'all')
     confess "--module must be provided for test \"${strModuleTest}\"";
 }
 
+####################################################################################################################################
+# Clean whitespace
+####################################################################################################################################
+# find .. -not \( -path ../.git -prune \) -not \( -path ../test/test -prune \) -not \( -iname ".DS_Store" \)
+
+####################################################################################################################################
+# Make sure version number matches in README.md and VERSION
+####################################################################################################################################
+my $hReadMe;
+my $strLine;
+my $bMatch = false;
+my $strVersion = version_get();
+
+if (!open($hReadMe, '<', dirname($0) . "/../README.md"))
+{
+    confess "unable to open README.md";
+}
+
+while ($strLine = readline($hReadMe))
+{
+    if ($strLine =~ /^\#\#\# v/)
+    {
+        $bMatch = substr($strLine, 5, length($strVersion)) eq $strVersion;
+        last;
+    }
+}
+
+if (!$bMatch)
+{
+    confess "unable to find version ${strVersion} as last revision in README.md";
+}
+
 ####################################################################################################################################
 # Runs tests
 ####################################################################################################################################