source/pidl/tests/test_util.pl

   1 #!/usr/bin/perl
   2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
   3 # Published under the GNU General Public License
   4 use strict;
   5
   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);
  11
  12 test_warnings("", sub {});
  13
  14 test_warnings("x:1: msg\n", sub { warning({FILE => "x", LINE => 1}, "msg"); });
  15 test_warnings("", sub {});
  16
  17 test_errors("", sub {});
  18
  19 test_errors("x:1: msg\n", sub { error({FILE => "x", LINE => 1}, "msg"); });
  20 test_errors("", sub {});
  21