Revision 61a56da0
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| t/helper/csv.t | ||
|---|---|---|
| 1 |
use Test::More tests => 36;
|
|
| 1 |
use Test::More tests => 37;
|
|
| 2 | 2 |
use SL::Dispatcher; |
| 3 | 3 |
use Data::Dumper; |
| 4 | 4 |
use utf8; |
| ... | ... | |
| 264 | 264 |
|
| 265 | 265 |
is_deeply( ($csv->errors)[0], [ 'description', undef, 'header field \'description\' is not recognized', undef, 0 ], 'strict_profile without ignore_columns throws error'); |
| 266 | 266 |
|
| 267 |
##### |
|
| 268 |
|
|
| 269 |
$csv = SL::Helper::Csv->new( |
|
| 270 |
file => \"Kaffee", |
|
| 271 |
header => [ 'description' ], |
|
| 272 |
class => 'SL::DB::Part', |
|
| 273 |
); |
|
| 274 |
$csv->parse; |
|
| 275 |
is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'eol bug at the end of files';
|
|
| 267 | 276 |
|
| 268 | 277 |
# vim: ft=perl |
Auch abrufbar als: Unified diff
Bugfix: Kein newline am Ende der Datei verschluckte die letzte Zeile.