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

diff --git a/tests/testCocoonCodeGeneration.pl b/tests/testCocoonCodeGeneration.pl
index f5c97fd0e8c46e89823d717780706ccd597f33f3..4b45b81d6c07f2633a1c20f3cfcc85b295f9b8f2 100644 (file)
--- 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();
     #