| 1 | #!/usr/bin/perl
|
|---|
| 2 | # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
|
|---|
| 3 | # Published under the GNU General Public License
|
|---|
| 4 | use strict;
|
|---|
| 5 | use warnings;
|
|---|
| 6 |
|
|---|
| 7 | use Test::More tests => 72;
|
|---|
| 8 | use FindBin qw($RealBin);
|
|---|
| 9 | use lib "$RealBin";
|
|---|
| 10 | use Util;
|
|---|
| 11 | use Parse::Pidl qw(error);
|
|---|
| 12 | use Parse::Pidl::Util;
|
|---|
| 13 |
|
|---|
| 14 | # has_property()
|
|---|
| 15 | is(undef, has_property({}, "foo"));
|
|---|
| 16 | is(undef, has_property({PROPERTIES => {}}, "foo"));
|
|---|
| 17 | is("data", has_property({PROPERTIES => {foo => "data"}}, "foo"));
|
|---|
| 18 | is(undef, has_property({PROPERTIES => {foo => undef}}, "foo"));
|
|---|
| 19 |
|
|---|
| 20 | # is_constant()
|
|---|
| 21 | ok(is_constant("2"));
|
|---|
| 22 | ok(is_constant("256"));
|
|---|
| 23 | ok(is_constant("0x400"));
|
|---|
| 24 | ok(is_constant("0x4BC"));
|
|---|
| 25 | ok(not is_constant("0x4BGC"));
|
|---|
| 26 | ok(not is_constant("str"));
|
|---|
| 27 | ok(not is_constant("2 * expr"));
|
|---|
| 28 |
|
|---|
| 29 | # make_str()
|
|---|
| 30 | is("\"bla\"", make_str("bla"));
|
|---|
| 31 | is("\"bla\"", make_str("\"bla\""));
|
|---|
| 32 | is("\"\"bla\"\"", make_str("\"\"bla\"\""));
|
|---|
| 33 | is("\"bla\"\"", make_str("bla\""));
|
|---|
| 34 | is("\"foo\"bar\"", make_str("foo\"bar"));
|
|---|
| 35 |
|
|---|
| 36 | is("bla", unmake_str("\"bla\""));
|
|---|
| 37 | is("\"bla\"", unmake_str("\"\"bla\"\""));
|
|---|
| 38 |
|
|---|
| 39 | # print_uuid()
|
|---|
| 40 | is(undef, print_uuid("invalid"));
|
|---|
| 41 | is("{0x12345778,0x1234,0xabcd,{0xef,0x00},{0x01,0x23,0x45,0x67,0x89,0xac}}",
|
|---|
| 42 | print_uuid("12345778-1234-abcd-ef00-0123456789ac"));
|
|---|
| 43 | is("{0x12345778,0x1234,0xabcd,{0xef,0x00},{0x01,0x23,0x45,0x67,0x89,0xac}}",
|
|---|
| 44 | print_uuid("\"12345778-1234-abcd-ef00-0123456789ac\""));
|
|---|
| 45 |
|
|---|
| 46 | # property_matches()
|
|---|
| 47 | # missing property
|
|---|
| 48 | ok(not property_matches({PROPERTIES => {}}, "x", "data"));
|
|---|
| 49 | # data not matching
|
|---|
| 50 | ok(not property_matches({PROPERTIES => {x => "bar"}}, "x", "data"));
|
|---|
| 51 | # data matching exactly
|
|---|
| 52 | ok(property_matches({PROPERTIES => {x => "data"}}, "x", "data"));
|
|---|
| 53 | # regex matching
|
|---|
| 54 | ok(property_matches({PROPERTIES => {x => "data"}}, "x", "^([dat]+)\$"));
|
|---|
| 55 |
|
|---|
| 56 | # ParseExpr()
|
|---|
| 57 | is(undef, ParseExpr("", {}, undef));
|
|---|
| 58 | is("a", ParseExpr("a", {"b" => "2"}, undef));
|
|---|
| 59 | is("2", ParseExpr("a", {"a" => "2"}, undef));
|
|---|
| 60 | is("2 * 2", ParseExpr("a*a", {"a" => "2"}, undef));
|
|---|
| 61 | is("r->length + r->length",
|
|---|
| 62 | ParseExpr("length+length", {"length" => "r->length"}, undef));
|
|---|
| 63 | is("2 / 2 * (r->length)",
|
|---|
| 64 | ParseExpr("constant/constant*(len)", {"constant" => "2",
|
|---|
| 65 | "len" => "r->length"}, undef));
|
|---|
| 66 | is("2 + 2 - r->length",
|
|---|
| 67 | ParseExpr("constant+constant-len", {"constant" => "2",
|
|---|
| 68 | "len" => "r->length"}, undef));
|
|---|
| 69 | is("*r->length", ParseExpr("*len", { "len" => "r->length"}, undef));
|
|---|
| 70 | is("**r->length", ParseExpr("**len", { "len" => "r->length"}, undef));
|
|---|
| 71 | is("r->length & 2", ParseExpr("len&2", { "len" => "r->length"}, undef));
|
|---|
| 72 | is("&r->length", ParseExpr("&len", { "len" => "r->length"}, undef));
|
|---|
| 73 | is("calc()", ParseExpr("calc()", { "foo" => "2"}, undef));
|
|---|
| 74 | is("calc(2 * 2)", ParseExpr("calc(foo * 2)", { "foo" => "2"}, undef));
|
|---|
| 75 | is("strlen(\"data\")", ParseExpr("strlen(foo)", { "foo" => "\"data\""}, undef));
|
|---|
| 76 | is("strlen(\"data\", 4)", ParseExpr("strlen(foo, 4)", { "foo" => "\"data\""}, undef));
|
|---|
| 77 | is("foo / bar", ParseExpr("foo / bar", { "bla" => "\"data\""}, undef));
|
|---|
| 78 | is("r->length % 2", ParseExpr("len%2", { "len" => "r->length"}, undef));
|
|---|
| 79 | is("r->length == 2", ParseExpr("len==2", { "len" => "r->length"}, undef));
|
|---|
| 80 | is("r->length != 2", ParseExpr("len!=2", { "len" => "r->length"}, undef));
|
|---|
| 81 | is("pr->length", ParseExpr("pr->length", { "p" => "r"}, undef));
|
|---|
| 82 | is("r->length", ParseExpr("p->length", { "p" => "r"}, undef));
|
|---|
| 83 | is("_foo / bla32", ParseExpr("_foo / bla32", { "bla" => "\"data\""}, undef));
|
|---|
| 84 | is("foo.bar.blah", ParseExpr("foo.blah", { "foo" => "foo.bar"}, undef));
|
|---|
| 85 | is("\"bla\"", ParseExpr("\"bla\"", {}, undef));
|
|---|
| 86 | is("1 << 2", ParseExpr("1 << 2", {}, undef));
|
|---|
| 87 | is("1 >> 2", ParseExpr("1 >> 2", {}, undef));
|
|---|
| 88 | is("0x200", ParseExpr("0x200", {}, undef));
|
|---|
| 89 | is("2?3:0", ParseExpr("2?3:0", {}, undef));
|
|---|
| 90 | is("~0", ParseExpr("~0", {}, undef));
|
|---|
| 91 | is("b->a->a", ParseExpr("a->a->a", {"a" => "b"}, undef));
|
|---|
| 92 | is("b.a.a", ParseExpr("a.a.a", {"a" => "b"}, undef));
|
|---|
| 93 |
|
|---|
| 94 | test_errors("nofile:0: Parse error in `~' near `~'\n", sub {
|
|---|
| 95 | is(undef, ParseExpr("~", {}, {FILE => "nofile", LINE => 0})); });
|
|---|
| 96 |
|
|---|
| 97 | test_errors("nofile:0: Got pointer, expected integer\n", sub {
|
|---|
| 98 | is(undef, ParseExprExt("foo", {}, {FILE => "nofile", LINE => 0},
|
|---|
| 99 | undef, sub { my $x = shift;
|
|---|
| 100 | error({FILE => "nofile", LINE => 0},
|
|---|
| 101 | "Got pointer, expected integer");
|
|---|
| 102 | return undef; }))});
|
|---|
| 103 |
|
|---|
| 104 | is("b.a.a", ParseExpr("b.a.a", {"a" => "b"}, undef));
|
|---|
| 105 | is("((rr_type) == NBT_QTYPE_NETBIOS)", ParseExpr("((rr_type)==NBT_QTYPE_NETBIOS)", {}, undef));
|
|---|
| 106 | is("talloc_check_name", ParseExpr("talloc_check_name", {}, undef));
|
|---|
| 107 | is("talloc_check_name()", ParseExpr("talloc_check_name()", {}, undef));
|
|---|
| 108 | is("talloc_check_name(ndr)", ParseExpr("talloc_check_name(ndr)", {}, undef));
|
|---|
| 109 | is("talloc_check_name(ndr, 1)", ParseExpr("talloc_check_name(ndr,1)", {}, undef));
|
|---|
| 110 | is("talloc_check_name(ndr, \"struct ndr_push\")", ParseExpr("talloc_check_name(ndr,\"struct ndr_push\")", {}, undef));
|
|---|
| 111 | is("((rr_type) == NBT_QTYPE_NETBIOS) && talloc_check_name(ndr, \"struct ndr_push\")", ParseExpr("((rr_type)==NBT_QTYPE_NETBIOS)&&talloc_check_name(ndr,\"struct ndr_push\")", {}, undef));
|
|---|
| 112 | is("(rdata).data.length", ParseExpr("(rdata).data.length", {}, undef));
|
|---|
| 113 | is("((rdata).data.length == 2)", ParseExpr("((rdata).data.length==2)", {}, undef));
|
|---|
| 114 | is("((rdata).data.length == 2)?0:rr_type", ParseExpr("((rdata).data.length==2)?0:rr_type", {}, undef));
|
|---|
| 115 | is("((((rr_type) == NBT_QTYPE_NETBIOS) && talloc_check_name(ndr, \"struct ndr_push\") && ((rdata).data.length == 2))?0:rr_type)", ParseExpr("((((rr_type)==NBT_QTYPE_NETBIOS)&&talloc_check_name(ndr,\"struct ndr_push\")&&((rdata).data.length==2))?0:rr_type)", {}, undef));
|
|---|
