mcs/class/System/Test/System.Text.RegularExpressions/PerlTest.cs

   1 //\r
   2 // assembly:    System_test\r
   3 // namespace:   MonoTests.System.Text.RegularExpressions\r
   4 // file:        PerlTest.cs\r
   5 //\r
   6 // Authors:     \r
   7 //   Dan Lewis (dlewis@gmx.co.uk)\r
   8 //   Martin Willemoes Hansen (mwh@sysrq.dk)\r
   9 //\r
  10 // (c) 2002 Dan Lewis\r
  11 // (c) 2003 Martin Willemoes Hansen\r
  12 \r
  13 using System;\r
  14 using System.Text.RegularExpressions;\r
  15 \r
  16 using NUnit.Framework;\r
  17 \r
  18 namespace MonoTests.System.Text.RegularExpressions {\r
  19         \r
  20         [TestFixture]\r
  21         public class PerlTest {\r
  22 \r
  23                 [Test]\r
  24                 public void Trials () {\r
  25                         foreach (RegexTrial trial in PerlTrials.trials) {\r
  26                                 string actual = trial.Execute ();\r
  27                                 if (actual != trial.Expected) {\r
  28                                         Assertion.Fail (\r
  29                                                 trial.ToString () +\r
  30                                                 "Expected " + trial.Expected +\r
  31                                                 " but got " + actual\r
  32                                         );\r
  33                                 }\r
  34                         }\r
  35                 }\r
  36         }\r
  37 }\r