From 117d5e17261250378645a10a04843486d722e75d Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Thu, 5 Oct 2017 10:30:33 +1300 Subject: Add "records" example and accompanying test Tweak last paragraph of second example so it flows. --- t/records.t | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 t/records.t (limited to 't/records.t') diff --git a/t/records.t b/t/records.t new file mode 100644 index 0000000..8af3e1a --- /dev/null +++ b/t/records.t @@ -0,0 +1,42 @@ +#!perl -T + +use strict; +use warnings; +use utf8; + +use Test::More tests => 1; + +use List::Breakdown 'breakdown'; + +our $VERSION = '0.11'; + +my @records = ( + "NEW CUSTOMER John O''Connor\r 2017-01-01", + "RETURNING CUSTOMER\tXah Lee 2016-01-01", + "CHECK ACCOUNT Pierre d'Alun 2016-12-01", + "RETURNING CUSTOMER Aaron Carter 2016-05-01" +); + +my %buckets = ( + bad_whitespace => qr/ [\r\t] /msx, + apostrophes => qr/ ' /msx, + double_apostrophes => qr/ '' /msx, + not_ascii => qr/ [^[:ascii:]] /msx +); + +my %results = breakdown \%buckets, @records; + +my %expected = ( + apostrophes => [ + "NEW CUSTOMER John O''Connor\r 2017-01-01", + 'CHECK ACCOUNT Pierre d\'Alun 2016-12-01' + ], + bad_whitespace => [ + "NEW CUSTOMER John O''Connor\r 2017-01-01", + "RETURNING CUSTOMER\tXah Lee 2016-01-01" + ], + double_apostrophes => ["NEW CUSTOMER John O''Connor\r 2017-01-01"], + not_ascii => [], +); + +is_deeply( \%results, \%expected, 'records' ); -- cgit v1.2.3