#!perl
use strict;
use warnings;

use Net::Google::Spreadsheets;
use Config::Pit;
use Test::More;

my $c = pit_get('google.com'); # or your hashref

ok my $s = Net::Google::Spreadsheets->new(
    username => $c->{username},
    password => $c->{password},
);

my @ws;
for (qw(test1 test2)) {
    push @ws, $s->spreadsheet({title => $_})->worksheet;
}

for my $i (1 .. 10) {
    for my $j (1 .. 10) {
        for my $w (@ws) {
            ok my $cell = $w->cell({row => $i, col => $j});
            ok $cell->input_value($i*$j);
        }
    }
}

done_testing;