#!/usr/bin/env perl
use strict;
use warnings;
use HTML::RewriteAttributes::Resources;
use Test::More tests => 3;
my $html = << 'END';
END
my %css = (
"foo.css" => 'foo; @import "quux.css";',
"bar.css" => 'bar; @import "quux.css";',
"baz.css" => 'baz; @import "foo.css";',
"quux.css" => 'quux; @import "bar.css"; @import "quux.css";',
);
my @seen;
my @seen_css;
my $rewrote = HTML::RewriteAttributes::Resources->rewrite($html, sub {
my $uri = shift;
push @seen, $uri;
return $uri;
}, inline_css => sub {
my $uri = shift;
push @seen_css, $uri;
return $css{$uri};
});
is(@seen, 0, "no ordinary resources seen");
is_deeply(\@seen_css, [
"foo.css",
"baz.css",
]);
$rewrote =~ s/ +$//mg;
$rewrote =~ s/^ +//mg;
is($rewrote, << 'END', "rewrote the html correctly");
END