2018-06-29 19:47:36 +00:00
commit be7f501333
3769 changed files with 1425961 additions and 0 deletions
--- a/source/csla10/CSLA.Test/BrokenRules.vb
+++ b/source/csla10/CSLA.Test/BrokenRules.vb
@@ -0,0 +1,12 @@
+<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