Added support of instanceOfType operator for xUnit, MsTest and MbUnit

RELEASE_NOTES.md

@@ -3,7 +3,8 @@
 * FsUnitDepricated module renamed to FsUnitDeprecated https://github.com/fsprojects/FsUnit/pull/46
 * Enable substring checks https://github.com/fsprojects/FsUnit/pull/45
 * Fixed assertion message for NUnit equal constraint - https://github.com/fsprojects/FsUnit/pull/60
-* Added support of `shouldFail` operator for xUnit, MsTest and MbUnit
+* Added support of `shouldFail` operator for xUnit, MsTest and MbUnit - https://github.com/fsprojects/FsUnit/pull/64
+* Added support of `instanceOfType` operator for xUnit, MsTest and MbUnit -
 
 ### 1.3.1.0 - 26 July 2015
 * Bump NUnit version up to 2.6.4

docs/content/operators.md

@@ -30,7 +30,7 @@ Operators comparison across frameworks
 | `startWith`            | +     | +     | +      | +      |
 | `haveSubstring`        | +     | +     | +      | +      |
 | `ofExactType`          | +     | +     | +      | +      |
-| `instanceOfType`       | +     |       |        |        |
+| `instanceOfType`       | +     | +     | +      | +      |
 | `choice`               | +     | +     | +      | +      |
 | `ascending`            | +     | +     | +      | +      |
 | `descending`           | +     | +     | +      | +      |

src/FsUnit.MbUnit/FsUnit.fs

@@ -63,6 +63,8 @@ let haveSubstring (expected:string) = CustomMatchers.haveSubstring expected
 
 let ofExactType<'a> = CustomMatchers.ofExactType<'a>
 
+let instanceOfType<'a> = CustomMatchers.instanceOfType<'a>
+
 let contain expected = CustomMatchers.contain expected
 
 let matchList = CustomMatchers.matchList

src/FsUnit.MsTestUnit/FsUnit.fs

@@ -73,6 +73,8 @@ let haveSubstring (expected:string) = CustomMatchers.haveSubstring expected
 
 let ofExactType<'a> = CustomMatchers.ofExactType<'a>
 
+let instanceOfType<'a> = CustomMatchers.instanceOfType<'a>
+
 let contain expected = CustomMatchers.contain expected
 
 let matchList = CustomMatchers.matchList

src/FsUnit.MsTestUnit/paket.template

@@ -22,6 +22,6 @@ summary
 description
     FsUnit is a set of extensions that add special testing syntax to MsTest.
 files
-	../../bin/FsUnit.MsTest/FsUnit.* ==> lib
-	../../bin/FsUnit.MsTest/NHamcrest.* ==> lib
+	../../bin/FsUnit.MsTest/FsUnit.* ==> lib/net40
+	../../bin/FsUnit.MsTest/NHamcrest.* ==> lib/net40
 	../../src/install.ps1 ==> tools

src/FsUnit.NUnit/paket.template

@@ -24,6 +24,6 @@ description
 dependencies
 	NUnit 2.6.4
 files
-	../../bin/FsUnit.NUnit/FsUnit.* ==> lib
-	../../bin/FsUnit.Xunit/NHamcrest.* ==> lib
+	../../bin/FsUnit.NUnit/FsUnit.* ==> lib/net20
+	../../bin/FsUnit.Xunit/NHamcrest.* ==> lib/net20
 	../../src/install.ps1 ==> tools

src/FsUnit.Xunit/CustomMatchers.fs

