read DBF files using XBase module

[MojoFacets.git] / t / MojoFacets-Import-DBF.t

diff --git a/t/MojoFacets-Import-DBF.t b/t/MojoFacets-Import-DBF.t
new file mode 100755 (executable)
index 0000000..92dad0d
--- /dev/null
+++ b/t/MojoFacets-Import-DBF.t
@@ -0,0 +1,19 @@
+#!/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::DBF');
+
+my $path = $ARGV[0] || (glob 'data/*/*/*.DBF')[0];
+diag "using $path";
+
+ok( my $o = MojoFacets::Import::DBF->new( full_path => $path ), 'new' );
+
+ok( my $data = $o->data, 'data' );
+diag dump($data);