Fix another test

ConsumePlugin/GeneratedArgs.fs

@@ -3381,6 +3381,14 @@ module PassThruArgParse =
 
             go ParseState_PassThru.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3478,6 +3486,14 @@ module FlagsIntoPositionalArgs'ArgParse =
 
             go ParseState_FlagsIntoPositionalArgs'.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3575,6 +3591,14 @@ module FlagsIntoPositionalArgsIntChoiceArgParse =
 
             go ParseState_FlagsIntoPositionalArgsIntChoice.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3672,6 +3696,14 @@ module FlagsIntoPositionalArgsIntArgParse =
 
             go ParseState_FlagsIntoPositionalArgsInt.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3769,6 +3801,14 @@ module FlagsIntoPositionalArgsChoiceArgParse =
 
             go ParseState_FlagsIntoPositionalArgsChoice.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3866,6 +3906,14 @@ module FlagsIntoPositionalArgsArgParse =
 
             go ParseState_FlagsIntoPositionalArgs.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -3957,6 +4005,14 @@ module ManyLongFormsArgParse =
 
             go ParseState_ManyLongForms.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4054,6 +4110,14 @@ module ContainsFlagDefaultValueArgParse =
 
             go ParseState_ContainsFlagDefaultValue.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4147,6 +4211,14 @@ module ContainsFlagEnvVarArgParse =
 
             go ParseState_ContainsFlagEnvVar.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4238,6 +4310,14 @@ module WithFlagDuArgParse =
 
             go ParseState_WithFlagDu.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4331,6 +4411,14 @@ module ContainsBoolEnvVarArgParse =
 
             go ParseState_ContainsBoolEnvVar.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4424,6 +4512,14 @@ module ChoicePositionalsArgParse =
 
             go ParseState_ChoicePositionals.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4517,6 +4613,14 @@ module ParentRecordSelfPosArgParse =
 
             go ParseState_ParentRecordSelfPos.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4610,6 +4714,14 @@ module ParentRecordChildPosArgParse =
 
             go ParseState_ParentRecordChildPos.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4701,6 +4813,14 @@ module ParentRecordArgParse =
 
             go ParseState_ParentRecord.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4792,6 +4912,14 @@ module DatesAndTimesArgParse =
 
             go ParseState_DatesAndTimes.AwaitingKey args
 
+            if 0 = errors_.Count then
+                ()
+            else
+                errors_
+                |> String.concat System.Environment.NewLine
+                |> (fun x -> "Errors during parse!\n" + x)
+                |> failwith
+
             match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
             | Ok (result, _) -> result
             | Error e ->
@@ -4878,6 +5006,14 @@ module LoadsOfTypesNoPositionals =
 
         go ParseState_LoadsOfTypesNoPositionals.AwaitingKey args
 
+        if 0 = errors_.Count then
+            ()
+        else
+            errors_
+            |> String.concat System.Environment.NewLine
+            |> (fun x -> "Errors during parse!\n" + x)
+            |> failwith
+
         match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
         | Ok (result, _) -> result
         | Error e ->
@@ -4962,6 +5098,14 @@ module LoadsOfTypes =
 
         go ParseState_LoadsOfTypes.AwaitingKey args
 
+        if 0 = errors_.Count then
+            ()
+        else
+            errors_
+            |> String.concat System.Environment.NewLine
+            |> (fun x -> "Errors during parse!\n" + x)
+            |> failwith
+
         match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
         | Ok (result, _) -> result
         | Error e ->
@@ -5048,6 +5192,14 @@ module BasicWithIntPositionals =
 
         go ParseState_BasicWithIntPositionals.AwaitingKey args
 
+        if 0 = errors_.Count then
+            ()
+        else
+            errors_
+            |> String.concat System.Environment.NewLine
+            |> (fun x -> "Errors during parse!\n" + x)
+            |> failwith
+
         match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
         | Ok (result, _) -> result
         | Error e ->
@@ -5132,6 +5284,14 @@ module Basic =
 
         go ParseState_Basic.AwaitingKey args
 
+        if 0 = errors_.Count then
+            ()
+        else
+            errors_
+            |> String.concat System.Environment.NewLine
+            |> (fun x -> "Errors during parse!\n" + x)
+            |> failwith
+
         match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
         | Ok (result, _) -> result
         | Error e ->
@@ -5218,6 +5378,14 @@ module BasicNoPositionals =
 
         go ParseState_BasicNoPositionals.AwaitingKey args
 
+        if 0 = errors_.Count then
+            ()
+        else
+            errors_
+            |> String.concat System.Environment.NewLine
+            |> (fun x -> "Errors during parse!\n" + x)
+            |> failwith
+
         match inProgress.Assemble_ getEnvironmentVariable (positionals |> Seq.toList) with
         | Ok (result, _) -> result
         | Error e ->

WoofWare.Myriad.Plugins/ShibaGenerator.fs

@@ -1929,8 +1929,8 @@ module internal ShibaGenerator =
                 SynPat.named "args"
                 |> SynPat.annotateType (SynType.appPostfix "list" SynType.string)
 
-            let raiseErrors =
-                SynExpr.createIdent "e"
+            let raiseErrors (errorIdent : Ident) =
+                SynExpr.createIdent' errorIdent
                 |> SynExpr.pipeThroughFunction (
                     SynExpr.applyFunction
                         (SynExpr.createLongIdent [ "String" ; "concat" ])
@@ -1950,11 +1950,19 @@ module internal ShibaGenerator =
                         (SynExpr.createLongIdent' [ parseStateIdent ; Ident.create "AwaitingKey" ])
                     |> SynExpr.applyTo (SynExpr.createIdent "args")
 
+                    SynExpr.ifThenElse
+                        (SynExpr.dotGet "Count" (SynExpr.createIdent "errors_")
+                         |> SynExpr.equals (SynExpr.CreateConst 0))
+                        (raiseErrors (Ident.create "errors_"))
+                        (SynExpr.CreateConst ())
+
                     [
                         SynMatchClause.create
                             (SynPat.nameWithArgs "Ok" [ SynPat.tuple [ SynPat.named "result" ; SynPat.anon ] ])
                             (SynExpr.createIdent "result")
-                        SynMatchClause.create (SynPat.nameWithArgs "Error" [ SynPat.named "e" ]) raiseErrors
+                        SynMatchClause.create
+                            (SynPat.nameWithArgs "Error" [ SynPat.named "e" ])
+                            (raiseErrors (Ident.create "e"))
                     ]
                     |> SynExpr.createMatch (
                         SynExpr.callMethodArg