@@ -74,6 +74,8 @@ let haveSubstring (x:string) = CustomMatcher<obj>(string x, fun s -> (string s).
 
 let ofExactType<'a> = CustomMatcher<obj>(typeof<'a>.ToString(), fun x -> (unbox x).GetType() = typeof<'a>)
 
+let instanceOfType<'a> = CustomMatcher<obj>(typeof<'a>.ToString(), fun x -> typeof<'a>.IsInstanceOfType(x))
+
 let contain x = CustomMatcher<obj>(sprintf "Contains %s" (x.ToString()),
                           fun c -> match c with
                                    | :? list<_> as l -> l |> List.exists(fun i -> i = x)

src/FsUnit.Xunit/FsUnit.fs

@@ -77,6 +77,8 @@ let haveSubstring (expected:string) = CustomMatchers.haveSubstring expected
 
 let ofExactType<'a> = CustomMatchers.ofExactType<'a>
 
+let instanceOfType<'a> = CustomMatchers.instanceOfType<'a>
+
 let contain expected = CustomMatchers.contain expected
 
 let matchList = CustomMatchers.matchList

tests/FsUnit.MbUnit.Test/FsUnit.MbUnit.Test.fsproj

@@ -78,6 +78,7 @@
     <Compile Include="shouldStartWithTests.fs" />
     <Compile Include="shouldHaveSubstringTests.fs" />
     <Compile Include="equalWithinTests.fs" />
+    <Compile Include="instanceOfTests.fs" />
     <None Include="paket.references" />
   </ItemGroup>
   <ItemGroup>

tests/FsUnit.MbUnit.Test/instanceOfTests.fs

@@ -0,0 +1,29 @@
+namespace FsUnit.Test
+open MbUnit.Framework
+open FsUnit.MbUnit
+
+[<TestFixture>]
+type ``Instance Of tests`` ()=
+    [<Test>] member test.
+     ``int should be instance of type Object`` ()=
+        1 |> should be instanceOfType<obj>
+
+    [<Test>] member test.
+     ``int should be instance of type int`` ()=
+        1 |> should be instanceOfType<int>
+
+    [<Test>] member test.
+     ``string should be instance of type string`` ()=
+        "test" |> should be instanceOfType<string>
+
+    [<Test>] member test.
+     ``list should be instance of type fsharplist`` ()=
+        [] |> should be instanceOfType<list<_>>
+
+    [<Test>] member test.
+     ``array should be instance of type array`` ()=
+        [||] |> should be instanceOfType<array<_>>
+
+    [<Test>] member test.
+     ``string should not be instance of type int`` ()=
+        "test" |> should not' (be instanceOfType<int>)

tests/FsUnit.MsTest.Test/Fs30Unit.MsTest.Test.fsproj

@@ -77,6 +77,7 @@
     <Compile Include="shouldEndWithTests.fs" />
     <Compile Include="shouldStartWithTests.fs" />
     <Compile Include="shouldHaveSubstringTests.fs" />
+    <Compile Include="instanceOfTests.fs" />
     <None Include="App.config" />
     <None Include="paket.references" />
     <None Include="MSTest.runsettings" />

tests/FsUnit.MsTest.Test/instanceOfTests.fs

@@ -0,0 +1,30 @@
+namespace FsUnit.Test
+open Microsoft.VisualStudio.TestTools.UnitTesting
+open FsUnit.MsTest
+open NHamcrest.Core
+
+[<TestClass>]
+type ``Instance Of tests`` ()=
+    [<TestMethod>] member test.
+     ``int should be instance of type Object`` ()=
+        1 |> should be instanceOfType<obj>
+
+    [<TestMethod>] member test.
+     ``int should be instance of type int`` ()=
+        1 |> should be instanceOfType<int>
+
+    [<TestMethod>] member test.
+     ``string should be instance of type string`` ()=
+        "test" |> should be instanceOfType<string>
+
+    [<TestMethod>] member test.
+     ``list should be instance of type fsharplist`` ()=
+        [] |> should be instanceOfType<list<_>>
+
+    [<TestMethod>] member test.
+     ``array should be instance of type array`` ()=
+        [||] |> should be instanceOfType<array<_>>
+
+    [<TestMethod>] member test.
+     ``string should not be instance of type int`` ()=
+        "test" |> should not' (be instanceOfType<int>)

tests/FsUnit.Xunit.Test/FsUnit.Xunit.Test.fsproj

@@ -78,6 +78,7 @@
     <Compile Include="shouldStartWithTests.fs" />
     <Compile Include="shouldHaveSubstringTests.fs" />
     <Compile Include="equalWithinTests.fs" />
+    <Compile Include="instanceOfTests.fs" />
     <None Include="paket.references" />
   </ItemGroup>
   <ItemGroup>

tests/FsUnit.Xunit.Test/instanceOfTests.fs

@@ -0,0 +1,29 @@
+namespace FsUnit.Test
+open Xunit
+open FsUnit.Xunit
+
+
+type ``Instance Of tests`` ()=
+    [<Fact>] member test.
+     ``int should be instance of type Object`` ()=
+        1 |> should be instanceOfType<obj>
+
+    [<Fact>] member test.
+     ``int should be instance of type int`` ()=
+        1 |> should be instanceOfType<int>
+
+    [<Fact>] member test.
+     ``string should be instance of type string`` ()=
+        "test" |> should be instanceOfType<string>
+
+    [<Fact>] member test.
+     ``list should be instance of type fsharplist`` ()=
+        [] |> should be instanceOfType<list<_>>
+
+    [<Fact>] member test.
+     ``array should be instance of type array`` ()=
+        [||] |> should be instanceOfType<array<_>>
+
+    [<Fact>] member test.
+     ``string should not be instance of type int`` ()=
+        "test" |> should not' (be instanceOfType<int>)