test csv import
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Jul 2010 09:28:23 +0000 (11:28 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Jul 2010 09:28:23 +0000 (11:28 +0200)
t/MojoFacets-Import-CSV.t [new file with mode: 0755]

diff --git a/t/MojoFacets-Import-CSV.t b/t/MojoFacets-Import-CSV.t
new file mode 100755 (executable)
index 0000000..4a1abb0
--- /dev/null
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Data::Dump qw(dump);
+
+use lib 'lib';
+
+use_ok('MojoFacets::Import::CSV');
+
+ok( my $o = MojoFacets::Import::CSV->new( path => 'data/ESB_izvadak-ziro.cp1250.csv' ), 'new' );
+
+ok( my $data = $o->data, 'data' );
+diag dump($data);