use strict;
use warnings;
use Test::More tests => 1;
use DBI;
my $dbh = DBI->connect('dbi:Spanner:projects/p/instances/i/databases/d', '', '');
my $sth = $dbh->prepare('CALL my_procedure(?)');
ok($sth->execute('arg'), 'Stored procedure with arg executed');
