The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
use CSS::LESS::Filter;

{ # simple ruleset replace
  my $filter = CSS::LESS::Filter->new;
  $filter->add('.foo {' => 'baz: "pass";');
  my $got = $filter->process(<<'LESS');
.foo {
  bar: 'fail';
}
LESS

  my $expected = <<'LESS';
.foo {
  baz: "pass";}
LESS

  is $got => $expected;
}

{ # ruleset callback
  my $filter = CSS::LESS::Filter->new;
  $filter->add('.foo {' => sub {
    my $inside = shift;
    $inside =~ s/fail/pass/;
    $inside;
  });
  my $got = $filter->process(<<'LESS');
.foo {
  bar: 'fail';
}
LESS

  my $expected = <<'LESS';
.foo {
  bar: 'pass';
}
LESS

  is $got => $expected;
}

done_testing;