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

use lib('t');
use _driver;

use ProgressMonitor::Stringify::Fields::Bar;

runtest(
		ProgressMonitor::Stringify::Fields::Bar->new({minWidth => 12, maxWidth => 12}),
		10, 10, [0, 0, 0], 0,
		[
		 '[..........]', '[==>.......]', '[.==>......]', '[..==>.....]', '[...==>....]', '[....==>...]',
		 '[.....==>..]', '[......==>.]', '[.......==>]', '[>.......==]', '[=>.......=]', '[..........]',
		 '[*.........]', '[**........]', '[***.......]', '[****......]', '[*****.....]', '[******....]',
		 '[*******...]', '[********..]', '[*********.]', '[**********]', '[**********]',
		]
	   );