use strict;
use warnings;
use Formatter::HTML::MPS;
use Test::Simple tests => 1;

# read mps file:
open my $fh1, '<', 't/input_inlinecss.mps' or die $!;
my $mps_data = join( '', <$fh1> );

# read expected output:
open $fh1, '<', 't/expected_inlinecss.html' or die $!;
my $expected_data = join( '', <$fh1> );

my $formatter = Formatter::HTML::MPS->format( $mps_data );
my $generated = $formatter->document();

#open my $fh, '>', 'output.html';
#print $fh $generated;

ok( $generated eq $expected_data );