Added comment-spelling.t

Author: nigelhorne

.github/workflows/dashboard.yml

@@ -34,7 +34,7 @@ jobs:
       - name: Update Ubuntu Packages
         run: |
           sudo apt-get update
-          sudo apt-get -y upgrade
+          # sudo apt-get -y upgrade
           sudo ntpdate -u pool.ntp.org
         if: runner.os == 'Linux'
 
@@ -95,11 +95,13 @@ jobs:
           # ls -t coverage_history/*.json | tail -n +31 | xargs rm -f
 
       - name: Commit coverage snapshot
-        uses: EndBug/add-and-commit@v9
-        with:
-          author_name: GitHub Actions
-          author_email: github-actions@github.com
-          message: "Add coverage snapshot for ${{ steps.timestamp.outputs.date }} (${{ steps.sha.outputs.short }})"
+        run: |
+          git config user.name "GitHub Actions"
+          git config user.email "github-actions@github.com"
+          git add coverage_history/
+          git commit -m "Add coverage snapshot for $TIMESTAMP ($SHA)" || echo "No changes to commit"
+          git pull --rebase
+          git push origin HEAD:${{ github.ref_name }}
 
       # Deploy HTML report to GitHub Pages
       - name: Publish coverage report

MANIFEST

@@ -9,11 +9,13 @@ Makefile.PL
 MANIFEST			This list of files
 MANIFEST.SKIP
 README.md
+scripts/generate_index.pl
 t/30-basics.t
 t/40-advanced.t
 t/advanced-features.t
 t/advanced_regex.t
 t/cli.t
+t/comment-spelling.t
 t/eof.t
 t/eol.t
 t/generate-many.t

bin/cookbook

@@ -311,8 +311,8 @@ print "\n";
 # Example 6.2: VIN-like numbers
 print "6.2 VIN-style identifiers (simplified):\n";
 {
-    my $gen = Data::Random::String::Matches->new(qr/[A-HJ-NPR-Z0-9]{17}/);
-    print "  ", $gen->generate(), "\n" for (1..2);
+	my $gen = Data::Random::String::Matches->new(qr/[A-HJ-NPR-Z0-9]{17}/);
+	print '  ', $gen->generate(), "\n" for (1..2);
 }
 print "\n";
 

t/comment-spelling.t

@@ -0,0 +1,22 @@
+#!usr/bin/env perl
+
+use 5.006;
+use strict;
+use warnings;
+
+use Test::DescribeMe qw(author);
+use Test::Most;
+use Test::Needs { 'Test::Spelling::Comment' => '0.002' };
+
+Test::Spelling::Comment->import();
+Test::Spelling::Comment->new()->add_stopwords(<DATA>)->all_files_ok();
+
+__DATA__
+CVV
+env
+HH
+SKUs
+TODO
+VIN
+usr
+YYYY

t/generate.t

@@ -10,7 +10,7 @@ like(Data::Random::String::Matches->create_random_string(length => 10, regex =>
 
 subtest 'create_random_string compatibility' => sub {
 	my $str = Data::Random::String::Matches->create_random_string(
-		length => 3, 
+		length => 3,
 		regex => '\d{3}'
 	);
 	like($str, qr/^\d{3}$/, 'create_random_string works');