The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use utf8;
use strict;
use warnings;
use Test::More;
use Text::Sass::XS qw(:all);
use FindBin qw($Bin);
use File::Spec::Functions qw(catfile);

my $sass = catfile( $Bin, qw/assets foo.scss/ );

my $options = {
    output_style    => SASS_STYLE_COMPRESSED,
    source_comments => SASS_SOURCE_COMMENTS_NONE,
    include_paths   => undef,
    image_path      => undef,
};

my $css = sass_compile_file( $sass, $options );
my $output
    = '.content-navigation {border-color:#3bbfce;}.border {padding:8px;margin:8px;}';
is $css, $output, 'compile_file with options';

$css = sass_compile_file($sass);
$output
    = '.content-navigation {border-color:#3bbfce;}.border {padding:8px;margin:8px;}';
is $css, $output, 'compile_file without options';

done_testing;