Index: openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl,v
diff -u -r1.10.2.10 -r1.10.2.11
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	2 Sep 2022 08:31:53 -0000	1.10.2.10
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	2 Sep 2022 08:46:08 -0000	1.10.2.11
@@ -305,6 +305,12 @@
         aa_equals "Page contains exactly 11 scripts (body handlers are grouped together)" \
             [regsub -all "<script" $page {} _] 11
 
+        aa_true "There is a nonce declaration in the page " [regexp {nonce="\w*"} $page nonce]
+        if {[info exists nonce]} {
+            aa_equals "All nonces on the page are the same, one per script" \
+                [regsub -all $nonce $page {} _] 11
+        }
+
         aa_equals "Page contains only 1 handler per identifier" \
             [regsub -all __template::add_body_handler_script\[^2\] $page {} _] 1