Mercurial > projects > dwt-mac
comparison dwt/internal/cocoa/NSSpecifierTest.d @ 0:380af2bdd8e5
Upload of whole dwt tree
author | Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> |
---|---|
date | Sat, 09 Aug 2008 17:00:02 +0200 |
parents | |
children | 8b48be5454ce |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:380af2bdd8e5 |
---|---|
1 /******************************************************************************* | |
2 * Copyright (c) 2007 IBM Corporation and others. | |
3 * All rights reserved. This program and the accompanying materials | |
4 * are made available under the terms of the Eclipse Public License v1.0 | |
5 * which accompanies this distribution, and is available at | |
6 * http://www.eclipse.org/legal/epl-v10.html | |
7 * | |
8 * Contributors: | |
9 * IBM Corporation - initial API and implementation | |
10 * | |
11 * Port to the D Programming language: | |
12 * Jacob Carlborg <jacob.carlborg@gmail.com> | |
13 *******************************************************************************/ | |
14 module dwt.internal.cocoa.NSSpecifierTest; | |
15 | |
16 import dwt.internal.cocoa.id; | |
17 import dwt.internal.cocoa.NSScriptObjectSpecifier; | |
18 import dwt.internal.cocoa.NSScriptWhoseTest; | |
19 import dwt.internal.cocoa.OS; | |
20 import objc = dwt.internal.objc.runtime; | |
21 | |
22 | |
23 | |
24 enum NSTestComparisonOperation | |
25 { | |
26 NSEqualToComparison = 0, | |
27 NSLessThanOrEqualToComparison, | |
28 NSLessThanComparison, | |
29 NSGreaterThanOrEqualToComparison, | |
30 NSGreaterThanComparison, | |
31 NSBeginsWithComparison, | |
32 NSEndsWithComparison, | |
33 NSContainsComparison | |
34 } | |
35 | |
36 alias NSTestComparisonOperation.NSEqualToComparison NSEqualToComparison; | |
37 alias NSTestComparisonOperation.NSLessThanOrEqualToComparison NSLessThanOrEqualToComparison; | |
38 alias NSTestComparisonOperation.NSLessThanComparison NSLessThanComparison; | |
39 alias NSTestComparisonOperation.NSGreaterThanOrEqualToComparison NSGreaterThanOrEqualToComparison; | |
40 alias NSTestComparisonOperation.NSGreaterThanComparison NSGreaterThanComparison; | |
41 alias NSTestComparisonOperation.NSBeginsWithComparison NSBeginsWithComparison; | |
42 alias NSTestComparisonOperation.NSEndsWithComparison NSEndsWithComparison; | |
43 alias NSTestComparisonOperation.NSContainsComparison NSContainsComparison; | |
44 | |
45 | |
46 | |
47 public class NSSpecifierTest : NSScriptWhoseTest | |
48 { | |
49 | |
50 public this () | |
51 { | |
52 super(); | |
53 } | |
54 | |
55 public this (objc.id id) | |
56 { | |
57 super(id); | |
58 } | |
59 | |
60 public id initWithObjectSpecifier (NSScriptObjectSpecifier obj1, NSTestComparisonOperation compOp, id obj2) | |
61 { | |
62 objc.id result = OS.objc_msgSend(this.id, OS.sel_initWithObjectSpecifier_1comparisonOperator_1testObject_1, obj1 !is null ? obj1.id : null, | |
63 compOp, obj2 !is null ? obj2.id : null); | |
64 return result !is null ? new id(result) : null; | |
65 } | |
66 | |
67 } |