From: Will Budic <redacted>
Date: Sat, 29 Nov 2025 10:54:59 +0000 (+1100)
Subject: Implemented Cocoon CNF specific NOTES ccolumn compress and encrypt with blowfish.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;p=PerlCNF.git

Implemented Cocoon CNF specific NOTES ccolumn compress and encrypt with blowfish.
---

diff --git a/tests/testCocoonCodeGeneration.pl b/tests/testCocoonCodeGeneration.pl
index f5c97fd..4b45b81 100644
--- a/tests/testCocoonCodeGeneration.pl
+++ b/tests/testCocoonCodeGeneration.pl
@@ -37,8 +37,12 @@ use Syntax::Keyword::Try; try {
 
     my $idx = Cocoon::_getHeaderColumnIndexes($coco->getCocoonTable());
     $test->evaluate("Alias 'jspare' decrypted notes checks?",$row[$idx->{notes}],"Example 1 entry");
-
-
+    #I wonder what are the chances (one in two million?) it will generate an existing code, for the next to fail?
+    
+    open(my $fh, "<:perlio", $0 ) or  die  "Can't open $0 -> $!";
+           read $fh, my $content, -s $fh;
+        close   $fh;
+    $coco->register("Bubba Cuba", "cuba" , $coco->passCodeGenerate(), $content,undef);
     #
     $test->done();
     #