[Bps-public-commit] r16549 - in sd/trunk: .

[spang at bestpractical.com]

Author: spang
Date: Sun Oct 26 17:28:09 2008
New Revision: 16549

Modified:
   sd/trunk/   (props changed)
   sd/trunk/t/sd-comments.t

Log:
 r50919 at loki:  spang | 2008-10-26 17:28:02 -0400
 regression test to make sure multiline comments work


Modified: sd/trunk/t/sd-comments.t
==============================================================================
--- sd/trunk/t/sd-comments.t	(original)
+++ sd/trunk/t/sd-comments.t	Sun Oct 26 17:28:09 2008
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Prophet::Test tests => 8;
+use Prophet::Test tests => 10;
 use App::SD::Test;
 no warnings 'once';
 
@@ -45,6 +45,7 @@
     [],
     "Found the comment"
 );
+
 run_output_matches(
     'sd',
     [   qw/ticket comment update --uuid/, $comment_uuid,
@@ -55,6 +56,7 @@
     [],
     "updated the comment"
 );
+
 run_output_matches(
     'sd',
     [ qw/ticket comment show --batch --uuid/, $comment_uuid ],
@@ -76,3 +78,30 @@
     [],
     "Found the comment when we tried to search for all comments on a ticket by the ticket's uuid"
 );
+
+run_output_matches(
+    'sd',
+    [   qw/ticket comment update --uuid/, $comment_uuid,
+        '--',
+        qw/--content/,                    "A\nmultiline\ncomment"
+    ],
+    [qr/comment \d+ \($comment_uuid\) updated/],
+    [],
+    "updated the comment to a multiline content"
+);
+
+run_output_matches(
+    'sd',
+    [ qw/ticket comment show --batch --uuid/, $comment_uuid ],
+    [ qr/id: (\d+) \($comment_uuid\)/, 
+        qr/^content: A/,
+        qr/^multiline$/,
+        qr/^comment$/,
+        qr/created: /i,
+        qr/creator: /i,
+        "original_replica: $replica_uuid",
+        "ticket: $yatta_uuid"
+    ],
+    [],
+    "Found the comment new version"
+);