aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorroot <root@rbsd.ankarstrom.se>2021-04-24 00:56:05 +0000
committerroot <root@rbsd.ankarstrom.se>2021-04-24 01:11:06 +0000
commit72c681d3a16a706b0a3dd2b6dda95edcb4f78f51 (patch)
tree980d08083ae4e5208c85d54bd34f01457f721fb3 /t
parent5cfdae7ccf1eece314c381d8de52acd2aee7cff9 (diff)
downloadApache-Inject-72c681d3a16a706b0a3dd2b6dda95edcb4f78f51.tar.gz
Add Makefile, basic test
Diffstat (limited to 't')
-rwxr-xr-xt/SMOKE21
-rw-r--r--t/TEST.PL10
-rw-r--r--t/basic.t21
-rw-r--r--t/conf/extra.conf.in1
-rw-r--r--t/conf/extra.last.conf.in4
-rw-r--r--t/htdocs/foot.html2
-rw-r--r--t/htdocs/head.html2
7 files changed, 61 insertions, 0 deletions
diff --git a/t/SMOKE b/t/SMOKE
new file mode 100755
index 0000000..7b1d937
--- /dev/null
+++ b/t/SMOKE
@@ -0,0 +1,21 @@
+#!/usr/local/bin/perl
+# WARNING: this file is generated, do not edit
+# generated on Sat Apr 24 00:40:18 2021
+# 01: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1003
+# 02: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestConfig.pm:1095
+# 03: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestSmoke.pm:775
+# 04: /usr/local/lib/perl5/site_perl/mach/5.32/Apache/TestMM.pm:143
+# 05: Makefile.PL:12
+
+BEGIN { eval { require blib && blib->import; } }
+
+use strict;
+use warnings FATAL => 'all';
+
+use lib qw(
+ /root/prj/Apache-Inject
+);
+
+
+use Apache::TestSmoke;
+Apache::TestSmoke->new(@ARGV)->run; \ No newline at end of file
diff --git a/t/TEST.PL b/t/TEST.PL
new file mode 100644
index 0000000..6c1c41c
--- /dev/null
+++ b/t/TEST.PL
@@ -0,0 +1,10 @@
+#!perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use lib qw(lib);
+
+use Apache::TestRunPerl ();
+
+Apache::TestRunPerl->new->run(@ARGV);
diff --git a/t/basic.t b/t/basic.t
new file mode 100644
index 0000000..f6e289f
--- /dev/null
+++ b/t/basic.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestUtil;
+use Apache::TestRequest qw/GET_BODY/;
+
+plan tests => 2;
+
+ok 1;
+
+open my $t, '<', 't/htdocs/test.html' or die;
+open my $h, '<', 't/htdocs/head.html' or die;
+open my $f, '<', 't/htdocs/foot.html' or die;
+my $test = do { local $/; <$t> };
+my $head = do { local $/; <$h> };
+my $foot = do { local $/; <$f> };
+close $t; close $h; close $f;
+
+my $body = GET_BODY '/test.html';
+ok $body, "$head$test$foot", 'Body of test.html includes header and footer';
diff --git a/t/conf/extra.conf.in b/t/conf/extra.conf.in
new file mode 100644
index 0000000..fe9de1d
--- /dev/null
+++ b/t/conf/extra.conf.in
@@ -0,0 +1 @@
+PerlSwitches -I@ServerRoot@/../lib
diff --git a/t/conf/extra.last.conf.in b/t/conf/extra.last.conf.in
new file mode 100644
index 0000000..0156023
--- /dev/null
+++ b/t/conf/extra.last.conf.in
@@ -0,0 +1,4 @@
+PerlLoadModule Apache::Inject
+<FilesMatch ".*\.html">
+ Inject head.html foot.html
+</FilesMatch>
diff --git a/t/htdocs/foot.html b/t/htdocs/foot.html
new file mode 100644
index 0000000..77ef8be
--- /dev/null
+++ b/t/htdocs/foot.html
@@ -0,0 +1,2 @@
+<hr/>
+<p>Copyright &copy; Site Owner</p>
diff --git a/t/htdocs/head.html b/t/htdocs/head.html
new file mode 100644
index 0000000..b4abf3f
--- /dev/null
+++ b/t/htdocs/head.html
@@ -0,0 +1,2 @@
+<h1>Site Header</h1>
+<hr/>