From 74f15e52e9ac43d4e47d08337aa6574899c00090 Mon Sep 17 00:00:00 2001 From: Mary Umoh Date: Wed, 21 Jun 2017 16:18:56 -0400 Subject: Bug 1369872 - Combine skins/custom/Mozilla/*.css and skins/contrib/*.css into skins/standard/*.css * Move bug_groups from custom to standard * More modified bug_group files * Combine skin CSS files * Move .png files to standard * Move css from global.css that belongs in index.css * Changes to css placement * All images within skins/standard moved to images folder * Fix font issue * Updates * Updates * Fix mistake --- t/css.t | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 t/css.t (limited to 't') diff --git a/t/css.t b/t/css.t new file mode 100644 index 000000000..84d1ae3f0 --- /dev/null +++ b/t/css.t @@ -0,0 +1,37 @@ +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. +use strict; +use warnings; +use 5.10.1; +use lib qw( . lib local/lib/perl5 ); +use File::Spec; +use File::Slurp qw(read_file); +use File::Find qw(find); +use Cwd qw(realpath cwd); +use Test::More; + +my $root = cwd(); + +find( + { + wanted => sub { + if (/\.css$/) { + my $css_file = $File::Find::name; + my $content = read_file($_); + while ($content =~ m{url\(["']?([^\)"']+)['"]?\)}g) { + my $file = $1; + my $file_rel_root = File::Spec->abs2rel(realpath(File::Spec->rel2abs($file)), $root); + + ok(-f $file, "$css_file references $file ($file_rel_root)"); + } + } + }, + }, + 'skins' +); + +done_testing; -- cgit v1.2.3-24-g4f1b