brokenrules.vb

来自「C# 版本的一个三层商业架构」· VB 代码 · 共 13 行

<TestFixture()> _
Public Class BrokenRules

  <Test()> _
  Public Sub BreakARule()
    Session.Clear()
    Dim root As HasRules = HasRules.NewHasRules
    Assert.AreEqual(root.IsValid, False)
    Assert.AreEqual(root.GetBrokenRulesCollection.Count, 1)
  End Sub

End Class