Skip to content

Commit c23dce7

Browse files
pchalametpchalamet
committed
remove unquote
1 parent 88005e5 commit c23dce7

7 files changed

+122
-124
lines changed

‎tests/FSharp.MongoDB.Bson.Tests/FSharp.MongoDB.Bson.Tests.fsproj

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,6 @@
2929
<PackageReference Include="NUnit" Version="4.2.2" />
3030
<PackageReference Include="NUnit3TestAdapter" Version="4.6.0" />
3131
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.11.1" />
32-
<PackageReference Include="Unquote" Version="7.0.1" />
3332
</ItemGroup>
3433

3534
</Project>

‎tests/FSharp.MongoDB.Bson.Tests/FSharpListSerializationTests.fs

Lines changed: 21 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -15,10 +15,10 @@
1515

1616
namespace FSharp.MongoDB.Bson.Tests.Serialization
1717

18+
open FsUnit
1819
open MongoDB.Bson
1920

2021
open NUnit.Framework
21-
open Swensen.Unquote
2222

2323
module FSharpListSerialization =
2424

@@ -28,55 +28,55 @@ module FSharpListSerialization =
2828
let ``test serialize an empty list``() =
2929
let value = { Ints = [] }
3030

31-
let result = <@ serialize value @>
31+
let result = serialize value
3232
let expected = BsonDocument("Ints", BsonArray List.empty<int>)
3333

34-
test <@ %result = expected @>
34+
result |> should equal expected
3535

3636
[<Test>]
3737
let ``test deserialize an empty list``() =
3838
let doc = BsonDocument("Ints", BsonArray List.empty<int>)
3939

40-
let result = <@ deserialize doc typeof<Record> @>
40+
let result = deserialize doc typeof<Record>
4141
let expected = { Ints = [] }
4242

43-
test <@ %result = expected @>
43+
result |> should equal expected
4444

4545
[<Test>]
4646
let ``test serialize a list of one element``() =
4747
let value = { Ints = [ 0 ] }
4848

49-
let result = <@ serialize value @>
49+
let result = serialize value
5050
let expected = BsonDocument("Ints", BsonArray [ 0 ])
5151

52-
test <@ %result = expected @>
52+
result |> should equal expected
5353

5454
[<Test>]
5555
let ``test deserialize a list of one element``() =
5656
let doc = BsonDocument("Ints", BsonArray [ 0 ])
5757

58-
let result = <@ deserialize doc typeof<Record> @>
58+
let result = deserialize doc typeof<Record>
5959
let expected = { Ints = [ 0 ] }
6060

61-
test <@ %result = expected @>
61+
result |> should equal expected
6262

6363
[<Test>]
6464
let ``test serialize a list of multiple elements``() =
6565
let value = { Ints = [ 1; 2; 3 ] }
6666

67-
let result = <@ serialize value @>
67+
let result = serialize value
6868
let expected = BsonDocument("Ints", BsonArray [ 1; 2; 3 ])
6969

70-
test <@ %result = expected @>
70+
result |> should equal expected
7171

7272
[<Test>]
7373
let ``test deserialize a list of multiple elements``() =
7474
let doc = BsonDocument("Ints", BsonArray [ 1; 2; 3 ])
7575

76-
let result = <@ deserialize doc typeof<Record> @>
76+
let result = deserialize doc typeof<Record>
7777
let expected = { Ints = [ 1; 2; 3 ] }
7878

79-
test <@ %result = expected @>
79+
result |> should equal expected
8080

8181
module OptionType =
8282

@@ -86,19 +86,19 @@ module FSharpListSerialization =
8686
let ``test serialize a list of optional strings``() =
8787
let value = { MaybeStrings = [ Some "a"; None; Some "z" ] }
8888

89-
let result = <@ serialize value @>
89+
let result = serialize value
9090
let expected = BsonDocument("MaybeStrings", BsonArray [ "a"; null; "z" ])
9191

92-
test <@ %result = expected @>
92+
result |> should equal expected
9393

