#!perl
# Usage: perl leaktrace.pl [--weak]
use utf8;
use strict;
use warnings;
use Test::LeakTrace;
use Test::More;
use Text::Sass::XS qw(sass_compile);
my $source = <<'SASS';
// Variable Definitions
$page-width: 800px;
$sidebar-width: 200px;
$primary-color: #eeeeee;
// Global Attributes
body {
font: {
family: sans-serif;
size: 30em;
weight: bold;
}
}
// Scoped Styles
#contents {
width: $page-width;
#sidebar {
float: right;
width: $sidebar-width;
}
#main {
width: $page-width - $sidebar-width;
background: $primary-color;
h2 { color: blue; }
}
}
#footer {
height: 200px;
}
SASS
no_leaks_ok {
sass_compile( $source, { output_style => 3, source_comments => 0 } );
};
done_testing;