Skip to content

Commit 48fe08c

Browse files
committed
NHibernate.Test.VisualBasic: Test assembly for VB code. Not yet included in automatic build. Also includes first failing test (NH2545).
SVN: trunk@5992
1 parent 128b651 commit 48fe08c

14 files changed

+591
-0
lines changed

src/NHibernate.Everything.sln

+13
Original file line numberDiff line numberDiff line change
@@ -96,6 +96,8 @@ Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "NHibernate.Example.Web", "N
9696
EndProject
9797
Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "NHibernate.Tool.HbmXsd", "NHibernate.Tool.HbmXsd\NHibernate.Tool.HbmXsd.csproj", "{446E148D-A9D5-4D7D-A706-BEDD45B2BC7D}"
9898
EndProject
99+
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NHibernate.Test.VisualBasic", "NHibernate.Test.VisualBasic\NHibernate.Test.VisualBasic.vbproj", "{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}"
100+
EndProject
99101
Global
100102
GlobalSection(SolutionConfigurationPlatforms) = preSolution
101103
Debug|.NET = Debug|.NET
@@ -176,6 +178,16 @@ Global
176178
{446E148D-A9D5-4D7D-A706-BEDD45B2BC7D}.Release|Any CPU.ActiveCfg = Release|Any CPU
177179
{446E148D-A9D5-4D7D-A706-BEDD45B2BC7D}.Release|Any CPU.Build.0 = Release|Any CPU
178180
{446E148D-A9D5-4D7D-A706-BEDD45B2BC7D}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
181+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Debug|.NET.ActiveCfg = Debug|Any CPU
182+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
183+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Debug|Any CPU.Build.0 = Debug|Any CPU
184+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
185+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
186+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Release|.NET.ActiveCfg = Release|Any CPU
187+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Release|Any CPU.ActiveCfg = Release|Any CPU
188+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Release|Any CPU.Build.0 = Release|Any CPU
189+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
190+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C}.Release|Mixed Platforms.Build.0 = Release|Any CPU
179191
EndGlobalSection
180192
GlobalSection(SolutionProperties) = preSolution
181193
HideSolutionNode = FALSE
@@ -190,6 +202,7 @@ Global
190202
{5909BFE7-93CF-4E5F-BE22-6293368AF01D} = {094F74CD-2DD7-496F-BC48-A6D357BF33FD}
191203
{5C649B55-1B3F-4C38-9998-1B043E94A244} = {094F74CD-2DD7-496F-BC48-A6D357BF33FD}
192204
{7AEE5B37-C552-4E59-9B6F-88755BCB5070} = {094F74CD-2DD7-496F-BC48-A6D357BF33FD}
205+
{7C2EF610-BCA0-4D1F-898A-DE9908E4970C} = {094F74CD-2DD7-496F-BC48-A6D357BF33FD}
193206
{446E148D-A9D5-4D7D-A706-BEDD45B2BC7D} = {92509065-DAEA-4457-8300-C7B64CD0E9F4}
194207
{4C251E3E-6EA1-4A51-BBCB-F9C42AE55344} = {C91E7018-3C67-4830-963A-C388C75E1BD5}
195208
{58CE4584-31B9-4E74-A7FB-5D40BFAD0876} = {C91E7018-3C67-4830-963A-C388C75E1BD5}
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
Imports NHibernate.Test.NHSpecificTest
2+
3+
Public Class IssueTestCase
4+
Inherits BugTestCase
5+
6+
Protected Overrides ReadOnly Property MappingsAssembly As String
7+
Get
8+
Return "NHibernate.Test.VisualBasic"
9+
End Get
10+
End Property
11+
12+
Protected Overrides ReadOnly Property Mappings As IList
13+
Get
14+
Return New String() {"Issues." + BugNumber + ".Mappings.hbm.xml"}
15+
End Get
16+
End Property
17+
18+
End Class
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
Namespace Issues
2+
3+
Namespace NH2545
4+
5+
Public Class Entity
6+
7+
Private _id As Guid
8+
Public Overridable Property Id() As Guid
9+
Get
10+
Return _id
11+
End Get
12+
Set(ByVal value As Guid)
13+
_id = value
14+
End Set
15+
End Property
16+
17+
Private _name As String
18+
Public Overridable Property Name() As String
19+
Get
20+
Return _name
21+
End Get
22+
Set(ByVal value As String)
23+
_name = value
24+
End Set
25+
End Property
26+
27+
End Class
28+
29+
End Namespace
30+
31+
End Namespace
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
Imports NUnit.Framework
2+
Imports NHibernate.Test.NHSpecificTest
3+
Imports NHibernate.Linq
4+
5+
Namespace Issues
6+
7+
Namespace NH2545
8+
9+
<TestFixture()>
10+
Public Class Fixture
11+
Inherits IssueTestCase
12+
13+
Protected Overrides Sub OnSetUp()
14+
15+
Using session As ISession = OpenSession()
16+
17+
Dim e1 = New Entity
18+
e1.Name = "Bob"
19+
session.Save(e1)
20+
21+
Dim e2 = New Entity
22+
e2.Name = "Sally"
23+
session.Save(e2)
24+
25+
session.Flush()
26+
27+
End Using
28+
29+
End Sub
30+
31+
Protected Overrides Sub OnTearDown()
32+
33+
Using session As ISession = OpenSession()
34+
35+
session.Delete("from System.Object")
36+
session.Flush()
37+
38+
End Using
39+
40+
End Sub
41+
42+
<Test()>
43+
Public Sub LinqStringEquality()
44+
45+
Using session As ISession = OpenSession()
46+
47+
Dim result = From e In session.Query(Of Entity)() _
48+
Where e.Name = "Bob" _
49+
Select e
50+
51+
Assert.AreEqual(1, result.ToList().Count)
52+
53+
End Using
54+
55+
End Sub
56+
57+
End Class
58+
59+
End Namespace
60+
61+
End Namespace
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
<?xml version="1.0" encoding="utf-8" ?>
2+
<hibernate-mapping xmlns="urn:nhibernate-mapping-2.2" assembly="NHibernate.Test.VisualBasic" namespace="NHibernate.Test.VisualBasic.Issues.NH2545">
3+
4+
<class name="Entity">
5+
<id name="Id">
6+
<generator class="guid.comb"/>
7+
</id>
8+
<property name="Name" />
9+
</class>
10+
11+
</hibernate-mapping>

