source4/pidl/tests/Util.pm

   1 # Some simple utility functions for pidl tests
   2 # Copyright (C) 2005-2006 Jelmer Vernooij
   3 # Published under the GNU General Public License
   4
   5 package Util;
   6
   7 require Exporter;
   8 @ISA = qw(Exporter);
   9 @EXPORT_OK = qw(test_samba4_ndr);
  10
  11 use strict;
  12
  13 use Test::More;
  14 use Parse::Pidl::IDL;
  15 use Parse::Pidl::NDR;
  16 use Parse::Pidl::Samba4::NDR::Parser;
  17 use Parse::Pidl::Samba4::Header;
  18
  19 # Generate a Samba4 parser for an IDL fragment and run it with a specified
  20 # piece of code to check whether the parser works as expected
  21 sub test_samba4_ndr
  22 {
  23         my ($name,$idl,$c,$extra) = @_;
  24         my $pidl = Parse::Pidl::IDL::parse_string("interface echo { $idl }; ", "<$name>");
  25
  26         ok(defined($pidl), "($name) parse idl");
  27         my $header = Parse::Pidl::Samba4::Header::Parse($pidl);
  28         ok(defined($header), "($name) generate generic header");
  29         my $pndr = Parse::Pidl::NDR::Parse($pidl);
  30         ok(defined($pndr), "($name) generate NDR tree");
  31         my ($ndrheader,$ndrparser) = Parse::Pidl::Samba4::NDR::Parser::Parse($pndr, undef, undef);
  32         ok(defined($ndrparser), "($name) generate NDR parser");
  33         ok(defined($ndrheader), "($name) generate NDR header");
  34
  35 SKIP: {
  36
  37         skip "no samba environment available, skipping compilation", 3
  38                 if (system("pkg-config --exists ndr") != 0);
  39
  40         my $test_data_prefix = $ENV{TEST_DATA_PREFIX};
  41
  42         my $outfile;
  43         if (defined($test_data_prefix)) {
  44                 $outfile = "$test_data_prefix/test-$name";
  45         } else {
  46                 $outfile = "test-$name";
  47         }
  48
  49         my $cflags = `pkg-config --libs --cflags ndr`;
  50
  51         open CC, "|cc -x c - -o $outfile $cflags";
  52         print CC "#define uint_t unsigned int\n";
  53         print CC "#define _GNU_SOURCE\n";
  54         print CC "#include <stdint.h>\n";
  55         print CC "#include <stdlib.h>\n";
  56         print CC "#include <stdio.h>\n";
  57         print CC "#include <stdbool.h>\n";
  58         print CC "#include <stdarg.h>\n";
  59         print CC "#include <core.h>\n";
  60         print CC $header;
  61         print CC $ndrheader;
  62         print CC $extra if ($extra);
  63         print CC $ndrparser;
  64         print CC "int main(int argc, const char **argv)
  65 {
  66         TALLOC_CTX *mem_ctx = talloc_init(NULL);
  67
  68         $c
  69
  70         talloc_free(mem_ctx);
  71
  72         return 0; }\n";
  73         close CC;
  74
  75         ok(-f $outfile, "($name) compile");
  76
  77         my $ret = system("./$outfile", ()) >> 8;
  78         print "# return code: $ret\n" if ($ret != 0);
  79
  80         ok($ret == 0, "($name) run");
  81
  82         ok(unlink($outfile), "($name) remove");
  83
  84         }
  85 }
  86
  87 1;