From c0539c94ac6861f12f0bae4dd604cedd057c45d5 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 11 Jun 2008 17:10:55 +0200 Subject: Add a test suite. --- MLKLowLevelTests.m | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 MLKLowLevelTests.m (limited to 'MLKLowLevelTests.m') diff --git a/MLKLowLevelTests.m b/MLKLowLevelTests.m new file mode 100644 index 0000000..c6be64a --- /dev/null +++ b/MLKLowLevelTests.m @@ -0,0 +1,45 @@ +/* Étoilisp, a Common Lisp subset for Étoilé. + * Copyright (C) 2008 Matthias Andreas Benkard. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include + +@interface MLKLowLevelTests +//-(id) initForTest; +@end + + +@implementation MLKLowLevelTests +/* +-(id) initForTest +{ + return self; +} +*/ + + +/* +-(id) testStuff +{ + // UKPass(); UKFail(); + // UKNotNil (nil); + // UKTrue (1); + // UKStringsNotEqual (@"a", @"b"); + // UKPass(); + return nil; + } +*/ +@end -- cgit v1.2.3