upd.

diff --git a/ISC_License.md b/ISC_License.md
index ce5f5fc82715a2b6cb3b875880f194f13e1a4f0e..160e8becd51883a94ff0151a462f2b9ba6b86af4 100644 (file)
--- a/ISC_License.md
+++ b/ISC_License.md
@@ -1,4 +1,4 @@
-ISC License
+#ISC License
 
 Copyright (c) 2023 Will Budić
 
@@ -17,4 +17,4 @@ PERFORMANCE OF THIS SOFTWARE.
 https://choosealicense.com/licenses/isc/
 
 
-[EContactHash: 990MWWLWM8C2MI8K](https://github.com/wbudic/PerlCNF/blob/master/EContactHash.md)
+[EContactHash: 990MWWLWM8C2MI8K](EContactHash.md)

diff --git a/tests/testAppSettings.pl b/tests/testAppSettings.pl
index 07eb5c3d0336e9f6601d017740d73eddb5743de7..2058208437ce696947fac38c36d0a45026ec026c 100644 (file)
--- a/tests/testAppSettings.pl
+++ b/tests/testAppSettings.pl
@@ -35,14 +35,14 @@ use Syntax::Keyword::Try; try {
         my $config = $app_settings->global();
         $test -> isDefined("\$config global",$config);
 
-        my $app_name =  $app_settings->{APP_NAME};  # First Priority if exists and not overwriten.
+        my $app_name =  $app_settings->{APP_NAME};  # First Priority if exists and not overwritten.
         $test -> isDefined("\$app_name",$app_name);
 
     #
     $test->nextCase();
     #
 
-    $test->case("App settings values as per priorities by apperance in script or set as default.");
+    $test->case("App settings values as per priorities by appearance in script or set as default.");
 
     #
     my $gl__name  = $app_settings->global()->{APP_NAME}; #A constant. Second Priority if first doesn't exists.

diff --git a/tests/testSQLPostgres_on_elite.pl b/tests/testSQLPostgres_on_elite.pl
index ae9133c51e65423ff71cc7a63d2c23c1b3532c64..011c9525b0deb573e28d3e7f4398309adc00705e 100644 (file)
--- a/tests/testSQLPostgres_on_elite.pl
+++ b/tests/testSQLPostgres_on_elite.pl
@@ -30,18 +30,6 @@ try{
 
    #encode/decode text quotes and codes
 
-sub encodeQuotes{
-   my $ret = shift; $ret =~ s/\s*$//g; 
-   $ret =~ s/\"/\"\"/g; $ret =~ s/\'/\'\'/g; $ret =~ s/\\n/%/g; 
-   $ret =~ s/\\n/\\\\n/g;   
-   return $ret
-}
-sub decodeQuotes{
-   my $ret = shift; 
-   $ret =~ s/\"\"/\"/g; $ret =~ s/\'\'/\'/g; #$ret =~ s/\\\\/\\/g;
-   $ret =~ s/\\n/%/g;
-   return $ret
-}
 
    die $test->failed() if not $cnf = CNFParser->new(undef,{'%LOG'=>{console=>1}});
        $test->case("Passed new instance CNFParser.");