From 28425f2f6ecee736d64cf6a45a74dc4f4992edbd Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 12 Feb 2015 14:27:41 -0800 Subject: - Update for production URL - Use username/password for auth like other B:OP modules - Fix tests - Remove extraneous extra/ stuff in repo --- t/boilerplate.t | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 t/boilerplate.t (limited to 't/boilerplate.t') diff --git a/t/boilerplate.t b/t/boilerplate.t new file mode 100644 index 0000000..50696af --- /dev/null +++ b/t/boilerplate.t @@ -0,0 +1,49 @@ +#!perl -T + +use strict; +use warnings; +use Test::More 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]/, + ); +} + + 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/Business/OnlinePayment/vSecureProcessing.pm'); + -- cgit v1.2.1