#!/usr/bin/perl

# This test holds regression tests based on samples provided in various
# rt.cpan.org bug reports.

use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 2;
use CSS::Tiny;





######################################################################
# Bug #60776 for CSS-Tiny: Bug in selector parsing in CSS::Tiny

# Test parsing of CSS selectors with multiple whitespace elements
my $css = CSS::Tiny->read_string( <<'END_CSS' );
.test  .bodySettings  {
  font-size:  12px;
}
END_CSS
isa_ok( $css, 'CSS::Tiny' );
is_deeply(
	[ %$css ],
	[
		'.test .bodySettings' => {
			'font-size' => '12px',
		},
	],
	'Bug 60776: Parsing with multiple whitespace',
);