src/NHibernate.Test.VisualBasic/My Project/Application.Designer.vb

+13
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
3+
<MySubMain>false</MySubMain>
4+
<SingleInstance>false</SingleInstance>
5+
<ShutdownMode>0</ShutdownMode>
6+
<EnableVisualStyles>true</EnableVisualStyles>
7+
<AuthenticationMode>0</AuthenticationMode>
8+
<ApplicationType>1</ApplicationType>
9+
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
10+
</MyApplicationData>
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,35 @@
1+
Imports System
2+
Imports System.Reflection
3+
Imports System.Runtime.InteropServices
4+
5+
' General Information about an assembly is controlled through the following
6+
' set of attributes. Change these attribute values to modify the information
7+
' associated with an assembly.
8+
9+
' Review the values of the assembly attributes
10+
11+
<Assembly: AssemblyTitle("NHibernate.Test.VisualBasic")>
12+
<Assembly: AssemblyDescription("")>
13+
<Assembly: AssemblyCompany("Microsoft")>
14+
<Assembly: AssemblyProduct("NHibernate.Test.VisualBasic")>
15+
<Assembly: AssemblyCopyright("Copyright © Microsoft 2011")>
16+
<Assembly: AssemblyTrademark("")>
17+
18+
<Assembly: ComVisible(False)>
19+
20+
'The following GUID is for the ID of the typelib if this project is exposed to COM
21+
<Assembly: Guid("f3bf0316-dff3-4f0c-918a-1f278d626d85")>
22+
23+
' Version information for an assembly consists of the following four values:
24+
'
25+
' Major Version
26+
' Minor Version
27+
' Build Number
28+
' Revision
29+
'
30+
' You can specify all the values or you can default the Build and Revision Numbers
31+
' by using the '*' as shown below:
32+
' <Assembly: AssemblyVersion("1.0.*")>
33+
34+
<Assembly: AssemblyVersion("1.0.0.0")>
35+
<Assembly: AssemblyFileVersion("1.0.0.0")>

src/NHibernate.Test.VisualBasic/My Project/Resources.Designer.vb

+63
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)