-#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 35;
"WWW-Authenticate header set: digest domains set with use_uri_for");
like( ($res_headers->header('WWW-Authenticate'))[1], qr/domain="uri_for:dom1 uri_for:dom2"/,
"WWW-Authenticate header set: basic domains set with use_uri_for");
-}
\ No newline at end of file
+}