t/MojoFacets-Import-Pairs.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7 use Data::Dump qw(dump);
   8
   9 use lib 'lib';
  10
  11 use_ok('MojoFacets::Import::Pairs');
  12
  13 my $path = $ARGV[0] || (glob 'data/lsblk/*.pairs')[0];
  14 diag "using $path";
  15
  16 ok( my $o = MojoFacets::Import::Pairs->new( path => $path ), 'new' );
  17
  18 ok( my $data = $o->data, 'data' );
  19 diag dump($data);