9494
[<Test>]
9595
let ``test deserialize a list of optional strings``() =
9696
let doc = BsonDocument("MaybeStrings", BsonArray [ "a"; null; "z" ])
9797

98-
let result = <@ deserialize doc typeof<Record> @>
98+
let result = deserialize doc typeof<Record>
9999
let expected = { MaybeStrings = [ Some "a"; None; Some "z" ] }
100100

101-
test <@ %result = expected @>
101+
result |> should equal expected
102102

103103
module RecordType =
104104

@@ -114,7 +114,7 @@ module FSharpListSerialization =
114114
{ Key = "b"; Value = 2 }
115115
{ Key = "c"; Value = 3 } ] }
116116

117-
let result = <@ serialize value @>
117+
let result = serialize value
118118
let expected =
119119
BsonDocument(
120120
"Elements",
@@ -125,7 +125,7 @@ module FSharpListSerialization =
125125
BsonDocument [ BsonElement("Key", BsonString "c")
126126
BsonElement("Value", BsonInt32 3) ] ])
127127

128-
test <@ %result = expected @>
128+
result |> should equal expected
129129

130130
[<Test>]
131131
let ``test deserialize a list of record types``() =
@@ -139,9 +139,9 @@ module FSharpListSerialization =
139139
BsonDocument [ BsonElement("Key", BsonString "c")
140140
BsonElement("Value", BsonInt32 3) ] ])
141141

142-
let result = <@ deserialize doc typeof<Record> @>
142+
let result = deserialize doc typeof<Record>
143143
let expected = { Elements = [ { Key = "a"; Value = 1 }
144144
{ Key = "b"; Value = 2 }
145145
{ Key = "c"; Value = 3 } ] }
146146

147-
test <@ %result = expected @>
147+
result |> should equal expected

‎tests/FSharp.MongoDB.Bson.Tests/FSharpMapSerializationTests.fs

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -15,10 +15,10 @@
1515

1616
namespace FSharp.MongoDB.Bson.Tests.Serialization
1717

18+
open FsUnit
1819
open MongoDB.Bson
1920

2021
open NUnit.Framework
21-
open Swensen.Unquote
2222

2323
module FSharpMapSerialization =
2424

@@ -35,13 +35,13 @@ module FSharpMapSerialization =
3535
String = Map.empty<string, string>
3636
Float = Map.empty<string, float> }
3737

38-
let result = <@ serialize value @>
38+
let result = serialize value
3939
let expected = BsonDocument([ BsonElement("Bool", BsonDocument())
4040
BsonElement("Int", BsonDocument())
4141
BsonElement("String", BsonDocument())
4242
BsonElement("Float", BsonDocument()) ])
4343

44-
test <@ %result = expected @>
44+
result |> should equal expected
4545

4646
[<Test>]
4747
let ``test deserialize an empty map``() =
@@ -50,13 +50,13 @@ module FSharpMapSerialization =
5050
BsonElement("String", BsonDocument())
5151
BsonElement("Float", BsonDocument()) ])
5252

53-
let result = <@ deserialize doc typeof<Primitive> @>
53+
let result = deserialize doc typeof<Primitive>
5454
let expected = { Bool = Map.empty<string, bool>
5555
Int = Map.empty<string, int>
5656
String = Map.empty<string, string>
5757
Float = Map.empty<string, float> }
5858

59-
test <@ %result = expected @>
59+
result |> should equal expected
6060

6161
[<Test>]
6262
let ``test serialize a map of one element``() =
@@ -65,13 +65,13 @@ module FSharpMapSerialization =
6565
String = Map.ofList<string, string> [ ("a", "0.0") ]
6666
Float = Map.ofList<string, float> [ ("a", 0.0) ] }
6767

68-
let result = <@ serialize value @>
68+
let result = serialize value
6969
let expected = BsonDocument([ BsonElement("Bool", BsonDocument("a", BsonBoolean false))
7070
BsonElement("Int", BsonDocument("a", BsonInt32 0))
7171
BsonElement("String", BsonDocument("a", BsonString "0.0"))
7272
BsonElement("Float", BsonDocument("a", BsonDouble 0.0)) ])
7373

