t/75-plugin-include.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Perlbal::Test;
   5
   6 use Test::More tests => 8;
   7 require HTTP::Request;
   8 require HTTP::Date;
   9
  10 my $dir = tempdir();
  11
  12 my $msock = start_server();
  13 ok($msock, "manage sock");
  14
  15 ok(manage("LOAD Include"), "load include");
  16
  17 # Build conf files
  18 for ('a' .. 'c') {
  19     my $port = new_port();
  20
  21     my $conf = qq{
  22 CREATE SERVICE test_$_
  23 SET test_$_.role = web_server
  24 SET test_$_.listen = 127.0.0.1:$port
  25 SET test_$_.docroot = $dir
  26 SET test_$_.dirindexing = 0
  27 SET test_$_.persist_client = 1
  28 ENABLE test_$_
  29 };
  30
  31     open(F, ">$dir/$_.conf") or die "Couldn't open $dir/$_.conf: $!\n";
  32     print F $conf;
  33     close F;
  34 }
  35
  36 ok(manage("INCLUDE = $dir/a.conf"), "include single");
  37
  38 ok(manage("INCLUDE = $dir/b* $dir/c*"), "include multi");
  39
  40 ok(! manage("INCLUDE = $dir/d.conf", quiet_failure => 1), "error on nonexistent conf");
  41
  42 my $s_output = manage_multi("show SERVICE");
  43
  44 for ('a' .. 'c') {
  45     like($s_output, qr/^test_$_ .+ ENABLED/m, "test_$_ loaded");
  46 }
  47
  48 1;