The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;

use strict;
use warnings;

BEGIN {
    use FindBin;
    use lib $FindBin::Bin . '/lib';
    use lib $FindBin::Bin . '/../lib';

    plan $ENV{TEST_MONGODBI}
      ? ( tests => 1 )
      : ( skip_all => 'TEST_MONGODBI is not set. Tests skipped.' );
}

package Zips;

use MongoDBI::Document;

store 'zips';

index 'loc', '2d'; # geospatial index

package main;

use JSON;

my $zips = 'Zips';
   $zips->config->set_database('mongodbi_zips');
   
my $coll = $zips->collection; # mongodb::collection
my $data = [];

{

    local $/; #enable slurp
    open( my $fh, '<', $FindBin::Bin . '/assets/zips.json' );
    
    my $json = <$fh>;
    
    $data = decode_json($json);
    
}

ok $coll->batch_insert($data), 'batch import of data successful';