74-
test <@ %result = expected @>
74+
result |> should equal expected
7575

7676
[<Test>]
7777
let ``test deserialize a map of one element``() =
@@ -80,13 +80,13 @@ module FSharpMapSerialization =
8080
BsonElement("String", BsonDocument("a", BsonString "0.0"))
8181
BsonElement("Float", BsonDocument("a", BsonDouble 0.0)) ])
8282

83-
let result = <@ deserialize doc typeof<Primitive> @>
83+
let result = deserialize doc typeof<Primitive>
8484
let expected = { Bool = Map.ofList<string, bool> [ ("a", false) ]
8585
Int = Map.ofList<string, int> [ ("a", 0) ]
8686
String = Map.ofList<string, string> [ ("a", "0.0") ]
8787
Float = Map.ofList<string, float> [ ("a", 0.0) ] }
8888

89-
test <@ %result = expected @>
89+
result |> should equal expected
9090

9191
[<Test>]
9292
let ``test serialize a map of multiple elements``() =
@@ -96,7 +96,7 @@ module FSharpMapSerialization =
9696
String = Map.ofList<string, string> [ ("a", "0.0"); ("b", "1.0"); ("c", "2.0") ]
9797
Float = Map.ofList<string, float> [ ("a", 0.0); ("b", 1.0); ("c", 2.0) ] }
9898

99-
let result = <@ serialize value @>
99+
let result = serialize value
100100
let expected =
101101
BsonDocument(
102102
[ BsonElement("Bool", BsonDocument([ BsonElement("a", BsonBoolean false)
@@ -112,7 +112,7 @@ module FSharpMapSerialization =
112112
BsonElement("b", BsonDouble 1.0)
113113
BsonElement("c", BsonDouble 2.0) ])) ])
114114

115-
test <@ %result = expected @>
115+
result |> should equal expected
116116

117117
[<Test>]
118118
let ``test deserialize a map of multiple elements``() =
@@ -131,11 +131,11 @@ module FSharpMapSerialization =
131131
BsonElement("b", BsonDouble 1.0)
132132
BsonElement("c", BsonDouble 2.0) ])) ])
133133

134-
let result = <@ deserialize doc typeof<Primitive> @>
134+
let result = deserialize doc typeof<Primitive>
135135
let expected =
136136
{ Bool = Map.ofList<string, bool> [ ("a", false); ("b", true); ("c", false) ]
137137
Int = Map.ofList<string, int> [ ("a", 0); ("b", 1); ("c", 2) ]
138138
String = Map.ofList<string, string> [ ("a", "0.0"); ("b", "1.0"); ("c", "2.0") ]
139139
Float = Map.ofList<string, float> [ ("a", 0.0); ("b", 1.0); ("c", 2.0) ] }
140140

141-
test <@ %result = expected @>
141+
result |> should equal expected

‎tests/FSharp.MongoDB.Bson.Tests/FSharpOptionSerializationTests.fs

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -15,10 +15,10 @@
1515

1616
namespace FSharp.MongoDB.Bson.Tests.Serialization
1717

18+
open FsUnit
1819
open MongoDB.Bson
1920

2021
open NUnit.Framework
21-
open Swensen.Unquote
2222

2323
module FSharpOptionSerialization =
2424

@@ -35,22 +35,22 @@ module FSharpOptionSerialization =
3535
String = None
3636
Float = None }
3737

38-
let result = <@ serialize value @>
38+
let result = serialize value
3939
let expected = BsonDocument()
4040

41-
test <@ %result = expected @>
41+
result |> should equal expected
4242

4343
[<Test>]
4444
let ``test deserialize optional primitives (none) in a record type)``() =
4545
let doc = BsonDocument()
4646

