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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

//
// assembly:	System_test
// namespace:	MonoTests.System.Text.RegularExpressions
// file:	PerlTest.cs
//
// author:	Dan Lewis (dlewis@gmx.co.uk)
// 		(c) 2002

using System;
using System.Text.RegularExpressions;

using NUnit.Framework;

namespace MonoTests.System.Text.RegularExpressions {
	
	public class PerlTest : TestCase {
		public static ITest Suite {
			get { return new TestSuite (typeof (PerlTest)); }
		}

		public PerlTest () : this ("System.Text.RegularExpressions Perl testsuite") { }
		public PerlTest (string name) : base (name) { }

		public void TestTrials () {
			foreach (RegexTrial trial in PerlTrials.trials) {
				string actual = trial.Execute ();
				if (actual != trial.Expected) {
					Assertion.Fail (
						trial.ToString () +
						"Expected " + trial.Expected +
						" but got " + actual
					);
				}
			}
		}

		protected override void SetUp () { }
		protected override void TearDown () { }
	}
}