diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-05 10:35:21 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-10-05 10:35:21 +1300 |
commit | 7d1bceeda1eef13afc7cad2b793963fe5e76d029 (patch) | |
tree | de96ae0245b84f3f0ff5335ef2f9362e3027cbd0 | |
parent | Move SUBROUTINES/METHODS above EXAMPLES (diff) | |
download | List-Breakdown-7d1bceeda1eef13afc7cad2b793963fe5e76d029.tar.gz List-Breakdown-7d1bceeda1eef13afc7cad2b793963fe5e76d029.zip |
Perl::Tidy run over records.t
-rw-r--r-- | t/records.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/records.t b/t/records.t index 8af3e1a..6801614 100644 --- a/t/records.t +++ b/t/records.t @@ -13,15 +13,15 @@ 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" + '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 + not_ascii => qr/ [^[:ascii:]] /msx, ); my %results = breakdown \%buckets, @records; @@ -29,11 +29,11 @@ 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' + '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" + "RETURNING CUSTOMER\tXah Lee 2016-01-01", ], double_apostrophes => ["NEW CUSTOMER John O''Connor\r 2017-01-01"], not_ascii => [], |