#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
use Data::Dump qw( dump );

use_ok('SWISH::Prog::ReplaceRules');
my $rules = SWISH::Prog::ReplaceRules->new(
    qq(replace "foo" "flip"),
    qq(remove  "bar/"),
    qq(prepend "http://"),
    qq(append  ".html"),
    qq(regex   "/baz/123/sgxi"),
);
my $uri = 'foo/bar/Baz';
ok( my $modified_uri = $rules->apply($uri), "basic SYNOPSIS" );
is( $modified_uri, qq(http://flip/123.html), "got expected string" );

#diag( dump $rules );