diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 02:57:58 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 02:57:58 +0000 |
commit | be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97 (patch) | |
tree | 9754ff1ca740f6346cf8483ec915d4054bc5da2d /web/server/h2o/libh2o/t/50mruby-htpasswd.t | |
parent | Initial commit. (diff) | |
download | netdata-be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97.tar.xz netdata-be1c7e50e1e8809ea56f2c9d472eccd8ffd73a97.zip |
Adding upstream version 1.44.3.upstream/1.44.3upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'web/server/h2o/libh2o/t/50mruby-htpasswd.t')
-rw-r--r-- | web/server/h2o/libh2o/t/50mruby-htpasswd.t | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/web/server/h2o/libh2o/t/50mruby-htpasswd.t b/web/server/h2o/libh2o/t/50mruby-htpasswd.t new file mode 100644 index 00000000..31cbf596 --- /dev/null +++ b/web/server/h2o/libh2o/t/50mruby-htpasswd.t @@ -0,0 +1,48 @@ +use strict; +use warnings; +use Digest::MD5 qw(md5_hex); +use Test::More; +use t::Util; + +plan skip_all => 'mruby support is off' + unless server_features()->{mruby}; + +plan skip_all => 'curl not found' + unless prog_exists('curl'); + +subtest "basic" => sub { + my $server = spawn_h2o(<< 'EOT'); +hosts: + default: + paths: + /: + mruby.handler: | + require "share/h2o/mruby/htpasswd.rb" + Htpasswd.new("t/assets/.htpasswd", "protected space") + mruby.handler: + Proc.new do |env| + [200, {}, ["hello ", env["REMOTE_USER"], "\n"]] + end +EOT + subtest "no-auth" => sub { + my ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://127.0.0.1:$server->{port}/"); + like $headers, qr{^HTTP/1\.1 401 }s, "status"; + like $headers, qr{\r\nwww-authenticate: basic realm="protected space"\r}is, "www-authenticate header"; + unlike $body, qr/hello/; + }; + + subtest "fail" => sub { + my ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://aaa:aaa\@127.0.0.1:$server->{port}/"); + like $headers, qr{^HTTP/1\.1 401 }s, "status"; + like $headers, qr{\r\nwww-authenticate: basic realm="protected space"\r}is, "www-authenticate header"; + unlike $body, qr/hello/; + }; + + subtest "success" => sub { + my ($headers, $body) = run_prog("curl --silent --dump-header /dev/stderr http://dankogai:kogaidan\@127.0.0.1:$server->{port}/"); + like $headers, qr{^HTTP/1\.1 200 }s, "status"; + is $body, "hello dankogai\n", "content"; + }; +}; + +done_testing(); |