Csv Errors sind nun Objekte mit entsprechendem Zugriff.

[mfinanz.git] / t / helper / csv.t

diff --git a/t/helper/csv.t b/t/helper/csv.t
index 0721434802c8931c5d5ebcde0fbe4358e02529eb..cc009940d7bf699e91f6aa935d6b6732ed122555 100644 (file)
--- a/t/helper/csv.t
+++ b/t/helper/csv.t
@@ -125,6 +125,7 @@ EOL
 );
 is $csv->parse, undef, 'broken csv content won\'t get parsed';
 is_deeply $csv->errors, [ '"Kaf"fee";;0.12;1,221.52'."\n", 2023, 'EIQ - QUO character not allowed', 5, 2 ], 'error';
+isa_ok( ($csv->errors)[0], 'SL::Helper::Csv::Error', 'Errors get objectified');
 
 ####
 
@@ -222,5 +223,6 @@ EOL
 );
 is $csv->parse, undef, 'wrong profile gets rejected';
 is_deeply $csv->errors, [ 'buchungsgruppen.1.description', undef, "Profile path error. Indexed relationship is not OneToMany around here: 'buchungsgruppen.1'", undef ,0 ], 'error indicates wrong header';
+isa_ok( ($csv->errors)[0], 'SL::Helper::Csv::Error', 'Errors get objectified');
 
 # vim: ft=perl