svn commit: samba r12482 - in branches/SAMBA_4_0/source/pidl: .
tests
jelmer at samba.org
jelmer at samba.org
Sun Dec 25 14:59:40 GMT 2005
Author: jelmer
Date: 2005-12-25 14:59:39 +0000 (Sun, 25 Dec 2005)
New Revision: 12482
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=12482
Log:
Add some more tests
Modified:
branches/SAMBA_4_0/source/pidl/TODO
branches/SAMBA_4_0/source/pidl/tests/parse_idl.pl
Changeset:
Modified: branches/SAMBA_4_0/source/pidl/TODO
===================================================================
--- branches/SAMBA_4_0/source/pidl/TODO 2005-12-25 14:59:21 UTC (rev 12481)
+++ branches/SAMBA_4_0/source/pidl/TODO 2005-12-25 14:59:39 UTC (rev 12482)
@@ -1,5 +1,3 @@
-- allow more then one identifier for types (unsigned char, struct foo)
-
- true multiple dimension array / strings in arrays support
- compatibility mode for generating MIDL-readable data:
@@ -15,5 +13,3 @@
- replace subcontext() with represent_as()
- --explain-ndr option that dumps out parse tree ?
-
-- fix test suite
Modified: branches/SAMBA_4_0/source/pidl/tests/parse_idl.pl
===================================================================
--- branches/SAMBA_4_0/source/pidl/tests/parse_idl.pl 2005-12-25 14:59:21 UTC (rev 12481)
+++ branches/SAMBA_4_0/source/pidl/tests/parse_idl.pl 2005-12-25 14:59:39 UTC (rev 12482)
@@ -4,7 +4,7 @@
# Published under the GNU General Public License
use strict;
-use Test::More tests => 46;
+use Test::More tests => 51;
use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use Parse::Pidl::IDL;
@@ -29,6 +29,7 @@
ok ((not defined $pidl), $name);
}
+testfail "unknowntag", "bla test {};";
testok "test1", "interface test { void Test(); }; ";
testok "voidtest", "interface test { int Testx(void); }; ";
testfail "voidtest", "interface test { Test(); }; ";
@@ -69,12 +70,13 @@
testok "nested1", "interface test { struct x { struct { int a; } z; }; };";
testok "nested2", "interface test { struct x { struct y { int a; } z; }; };";
testok "bitmap1", "interface test { bitmap x { a=1 }; };";
-TODO: {
- local $TODO = "qualifiers on defined types not supported yet";
- testok "unsigned", "interface test { struct x { unsigned short y; }; };";
- testok "signed", "interface test { struct x { signed short y; }; };";
- testok "structqual", "interface test { struct x { struct y z; }; };";
- testok "unionqual", "interface test { struct x { union y z; }; };";
- testok "enumqual", "interface test { struct x { enum y z; }; };";
- testok "bitmapqual", "interface test { struct x { bitmap y z; }; };"
-};
+testok "unsigned", "interface test { struct x { unsigned short y; }; };";
+testok "signed", "interface test { struct x { signed short y; }; };";
+testok "declarg", "interface test { void test(struct { int x; } a); };";
+testok "structqual", "interface test { struct x { struct y z; }; };";
+testok "unionqual", "interface test { struct x { union y z; }; };";
+testok "enumqual", "interface test { struct x { enum y z; }; };";
+testok "bitmapqual", "interface test { struct x { bitmap y z; }; };";
+testok "emptystructdecl", "interface test { struct x; };";
+testok "emptyenumdecl", "interface test { enum x; };";
+testok "emptytdstructdecl", "interface test { typedef struct x y; };";
More information about the samba-cvs
mailing list