eval {
Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1;
} or plan skip_all => 'Cannot connect to test database. Create it by running make_test_db.sh before running this test. '. "Error: $@";
eval {
Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1;
} or plan skip_all => 'Cannot connect to test database. Create it by running make_test_db.sh before running this test. '. "Error: $@";
ta [qw/-p get pb author/], 'Marius Gavrilescu';
ta [qw/-p set pb owner nobody/];
ta [qw/-p get pb owner/], 'nobody';
ta [qw/-p get pb author/], 'Marius Gavrilescu';
ta [qw/-p set pb owner nobody/];
ta [qw/-p get pb owner/], 'nobody';
ta [qw/-p list/], join "\n", sort qw/arc pca rca fca prv pb/;
ta [qw/-p rm pb/];
ok !defined problem_entry ('pb'), 'gm -p rm pb';
ta [qw/-p list/], join "\n", sort qw/arc pca rca fca prv pb/;
ta [qw/-p rm pb/];
ok !defined problem_entry ('pb'), 'gm -p rm pb';