doc: Move Commentary above module definition.

Merges: https://codeberg.org/guix/guix/pulls/9052
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>

5 files changed, 37 insertions, 37 deletions

diff --git a/gnu/tests/image.scm b/gnu/tests/image.scm
index be6852cae0a..3e7629c3b68 100644
--- a/gnu/tests/image.scm
+++ b/gnu/tests/image.scm
@@ -16,6 +16,17 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; This module provides tests for the image creation process that is
+;;; performed by "genimage" under the hood.
+;;;
+;;; The image partitionment is checked using Guile-Parted.  The content of the
+;;; images is out of the scope of this module.  Other test modules such as
+;;; (gnu tests installation) make sure that the produced images are viable.
+;;;
+;;; Code:
+
 (define-module (gnu tests image)
   #:use-module (gnu)
   #:use-module (gnu image)
@@ -30,17 +41,6 @@
   #:use-module (ice-9 format)
   #:export (%test-images))
 
-;;; Commentary:
-;;;
-;;; This module provides tests for the image creation process that is
-;;; performed by "genimage" under the hood.
-;;;
-;;; The image partitionment is checked using Guile-Parted.  The content of the
-;;; images is out of the scope of this module.  Other test modules such as
-;;; (gnu tests installation) make sure that the produced images are viable.
-;;;
-;;; Code:
-
 ;; A dummy initializer creating a simple file in the partition.
 (define dummy-initializer
   #~(lambda* (root . rest)
diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 91ab59ce8d2..2c336ce4e94 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -21,6 +21,13 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; Test the installation of Guix using the documented approach at the
+;;; command line.
+;;;
+;;; Code:
+
 (define-module (gnu tests install)
   #:use-module (gnu)
   #:use-module (gnu bootloader extlinux)
@@ -89,13 +96,6 @@
             %test-gui-installed-os-encrypted
             %test-gui-installed-desktop-os-encrypted))
 
-;;; Commentary:
-;;;
-;;; Test the installation of Guix using the documented approach at the
-;;; command line.
-;;;
-;;; Code:
-
 (define-os-with-source (%minimal-os %minimal-os-source)
   ;; The OS we want to install.
   (use-modules (gnu) (gnu tests) (srfi srfi-1))
diff --git a/gnu/tests/linux-modules.scm b/gnu/tests/linux-modules.scm
index 69cb0132670..8f4d79445bd 100644
--- a/gnu/tests/linux-modules.scm
+++ b/gnu/tests/linux-modules.scm
@@ -19,6 +19,12 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; Test <operating-system> kernel-loadable-modules.
+;;;
+;;; Code:
+
 (define-module (gnu tests linux-modules)
   #:use-module (gnu packages linux)
   #:use-module (gnu services)
@@ -40,12 +46,6 @@
             %test-loadable-kernel-modules-service-1
             %test-loadable-kernel-modules-service-2))
 
-;;; Commentary:
-;;;
-;;; Test <operating-system> kernel-loadable-modules.
-;;;
-;;; Code:
-
 (define* (modules-loaded?-program os modules)
   "Return an executable store item that, upon being evaluated, will verify
 that MODULES are actually loaded."
diff --git a/gnu/tests/package-management.scm b/gnu/tests/package-management.scm
index c5102fff74d..869494b7e11 100644
--- a/gnu/tests/package-management.scm
+++ b/gnu/tests/package-management.scm
@@ -16,6 +16,12 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; This module provides a test definition for the nix-daemon
+;;;
+;;; Code:
+
 (define-module (gnu tests package-management)
   #:use-module (gnu packages base)
   #:use-module (gnu packages package-management)
@@ -29,12 +35,6 @@
   #:use-module (guix packages)
   #:export (%test-nix))
 
-;;; Commentary:
-;;;
-;;; This module provides a test definition for the nix-daemon
-;;;
-;;; Code:
-
 (define* (run-nix-test name test-os)
   "Run tests in TEST-OS, which has nix-daemon running."
   (define os
diff --git a/gnu/tests/reconfigure.scm b/gnu/tests/reconfigure.scm
index 77cbe16a9ca..1ffb75ad2ac 100644
--- a/gnu/tests/reconfigure.scm
+++ b/gnu/tests/reconfigure.scm
@@ -17,6 +17,13 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; Commentary:
+;;;
+;;; Test in-place system reconfiguration: advancing the system generation on a
+;;; running instance of the Guix System.
+;;;
+;;; Code:
+
 (define-module (gnu tests reconfigure)
   #:use-module (gnu bootloader)
   #:use-module (gnu services)
@@ -38,13 +45,6 @@
             %test-upgrade-kexec
             %test-install-bootloader))
 
-;;; Commentary:
-;;;
-;;; Test in-place system reconfiguration: advancing the system generation on a
-;;; running instance of the Guix System.
-;;;
-;;; Code:
-
 (define* (run-switch-to-system-test)
   "Run a test of an OS running SWITCH-SYSTEM-PROGRAM, which creates a new
 generation of the system profile."