NHibernate データ アクセス レイヤーの単体テストを実装しようとしています。Web 上で見つけた例 ( http://blogs.hibernatingrhinos.com/nhibernate/archive/2008/04/01/your-first-nhibernate-based-application.aspx ) から引き出した最初のテストは、ドメインクラス/マッピングを使用してデータベースを再作成しようとしています。このサンプルを C# で動作させることができました (Product テーブルはデータベースで作成されます) が、VB.NET で実装した場合は動作しません。
Todd.Core (Product クラスと Product.hbm.xml マッピングを含む) と Todd.Core.Test (テスト フィクスチャと NHibernate 構成を含む) の 2 つのプロジェクトがあります。MBUnit GUI を使用してこのテストを実行しようとすると、次のメッセージが表示されます (10 行目は .Configure メソッドの呼び出しです)。
Message: Could not compile the mapping document: Todd.Core.Product.hbm.xml
Type: NHibernate.MappingException
Source: NHibernate
TargetSite: Void LogAndThrow(System.Exception)
HelpLink: null
Stack: at NHibernate.Cfg.Configuration.LogAndThrow(Exception exception)
at NHibernate.Cfg.Configuration.AddValidatedDocument(NamedXmlDocument doc)
at NHibernate.Cfg.Configuration.ProcessMappingsQueue()
at NHibernate.Cfg.Configuration.AddDocumentThroughQueue(NamedXmlDocument document)
at NHibernate.Cfg.Configuration.AddXmlReader(XmlReader hbmReader, String name)
at NHibernate.Cfg.Configuration.AddInputStream(Stream xmlInputStream, String name)
at NHibernate.Cfg.Configuration.AddResource(String path, Assembly assembly)
at NHibernate.Cfg.Configuration.AddAssembly(Assembly assembly)
at NHibernate.Cfg.Configuration.AddAssembly(String assemblyName)
at NHibernate.Cfg.Configuration.DoConfigure(IHibernateConfiguration hc)
at NHibernate.Cfg.Configuration.Configure()
at Todd.Core.Test.GenerateSchema_Fixture.Can_generate_schema() in C:\Development\Todd\Todd.Core.Test\GenerateSchema_Fixture.vb:line 10
どんなアイデアでも大歓迎です。以下は私のコードです…。
私の製品クラス:
Namespace Todd.Core
Public Class Product
Private _id As Guid
Private _name As String
Private _category As String
Private _discontinued As Boolean
Public Overridable Property Id() As Guid
Get
Return _id
End Get
Set(ByVal value As Guid)
_id = value
End Set
End Property
Public Overridable Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Public Overridable Property Category() As String
Get
Return _category
End Get
Set(ByVal value As String)
_category = value
End Set
End Property
Public Overridable Property Discontinued() As Boolean
Get
Return _discontinued
End Get
Set(ByVal value As Boolean)
_discontinued = value
End Set
End Property
End Class
End Namespace
私の Product.hbm.xml ファイル:
<?xml version="1.0" encoding="utf-8" ?>
<hibernate-mapping xmlns="urn:nhibernate-mapping-2.2">
<class name="Todd.Core.Product, Todd.Core" table="Product">
<id name="Id">
<generator class="guid" />
</id>
<property name="Name" />
<property name="Category" />
<property name="Discontinued" />
</class>
</hibernate-mapping>
私のテストフィクスチャ:
Imports MbUnit.Framework
Imports Todd.Core
<TestFixture()> _
Public Class GenerateSchema_Fixture
<Test()> _
Public Sub Can_generate_schema()
Dim cfg As New NHibernate.Cfg.Configuration
cfg.Configure()
cfg.AddAssembly(GetType(Todd.Core.Product).Assembly)
Dim exp As NHibernate.Tool.hbm2ddl.SchemaExport = New NHibernate.Tool.hbm2ddl.SchemaExport(cfg)
exp.Execute(True, True, False, True)
End Sub
End Class
私のapp.config(テストプロジェクトから):
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<section name="hibernate-configuration"
type="NHibernate.Cfg.ConfigurationSectionHandler, NHibernate" />
</configSections>
<hibernate-configuration xmlns="urn:nhibernate-configuration-2.2">
<session-factory>
<property name="connection.provider">NHibernate.Connection.DriverConnectionProvider, NHibernate</property>
<property name="connection.connection_string">data source=.\SQLEXPRESS;Initial Catalog=NHibernateTestDB;Integrated Security=SSPI</property>
<property name="dialect">NHibernate.Dialect.MsSql2005Dialect</property>
<property name="show_sql">true</property>
<mapping assembly="Todd.Core" />
</session-factory>
</hibernate-configuration>
</configuration>