#!/usr/bin/env perl

#
# Testing private method.
# This method is not part of the public interface, and therefore may change at
# any time. It's functionality and existence are not guaranteed.
#

use Test::More tests => 4;
use Carp;

use strict;
use warnings;
use SVG::Sparkline::Bar;

is( SVG::Sparkline::Bar::_clean_path( 'M0,0v1h2v-1h2v1h3v-1z' ),
    'M0,0v1h2v-1h2v1h3v-1z',
    'Simple path, no changes'
);

is( SVG::Sparkline::Bar::_clean_path( 'M0,0v1h2h3v-1h2v1h3v-1z' ),
    'M0,0v1h5v-1h2v1h3v-1z',
    'Double h, consolidated'
);

is( SVG::Sparkline::Bar::_clean_path( 'M0,0v1h2h1h2v-1h2v1h3v-1z' ),
    'M0,0v1h5v-1h2v1h3v-1z',
    'Triple h, consolidated'
);

is( SVG::Sparkline::Bar::_clean_path( 'M0,0v1h3v-1h2v1h3v-1h0z' ),
    'M0,0v1h3v-1h2v1h3v-1z',
    'Zero h, Removed'
);