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::Percentage;

runtest(
		ProgressMonitor::Stringify::Fields::Percentage->new,
		10, 4, [2, 0, 10], 4,
		[
		 '???.??%', '???.??%', '???.??%', '???.??%', '???.??%', '???.??%',
		 '???.??%', '???.??%', '???.??%', '???.??%', '???.??%', '  0.00%',
		 ' 10.00%', ' 20.00%',  ' 30.00%', ' 40.00%', ' 42.00%', ' 44.00%', ' 46.00%', ' 48.00%',  
		 ' 50.00%', ' 52.00%',' 54.00%',' 56.00%',' 58.00%',' 60.00%',
		 ' 70.00%', ' 80.00%',  ' 90.00%', '100.00%',  '100.00%',
		]
	   );