File tree Expand file tree Collapse file tree 2 files changed +7
-3
lines changed Expand file tree Collapse file tree 2 files changed +7
-3
lines changed Original file line number Diff line number Diff line change @@ -51,7 +51,7 @@ procedure Tester.Run is
51
51
52
52
Output_Format : constant VSS.Command_Line.Value_Option :=
53
53
(Short_Name => " " ,
54
- Long_Name => " output- format" ,
54
+ Long_Name => " format" ,
55
55
Value_Name => " output_format_option" ,
56
56
Description =>
57
57
VSS.Strings.Conversions.To_Virtual_String
Original file line number Diff line number Diff line change @@ -1259,15 +1259,19 @@ package body Tester.Tests is
1259
1259
Text.Append (" Recent output from server:" );
1260
1260
Text.Append (GNATCOLL.JSON.Write (Output, False));
1261
1261
1262
- else -- Default behaviour is "diff"
1262
+ else
1263
+ if On_Failed_Val /= " diff" then
1264
+ Text.Append
1265
+ (" Unrecognized value for Format: reverting to "" diff"" " );
1266
+ end if ;
1263
1267
declare
1264
1268
Diff : Unbounded_String;
1265
1269
begin
1266
1270
Diff := Generate_Diff
1267
1271
(Left => Output,
1268
1272
Right => Waits,
1269
1273
Indent => 0 ,
1270
- Minimal => True );
1274
+ Minimal => False );
1271
1275
Text.Append (" Diff:" );
1272
1276
Text.Append (To_String (Diff));
1273
1277
end ;
You can’t perform that action at this time.
0 commit comments