Publish

1 files changed, 34 insertions, 0 deletions

diff --git a/vespaclient/src/perl/test/Generic/UseTest.pl b/vespaclient/src/perl/test/Generic/UseTest.pl
new file mode 100644
index 00000000000..d2c051d395a
--- /dev/null
+++ b/vespaclient/src/perl/test/Generic/UseTest.pl
@@ -0,0 +1,34 @@
+# Copyright 2016 Yahoo Inc. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root.
+#
+# That that all perl files use strict and warnings
+# 
+
+use Test::More;
+use TestUtils::VespaTest;
+
+use strict;
+use warnings;
+
+my @dirs = (
+    '../bin',
+    '../lib',
+    'Yahoo/Vespa/Mocks'
+);
+
+my $checkdirs = join(' ', @dirs);
+
+my @files = `find $checkdirs -name \\*.pm -or -name \\*.pl`;
+chomp @files;
+
+printTest "Checking " . (scalar @files) . " files for includes.\n";
+
+foreach my $file (@files) {
+    ok( system("cat $file | grep 'use strict;' >/dev/null") == 0,
+        "$file use strict" );
+    ok( system("cat $file | grep 'use warnings;' >/dev/null") == 0,
+        "$file use warnings" );
+}
+
+done_testing();
+
+exit(0);