1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#light
#r @"C:\Users\Gunnar\Documents\Visual Studio 2008\Projects\xunit\xunit.dll"
open Xunit 
[<Fact>]
let test_isGreater() =
    let a = 2
    let b = 3
    Assert.True( a > b )
... and some more interesting things. This is te code I try
#light
#R @"C:\Users\Gunnar\Documents\Visual Studio 2008\Projects\xunit\xunit.dll"
#R @"C:\Users\Gunnar\Documents\Visual Studio 2008\Projects\FSharp\Archetypes\Archetypes.dll"
open Xunit 
open Archetypes.Quantity
let a = {Amount = 2.0; Metric = "kg"}
let b = {Amount = 3.0; Metric = "kg"}
[<Fact>] let test_isGreater() = Assert.True( a <> b );;
[<Fact>] let test_isEqual() = Assert.Equal( a, a );;
[<Fact>] let test_isNotEqual() = Assert.NotEqual( a, b );;
[<Fact>] let test_isEqual1() = Assert.Equal( a, b );;
[<Fact>] let test_isNotEqual1()= Assert.NotEqual( a, a );;

1
2
3

.error: Type 'Xunit.NotEqualException' in Assembly 'xunit, Version=1.0.0.1105, C
ulture=neutral, PublicKeyToken=8d05b1bb7a6fdb6c' is not marked as serializable.
in SerializationException