diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2021-02-07 01:50:18 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2021-02-07 01:50:18 +1300 |
commit | e7a405464cd8102314c94b8984d509c4029792d6 (patch) | |
tree | dc352abee450425bc878a1ef485a8f7a1852a90b /xt | |
download | POE-Component-Client-WebSocket-e7a405464cd8102314c94b8984d509c4029792d6.tar.gz POE-Component-Client-WebSocket-e7a405464cd8102314c94b8984d509c4029792d6.zip |
Commit v0.27 as found on CPANv0.27
I couldn't find the upstream for this; if I can get in contact with the
author, I'll re-patch my work over the top.
Diffstat (limited to 'xt')
-rw-r--r-- | xt/boilerplate.t | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/xt/boilerplate.t b/xt/boilerplate.t new file mode 100644 index 0000000..5f988aa --- /dev/null +++ b/xt/boilerplate.t @@ -0,0 +1,57 @@ +#!perl -T +use 5.006; +use strict; +use warnings; +use Test::More; + +plan tests => 3; + +sub not_in_file_ok { + my ($filename, %regex) = @_; + open( my $fh, '<', $filename ) + or die "couldn't open $filename for reading: $!"; + + my %violated; + + while (my $line = <$fh>) { + while (my ($desc, $regex) = each %regex) { + if ($line =~ $regex) { + push @{$violated{$desc}||=[]}, $.; + } + } + } + + if (%violated) { + fail("$filename contains boilerplate text"); + diag "$_ appears on lines @{$violated{$_}}" for keys %violated; + } else { + pass("$filename contains no boilerplate text"); + } +} + +sub module_boilerplate_ok { + my ($module) = @_; + not_in_file_ok($module => + 'the great new $MODULENAME' => qr/ - The great new /, + 'boilerplate description' => qr/Quick summary of what the module/, + 'stub function definition' => qr/function[12]/, + ); +} + +TODO: { + local $TODO = "Need to replace the boilerplate text"; + + not_in_file_ok(README => + "The README is used..." => qr/The README is used/, + "'version information here'" => qr/to provide version information/, + ); + + not_in_file_ok(Changes => + "placeholder date/time" => qr(Date/time) + ); + + module_boilerplate_ok('lib/POE/Component/Client/WebSocket.pm'); + + +} + |