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

my $conf_file = $FindBin::Bin.'/../config/agent.conf.yml';
if (-e $conf_file) {
  plan( tests => 2 );
}
else {
  plan( 
    skip_all => 'You must create a valid test Google Spreadsheet and a valid '
                .$conf_file
                .' configuration file pointing to it to run the tests. See README.txt file for more information on how to run the tests.'
      );
}

my $agent_name = 'instantiate';
my $page_name = 'testing';
my $bind_key_fields = { 'testentry' => 'test' };

ok my $google_agent = Google::Spreadsheet::Agent->new(
                   agent_name => $agent_name,
                   page_name => $page_name,
                   bind_key_fields => $bind_key_fields
                 );
isa_ok $google_agent => 'Google::Spreadsheet::Agent';