Initial draft

Author: blackk-foxx

exercises/concept/family-recipes/.meta/exemplar.fs

@@ -0,0 +1,73 @@
+module FamilyRecipes
+
+type ParseError = 
+| MissingTitle
+| MissingIngredients
+| MissingInstructions
+
+type Recipe = {
+    Title: string
+    Ingredients: string
+    Instructions: string 
+}
+
+type ParseState = 
+| ReadingTitle
+| SeekingIngredientsHeading
+| ReadingIngredientsList
+| SeekingInstructionsHeading
+| ReadingInstructions
+
+let rec parseLines (lines: string array, state: ParseState, recipe: Recipe): Result<Recipe, ParseError> = 
+    match state with
+    | ReadingTitle -> parseTitle lines recipe
+    | SeekingIngredientsHeading -> parseIngredientsHeading lines recipe
+    | ReadingIngredientsList -> parseIngredientsList lines recipe
+    | SeekingInstructionsHeading -> parseInstructionsHeading lines recipe
+    | ReadingInstructions -> parseReadingInstructions lines recipe
+
+and parseTitle lines recipe = 
+    if lines.Length = 0 || lines[0].Length = 0 then
+        Error MissingTitle
+    else
+        parseLines(lines[1..], SeekingIngredientsHeading, {recipe with Title = lines[0]})
+
+and parseIngredientsHeading lines recipe =
+    if lines.Length = 0 then
+        Error MissingIngredients
+    else
+        let nextState = if lines[0] = "Ingredients:" then ReadingIngredientsList else SeekingIngredientsHeading
+        parseLines(lines[1..], nextState, recipe)
+
+and parseIngredientsList lines recipe =
+    if lines.Length = 0 then
+        if recipe.Ingredients.Length = 0 then
+            Error MissingIngredients
+        else
+            Error MissingInstructions
+    elif lines[0].Length = 0 then
+        if recipe.Ingredients.Length = 0 then
+            Error MissingIngredients
+        else
+            parseLines(lines[1..], SeekingInstructionsHeading, recipe)
+    else
+        parseLines(lines[1..], ReadingIngredientsList, {recipe with Ingredients = lines[0]})
+
+and parseInstructionsHeading lines recipe =
+    if lines.Length = 0 then
+        Error MissingInstructions
+    else
+        let nextState = if lines[0] = "Instructions:" then ReadingInstructions else SeekingInstructionsHeading
+        parseLines(lines[1..], nextState, recipe)
+
+and parseReadingInstructions lines recipe =
+    if lines.Length = 0 then
+        if recipe.Instructions.Length = 0 then
+            Error MissingInstructions
+        else
+            Ok(recipe)
+    else
+        parseLines(lines[1..], ReadingInstructions, {recipe with Instructions = recipe.Instructions + lines[0]})
+
+let parse (input: string) : Result<Recipe, ParseError> = 
+    parseLines(input.Split('\n'), ReadingTitle, {Title = ""; Ingredients = ""; Instructions = ""})

exercises/concept/family-recipes/FamilyRecipes.fs

@@ -0,0 +1,15 @@
+module FamilyRecipes
+
+type ParseError = 
+| MissingTitle
+| MissingIngredients
+| MissingInstructions
+
+type Recipe = {
+    Title: string
+    Ingredients: string
+    Instructions: string 
+}
+
+let parse input = 
+    failwith "Please implement this function"

exercises/concept/family-recipes/FamilyRecipes.fsproj

@@ -0,0 +1,21 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net9.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="FamilyRecipes.fs" />
+    <Compile Include="FamilyRecipesTests.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.8.3" />
+    <PackageReference Include="xunit" Version="2.4.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.4.3" />
+    <PackageReference Include="FsUnit.xUnit" Version="4.0.4" />
+  </ItemGroup>
+
+</Project>

exercises/concept/family-recipes/FamilyRecipesTests.fs

@@ -0,0 +1,58 @@
+module Tests
+
+open FsUnit.Xunit
+open Xunit
+
+open FamilyRecipes
+
+[<Fact>]
+let ``Error on blank recipe`` () =
+    let expected: Result<Recipe, ParseError> = Error MissingTitle
+    parse "" |> should equal expected
+
+[<Fact>]
+let ``Error on title without ingredients or instructions`` () =
+    let expected: Result<Recipe, ParseError> = Error MissingIngredients
+    parse "foo" |> should equal expected
+
+[<Fact>]
+let ``Error on title and ingredients heading without ingredients list`` () =
+    let expected: Result<Recipe, ParseError> = Error MissingIngredients
+    parse "A Title\n\nIngredients:" |> should equal expected
+
+[<Fact>]
+let ``Error on title and ingredients without instructions`` () =
+    let expected: Result<Recipe, ParseError> = Error MissingInstructions
+    parse "A Title\n\nIngredients:\nsome ingredient" |> should equal expected
+
+[<Fact>]
+let ``Error on all required sections but with empty ingredients list`` () = 
+    let expected: Result<Recipe, ParseError> = Error MissingIngredients
+    parse "A Title\n\nIngredients:\n\nInstructions:\nSome instructions" |> should equal expected
+
+[<Fact>]
+let ``Error on all required sections but missing instructions`` () =
+    let expected: Result<Recipe, ParseError> = Error MissingInstructions
+    parse "A Title\n\nIngredients:\nSome ingredient\n\nInstructions:" |> should equal expected
+
+[<Fact>]
+let ``Success on minimal recipe`` () =
+    let expected: Result<Recipe, ParseError> = Ok {
+            Title = "Glass of Wine"
+            Ingredients = "1 cup wine"
+            Instructions = "Pour wine into wine glass."
+        }
+    let input = """Glass of Wine
+
+Ingredients:
+1 cup wine
+
+Instructions:
+Pour wine into wine glass.
+"""
+    parse input |> should equal expected
+
+// TODO: Make Ingredients a list of Ingredient records, with quantity, units, and substance
+// TODO: Add Ingredients tests for missing/bad quantities, missing/bad units, missing substance
+// TODO: Test the ability to parse fractional quantities
+// TODO: Organize into tasks