2 // assembly: System_test
3 // namespace: MonoTests.System.Text.RegularExpressions
7 // Dan Lewis (dlewis@gmx.co.uk)
8 // Martin Willemoes Hansen (mwh@sysrq.dk)
11 // (c) 2003 Martin Willemoes Hansen
14 using System
.Text
.RegularExpressions
;
16 using NUnit
.Framework
;
18 namespace MonoTests
.System
.Text
.RegularExpressions
{
22 public class PerlTest
{
25 public void Trials () {
27 foreach (RegexTrial trial
in PerlTrials
.trials
) {
28 string actual
= trial
.Execute ();
29 if (actual
!= trial
.Expected
) {
30 msg
+= "\t" + trial
.ToString () +
31 "Expected " + trial
.Expected
+
32 " but got " + actual
+ "\n";
34 if ( trial
.Error
!= "" )
35 msg
+= "\n" + trial
.Error
;
39 // trial.ToString () +
40 // "Expected " + trial.Expected +
41 // " but got " + actual
46 Assertion
.Fail("\n" + msg
);