-------------
TEST.FS FILE:
-------------

namespace Testing

/// The shared type.
type Test =
| Test1
| Test2


--------------
TEST.FSX FILE:
--------------

#load "test.fs"

open System
open Testing

let matchAgainstTest = function
| Test1 -> "Test1 matched"
| Test2 -> "Test2 matched"


Test2
|> matchAgainstTest
|> printfn "%s"

printfn "Press any key to exit..."
Console.ReadKey true |> ignore