patrick
8f4d6a9062
Co-authored-by: Smaug123 <3138005+Smaug123@users.noreply.github.com> Reviewed-on: #22
21 lines
526 B
Forth
21 lines
526 B
Forth
namespace AdventOfCode2023.Test
|
|
|
|
open System.IO
|
|
open System.Reflection
|
|
|
|
type Dummy = class end
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Assembly =
|
|
let getEmbeddedResource (assembly : Assembly) (name : string) : string =
|
|
let names = assembly.GetManifestResourceNames ()
|
|
let names = names |> Seq.filter (fun s -> s.EndsWith name)
|
|
|
|
use s =
|
|
names
|
|
|> Seq.exactlyOne
|
|
|> assembly.GetManifestResourceStream
|
|
|> fun s -> new StreamReader (s)
|
|
|
|
s.ReadToEnd ()
|