feat(card): add support for Troy

src/Dedge.Cardizer/Dedge.Cardizer.fs

@@ -557,3 +557,21 @@ type Cardizer =
               [ 6; 3; 9 ] ].[Cardizer.next 3]
 
         Cardizer.GenerateCard prefix 16
+
+    /// <summary>Returns a random Troy number.</summary>
+    /// <returns>Random Troy number</returns>
+    /// <example>
+    /// This sample shows how to call the <see cref="NextTroy"/> method.
+    /// <code>
+    /// void PrintTroy()
+    /// {
+    ///     Console.WriteLine(Cardizer.NextTroy());
+    /// }
+    /// </code>
+    /// </example>
+    static member NextTroy() =
+        let prefix =
+            [ [ 6; 5 ]
+              [ 9; 7; 9; 2 ] ].[Cardizer.next 2]
+
+        Cardizer.GenerateCard prefix 16

src/Tests/Tests.fs

@@ -307,3 +307,18 @@ let ``Should generate valid InstaPayment`` () =
     prefixInRange |> should be True
     card |> should haveLength 16
     card |> luhn |> should be LuhnCheck
+
+[<Fact>]
+let ``Should generate valid Troy`` () =
+    let card = Cardizer.NextTroy()
+
+    let shortPrefix = card.Substring(0, 2) |> int
+    let longPrefix = card.Substring(0, 4) |> int
+
+    let prefixInRange =
+        shortPrefix = 65 
+        || longPrefix = 9792
+
+    prefixInRange |> should be True
+    card |> should haveLength 16
+    card |> luhn |> should be LuhnCheck