From: Marius Gavrilescu <marius@ieval.ro>
Date: Sun, 12 Apr 2015 20:10:26 +0000 (+0300)
Subject: Add gm set --file test
X-Git-Tag: 5999.000_014~21
X-Git-Url: http://git.ieval.ro/?p=gruntmaster-data.git;a=commitdiff_plain;h=096c7331093f3d1c3d820d440d44edb352a31b67

Add gm set --file test
---

diff --git a/t/tools.t b/t/tools.t
index ab16348..45c0e8f 100644
--- a/t/tools.t
+++ b/t/tools.t
@@ -10,7 +10,7 @@ BEGIN {
 	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: $@";
-	plan tests => 28;
+	plan tests => 29;
 }
 
 sub fakein {
@@ -96,6 +96,8 @@ subtest 'gruntmaster-problem add' => sub {
 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 set --file pb statement README/];
+like problem_entry('pb')->{statement}, qr/Gruntmaster-Data/, 'gm -p set --file pb statement README';
 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';