tevent_poll: add poll_event_loop_wait()
[Samba/gebeck_regimport.git] / pidl / tests / test_util.pl
blob2d59f6283bbf14bb162ff5fb6b0101ebb1cc2b03
1 #!/usr/bin/perl
2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
4 use strict;
6 use Test::More tests => 6;
7 use FindBin qw($RealBin);
8 use lib "$RealBin";
9 use Util qw(test_warnings test_errors);
10 use Parse::Pidl qw(warning error);
12 test_warnings("", sub {});
14 test_warnings("x:1: msg\n", sub { warning({FILE => "x", LINE => 1}, "msg"); });
15 test_warnings("", sub {});
17 test_errors("", sub {});
19 test_errors("x:1: msg\n", sub { error({FILE => "x", LINE => 1}, "msg"); });
20 test_errors("", sub {});