Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -N -r1.10.2.15 -r1.10.2.16
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	21 Apr 2021 11:03:52 -0000	1.10.2.15
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	9 Sep 2021 13:48:26 -0000	1.10.2.16
@@ -11,6 +11,7 @@
     -procs {
         fs::add_file
         fs::publish_versioned_object_to_file_system
+        fs::get_file_package_id
     } \
     fs_publish_file {
 
@@ -41,6 +42,9 @@
                 where revision_id = :revision_id
             }]
 
+            aa_equals "Package id from the API and from the database are consistent" \
+                [fs::get_file_package_id -file_id $revision_id] $package_id
+
             set exported [fs::publish_versioned_object_to_file_system \
                               -object_id $item_id]