-is $entry->{raw_data}->{cvar_mycvar},'das ist der Ring','CVAR set';
-is @{$entry->{object}->custom_variables}[0]->text_value,'das ist der Ring','Cvar mit richtigem Wert';
-
-# set locale to de so we can match abbreviations
-$::locale = $old_locale;
-##### import part classification
-$file = \<<EOL;
-partnumber;pclass;description
-W1000;WE;Teil 1000
-W1001;WV;Teil 1001
-D1002;DV;Dienstleistung 1002
-D1003;DH;Dienstleistung 1003
-EOL
-$entries = test_import($file,$settings2);
-$entry = $entries->[0];
-is $entry->{object}->classification_id, '1', 'W1000 von Klasse Einkauf';
-is $entry->{object}->type, 'part', 'W1000 vom Type part';
-$entry = $entries->[1];
-is $entry->{object}->classification_id, '2', 'W1001 von Klasse Verkauf';
-is $entry->{object}->type, 'part', 'W1001 vom Type part';
-$entry = $entries->[2];
-is $entry->{object}->classification_id, '2', 'D1002 von Klasse Verkauf';
-is $entry->{object}->type, 'service', 'D1002 vom Type service';
-$entry = $entries->[3];
-is $entry->{object}->classification_id, '3', 'D1003 von Klasse Handelsware';
-is $entry->{object}->type, 'service', 'D1003 vom Type service';
-
+is $entry->{raw_data}->{cvar_mycvar},'das ist der ring','CVAR set';
+is @{$entry->{object}->custom_variables}[0]->text_value,'das ist der ring','Cvar mit richtigem Weert';