47-
let result = <@ deserialize doc typeof<Primitive> @>
47+
let result = deserialize doc typeof<Primitive>
4848
let expected = { Bool = None
4949
Int = None
5050
String = None
5151
Float = None }
5252

53-
test <@ %result = expected @>
53+
result |> should equal expected
5454

5555
[<Test>]
5656
let ``test serialize optional primitives (some) in a record type``() =
@@ -59,13 +59,13 @@ module FSharpOptionSerialization =
5959
String = Some "0.0"
6060
Float = Some 0.0 }
6161

62-
let result = <@ serialize value @>
62+
let result = serialize value
6363
let expected = BsonDocument([ BsonElement("Bool", BsonBoolean false)
6464
BsonElement("Int", BsonInt32 0)
6565
BsonElement("String", BsonString "0.0")
6666
BsonElement("Float", BsonDouble 0.0) ])
6767

68-
test <@ %result = expected @>
68+
result |> should equal expected
6969

7070
[<Test>]
7171
let ``test deserialize optional primitives (some) in a record type``() =
@@ -74,10 +74,10 @@ module FSharpOptionSerialization =
7474
BsonElement("String", BsonString "1.0")
7575
BsonElement("Float", BsonDouble 1.0) ])
7676

77-
let result = <@ deserialize doc typeof<Primitive> @>
77+
let result = deserialize doc typeof<Primitive>
7878
let expected = { Bool = Some true
7979
Int = Some 1
8080
String = Some "1.0"
8181
Float = Some 1.0 }
8282

83-
test <@ %result = expected @>
83+
result |> should equal expected

‎tests/FSharp.MongoDB.Bson.Tests/FSharpRecordSerializationTests.fs

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -15,10 +15,10 @@
1515

1616
namespace FSharp.MongoDB.Bson.Tests.Serialization
1717

18+
open FsUnit
1819
open MongoDB.Bson
1920

2021
open NUnit.Framework
21-
open Swensen.Unquote
2222

2323
module FSharpRecordSerialization =
2424

@@ -35,13 +35,13 @@ module FSharpRecordSerialization =
3535
String = "0.0"
3636
Float = 0.0 }
3737

38-
let result = <@ serialize value @>
38+
let result = serialize value
3939
let expected = BsonDocument([ BsonElement("Bool", BsonBoolean false)
4040
BsonElement("Int", BsonInt32 0)
4141
BsonElement("String", BsonString "0.0")
4242
BsonElement("Float", BsonDouble 0.0) ])
4343

44-
test <@ %result = expected @>
44+
result |> should equal expected
4545

4646
[<Test>]
4747
let ``test deserialize primitives in a record type``() =
@@ -50,13 +50,13 @@ module FSharpRecordSerialization =
5050
BsonElement("String", BsonString "1.0")
5151
BsonElement("Float", BsonDouble 1.0) ])
5252

53-
let result = <@ deserialize doc typeof<Primitive> @>
53+
let result = deserialize doc typeof<Primitive>
5454
let expected = { Bool = true
5555
Int = 1
5656
String = "1.0"
5757
Float = 1.0 }
5858

59-
test <@ %result = expected @>
59+
result |> should equal expected
6060

6161
module BindingFlags =
6262

@@ -66,16 +66,16 @@ module FSharpRecordSerialization =
6666
let ``test serialize an internal record type``() =
6767
let value = { Field = 0 }
6868

69-
let result = <@ serialize value @>
69+
let result = serialize value
7070
let expected = BsonDocument("Field", BsonInt32 0)
7171

72-
test <@ %result = expected @>
72+
result |> should equal expected
7373

7474
[<Test>]
7575
let ``test deserialize an internal record type``() =
7676
let doc = BsonDocument("Field", BsonInt32 1)
7777

78-
let result = <@ deserialize doc typeof<InternalRecord> @>
78+
let result = deserialize doc typeof<InternalRecord>
7979
let expected = { Field = 1 }
8080

81-
test <@ %result = expected @>
81+
result |> should equal expected

0 commit comments

Comments
 (0)